Hallo zusammen,
habe ein kleines Problemchen und zwar habe ich ein Formular entwickelt, indem ich die Auftragsnummer eingeben kann (txtAuftragsnr)
Ist der Eintrag nicht numerisch (keine Zahl), soll dies ausgegeben werden, ansonsten, soll der Wert eingegeben werden.
Mein Makro:
Dim z As Integer
For z = 1 To 9
If txtAuftragsnr.Value = z Then
MsgBox "Es dürfen nur Zahlenwerte eingegeben werden"
Else
Sheets("Datenblatt").Cells(3, 3).Value = txtAuftragsnr.Value
End If
Next
Beispiel an Eingabe: 10020500
Danke für Eure Hilfe!
LG Chris