In einer Userform befindet sich recht viele Textboxes.
Die Namen sind fortlaufend: TXTPLZ1, TXTPLZ2, TXTPLZ3
Diese sollen beim Klick auf einen Button auf numerische Werte
überprüft werden.
Ist ein nicht numerischerer Wert vorhanden, soll eine Meldung
erscheinen
und die Textbox aktiviert werden.Private Sub CommandButton1_Click()
For Each objekt In UserForm1.Controls
If UCase(Mid(objekt.Name, 1, 6)) = "TXTPLZ" Then
If Not IsNumeric(objekt.Value) And objekt.Value <> "" Then
MsgBox "Nur Ziffern erlaubt!", vbCritical, _
"Fehlermeldung - PLZ"
objekt.SetFocus
Exit Sub
End If
End If
Next objekt
End Sub
|