Wenn ich in der Inputbox eine zahl eingeben soll immer € am ende stehen!

[apfelkorn]

Wenn ich in der Inputbox eine zahl eingeben z.B "1000" soll immer € am ende stehen!

Wie mach ich das?

Und wenn ich auf denn Button "eintrag entfernen" klick , soll da die Frage kommen "eintrag wirklich entfernen?"

Und dann so 2 Button Ja / Nein!

Wie geht das?

Mfg apfelkorn

 

[forsterm]

Und wenn ich auf denn Button "eintrag entfernen" klick , soll da die Frage kommen "eintrag wirklich entfernen?"

Und dann so 2 Button Ja / Nein!

Wie geht das?

Mfg apfelkorn

Wenn du mit Inputbox eine Textbox meinst, dann wür ich das so machen.

If MsgBox("Eintrag wirklich entfernen?", vbExclamation Or vbYesNo Or vbDefaultButton2, "Form1") = vbYes Then
TextBox1.Text = ""
Else
' Nein
End If

 

[apfelkorn]

Hi!
Dann schat es so aus

Private Sub Command4_Click()
 List1.RemoveItem a
 List2.RemoveItem a
 List3.RemoveItem a
 List4.RemoveItem a
 If MsgBox("Eintrag wirklich entfernen?", vbExclamation Or vbYesNo Or vbDefaultButton2, "Form1") = vbYes Then
 TextBox1.Text = ""
 Else
 ' Nein
 End If
 End Sub

Edit:

Habs doch hinbekommen habe es so gemacht:

Private Sub Command4_Click()
  If MsgBox("Eintrag wirklich entfernen?", vbExclamation Or vbYesNo Or vbDefaultButton2, "Form1") = vbYes Then
  List1.RemoveItem a
   List2.RemoveItem a
   List3.RemoveItem a
   List4.RemoveItem a
  Else
  ' Nein
  End If
  End Sub

 

[forsterm]

Wenn ich in der Inputbox eine zahl eingeben z.B "1000" soll immer € am ende stehen!

Wie mach ich das?

Hallo,

schreib halt das € zeichen einfach in einem Label hinter die Textbox (siehe unten).

 

[apfelkorn]

Es ist eine Listbox und keine Textbox aber konntest du ja net wissen vielen dank für den tipp aber habe es so gelöst:

A = InputBox("Einnahmen:", "Einnahmen") + (" Lose")

Mfg Henny