waswiewo
Erfahrenes Mitglied
Hallo Kommunity,
ich sitze seit Jahren mal wieder an nem kleinen VBA-Projekt (Excel 2007).
Ich habe ein Bezeichnungsfeld mit einem Wert. Ich möchte, wenn ich eine Zahl in mein Textfeld geschrieben habe, diese erst bei Bestätigung von Enter von dem Wert des Bezeichnungsfelds abgezogen wird.
Momentan fängt er an zu rechnen, sobald ich die erste Zahl eintippe.
Hier mein Code:
Finde einfach nicht den Fehler. Ja gegoogelt und geSuFut hab ich schon wie nen Verrückter.
Kann mir wer nen kleinen Tipp geben?
MFG
ich sitze seit Jahren mal wieder an nem kleinen VBA-Projekt (Excel 2007).
Ich habe ein Bezeichnungsfeld mit einem Wert. Ich möchte, wenn ich eine Zahl in mein Textfeld geschrieben habe, diese erst bei Bestätigung von Enter von dem Wert des Bezeichnungsfelds abgezogen wird.
Momentan fängt er an zu rechnen, sobald ich die erste Zahl eintippe.
Hier mein Code:
Code:
Option Explicit
Private Sub TextBox1_change()
Dim w As String
w = TextBox1.Value
If w = "" Or w Like "####" Then Exit Sub
If w >= "0" Or w <= "180" Then
Label1.Caption = Label1.Caption - CLng(w)
TextBox1.Value = ""
Else
MsgBox "Bitte einen korrekten Wert eingeben!"
End If
End Sub
Finde einfach nicht den Fehler. Ja gegoogelt und geSuFut hab ich schon wie nen Verrückter.
Kann mir wer nen kleinen Tipp geben?
MFG