Box erscheint wenn keine Eingabe in Textfeld
18.12.2003 20:43:13
Dirk
so ich habe ein problem
ich möchte das wenn in meinen Textfeldern keine Eingabe übergeben wird
wie untem im code angezeit eine msg box aufgeht die Sagt bitte
zahl eingeben und gleichzeitig den wert auf null setzt das bei keiner eingabe die zahl null übergeben wird!
das ist wichtig für weiterbrechnungen
d.h.
Private Sub CommandButton3_Click()
Sheets("Tabelle2").Range("A2").Value = TextBox1
Sheets("Tabelle2").Range("B2").Value = TextBox2
wenn keine Eingabe (also keine Wert wird übergeben)
dann msgbox "bitte zahl eingeben"
und
Sheets("Tabelle2").Range("A2").Value = "0"
und das für beide TExtboxen!!
Sheets("Tabelle2").Range("A2").Value = "0"
Sheets("Tabelle2").Range("B2").Value = "0"
TextBox1 = 0
TextBox2 = 0
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
kennt jemand den vba code dafür
danke und frohes fest Dirk