Wenn 2 Textboxen leer sind dann....

[elamigo]

Guten Tag zusammen,

ich habe eine Userform die eine Datei speichert und dabei den Dateinamen und den Tabellenblattnamen ändert. Allerdings würde ich gerne eine sicherheit einbauen, so dass wenn keine Werte in Textbox1 und Textbox2 soll eine msgbox kommen und nicht der VBA Error. 

So habe ich es für eine Textbox aber wie kann ich es machen das es für beide gilt? 

Code:

If TextBox1.Text <> "" Then

MsgBox "Bitte etwas in die Textfelder eintragen", vbOKOnly

Else

Dateiname = TextBox2.Text
tabellenblattname = TextBox1.Text
       
Sheets("Master").Name = tabellenblattname

ActiveWorkbook.SaveAs Filename:="\\XXXXXXXX\" & Dateiname, Password:="234234"


Unload UserForm1

End If

[Basisa]

Hi...

If Textbox1.Value = "" and Textbox2.Value = "" then
   MsgBox
   Exit Sub
End If

[elamigo]

so geht es 

Code:

If TextBox1.Text = "" and Textbox2.Text = ""

Or geht auch



@Basisa DANKE! Haben gleichzeitig geschrieben. Bin in dem Moment auch selbst darauf gekommen. Der Wald vor lauter Bäumen...