AW: Textbox abfangen
21.06.2006 11:12:51
fcs
Hallo selma,
befinden sich die beiden Textboxen im Tabellenblatt (nicht auf einem Userform!), dann kannst du mit folgendem Code die Eingabe in der Textbox210 überwachen.
Beim Anklicken der Textbox wird der aktuelle Wert zwischengespeichert. Wenn die Textbox wieder verlassen wird, dann wird bei übereinstimmung der Inhalte in den beiden Boxen die Meldung angezeigt und die Textbox wieder auf den alten Wert gesetzt.
Den Code muß du im VBA-Editor nach Doppelklich auf den Tabellennamen im Code-Fenster einfügen.
Private WertTB210alt
Private Sub TextBox210_Lostfocus()
If TextBox210.Value = TextBox209.Value Then
MsgBox ("Der Wert " & TextBox210.Value & " ist als Eingabewert nicht zulässig!" & vbLf & _
"Eingabewert wird auf den vorherigen Wert zurückgesetzt")
TextBox210.Value = WertTB210alt
End If
End Sub
Private Sub TextBox210_GotFocus()
WertTB210alt = TextBox210.Value
End Sub
Befinden sich die beiden Textboxen in einem Userform, dann sieht der Code, der im Codefenster des Userforms eingefügt werden muß etwas anders aus:
Private WertTB210alt
Private Sub TextBox210_Enter()
WertTB210alt = TextBox210.Value
End Sub
Private Sub TextBox210_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox210.Value = TextBox209.Value Then
MsgBox ("Der Wert " & TextBox210.Value & " ist als Eingabewert nicht zulässig!" & vbLf & _
"Eingabewert wird auf den vorherigen Wert zurückgesetzt")
TextBox210.Value = WertTB210alt
End If
End Sub
mfg
Franz