If / Then / Else ? Code Hilfe
amintire
bekomme leider den Code nicht richtig hin.
Also wenn eines von den Fünf Textfeldern nicht ausgefüllt wird, soll die MsgBox erscheinen und Sub CommandButton3_Click() beendet werden, aber bei dem Code kommt zwar die MsgBox, trotzdem führt er zum Schluss die Sachen aus.
Erst wenn alle Textfelder ausgefüllt sind, soll sich der Code ausführen, ansonsten eben keine Reaktion.
Private Sub CommandButton3_Click()
If TextBox3.Text = "" Then MsgBox "Bitte Feld ausfüllen"
If TextBox4.Text = "" Then MsgBox "Bitte Feld ausfüllen"
If TextBox5.Text = "" Then MsgBox "Bitte Feld ausfüllen"
If TextBox6.Text = "" Then MsgBox "Bitte Feld ausfüllen"
If TextBox7.Text = "" Then MsgBox "Bitte Feld ausfüllen"
Sheets("Tabelle1").Range("A1") = TextBox3.Text
Sheets("Tabelle1").Range("A2") = TextBox4.Text
Sheets("Tabelle1").Range("A3") = TextBox5.Text
Sheets("Tabelle1").Range("A4") = TextBox6.Text
Sheets("Tabelle1").Range("A5") = TextBox7.Text
End Sub
Oder wie könnte ich den CommandButton ausblenden und erst freischalten wenn alle Textfelder ausgefüllt sind? Das drauf geklickt werden kann?
Vielen Dank für eure Hilfe.
Lieben Gruß
Amina