|
Hallo zusammen,
bin absoluter Einsteiger in VBA und stehe grade etwas auf dem Schlauch. Habe eine UserForm, in der man 31 TextBoxen ("txt_1" bis "txt_31") hat. Eine davon ist der Name des Datensatzes ("txt_31", Text und Zahlen erlaubt), die anderen 30 sollen nur ganzzahlige Zahlenwerte enthalten.
Habe mich ein wenig durch Foren gewühlt und wollte nicht gleich in die Klassenprogrammierung einsteigen und auch nicht für jede TextBox ein eigenen Sub mit KeyAscii erstellen.
Hier der Code:
Dim j As Long
Dim EingabeZahl As Boolean
For j = 1 To 30
If IsNumeric(Controls("txt_" & j)) Then EingabeZahl = True: Exit For
Next
If EingabeZahl = False Then MsgBox "Bitte nur Zahlen eingeben"
Dieser zeigt mir aber auch bei korrekt ausgefüllten Feldern die MsgBox.
Dieser Code hier, den ich quasi als Workaround geschrieben habe funktioniert:
Dim j As Long
For j = 1 To 30
If Not IsNumeric(Controls("txt_" & j)) Then Controls("txt_" & j).Value = "": Exit For
Next
Kann mir da jemand helfen? Wie bekomme ich das erste zum Laufen? Vielen Dank schon mal.
Grüße
Moritz
PS: Nach dem Code wird noch gecheckt ob Felder leer sind, deshalb bricht der zweite Code ab (die TextBox die keine Zahl enthält wird geleert und wirft deshalb, wie erwünscht, eine MsgBox aus). Danach werden die Werte in einer Tabelle gespeichert. |