Excel VBA

ChazyChaz

Lt. Commander
Registriert
Jan. 2006
Beiträge
1.028
Hey ich hab mal wieder ein kleines Problem mit VBA..
Ich habe 3 Textboxen die in einer User Form sind. Diese sollen zusammen 100 ergeben, wenn sie das nicht tun, soll ein Fenster kommen das davor warnt, und die User Form soll sich dann nicht schließen.
Wenn der Wert dann 100 ist, soll sich die User Form schließen.

Bis jetzt hab ich das:
Code:
If Int(TextBox1.Value) + Int(TextBox2.Value) + Int(TextBox3.Value) = 100 Then
Unload Me
Else:  MsgBox "Muss 100 ergeben"

End If

Das Problem hier ist jetzt aber, dass sich die UserForm auch schließt wenn der Wert nicht 100 ergibt.

Wie kann ich das lösen?
 
Edit: Verlesen,
Von wo aus rufst du den Code auf den du gepostet hast?

Und ist Else: so wie du es schreibst nicht eine Sprungmarke? :o
 
Zuletzt bearbeitet:
Der Code wird über einen Button aufgerufen. Der startet die ganze UserForm und beim OK klicken in der UserForm soll das passieren was da steht.
Ich hab jetzt

Code:
If Int(TextBox1.Value) + Int(TextBox2.Value) + Int(TextBox3.Value)  = 100 Then
Sheets("Tabelle1").Cells(One + 48, 3) = Format(TextBox1.Text, "##")
Sheets("Tabelle1").Cells(One + 49, 3) = Format(TextBox2.Text, "##")
Sheets("Tabelle1").Cells(One + 50, 3) = Format(TextBox3.Text, "##")
Unload Me

Else: MsgBox "Muss 100 ergeben"
End If

Klappt sogar :)
 
Zurück
Oben