AW: Textboxen
10.01.2007 19:16:39
Lutz
Hi,
nachfolgend ein Beispielcode von mir, wobei ich nicht sicher bin, ob ich den ersten Punkt richtig verstanden habe. Ich habe jetzt einfach unterstellt, dass du nach Eingabe, also beim Druck auf den Button prüfen willst, ob eine Zahl enthalten ist. Mein Beispielcode fügt nur dann den Inhalt des Textfeldes in Zelle A1 ein, wenn das Textfeld eine Zahl ist. Du kannst natürlich auch während der Eingabe überprüfen, ob eine Zahl eingegeben wurde. Dazu musst du die Abfrage isnumeric einfach beim TextBox1_Change() Ereignis reinschreiben. Sollte statt dessen ein Buchstabe eingegeben worden sein, kannst du mit
Private Sub TextBox1_Change()
If Not IsNumeric(UserForm1.TextBox1.Value) And Len(UserForm1.TextBox1.Value) > 0 Then
UserForm1.TextBox1.Value = Left(UserForm1.TextBox1.Value, _
Len(UserForm1.TextBox1.Value) - 1)
End If
End Sub
bereits während der Eingabe das jeweils zuletzt eingegebene Zeichen wieder löschen lassen.
Hier nun der Beispielcode beim Drücken des Buttons:
Option Explicit
Private Sub CommandButton1_Click()
'** Prüfung, ob eine Zahl in der Textbox eingegeben wurde
If IsNumeric(UserForm1.TextBox1.Value) And Len(UserForm1.TextBox1.Value) > 0 Then
'** Einfügen der Werte aus der Textbox in Zelle A1 des WS Tabelle1 wenn Zahl in Textbox
ActiveWorkbook.Worksheets("Tabelle1").Range("A1").Value = UserForm1.TextBox1.Value
Else
MsgBox "Das Textfeld enthält Buchstaben oder Sonderzeichen."
End If
End Sub
HTH
Lutz