Hallo,
das Markro soll nicht weiter laufen wenn in Tabelle1 B5 nicht gefüllt ist. Dazu soll noch ein Hinweis erfolgen.
Die MsgBox läuft. Jeodch läuft das Marko weiter. Was wäre eure Idee?
Sub PDF_Mail_Arbeitsbericht_Final_Test()
If Tabelle1.Range("B5").Value = "" Then
MsgBox ("Fehler! Es wurden nicht alle Felder gefüllt!")
End If
If Tabelle1.Range("B5").Value = "" Then
End
'Datum einfügen Time ist die Uhrzeit / now ist das Datum
Range("n6").Value = Time
'Benutzername einfügen
Range("N1").Value = Environ("Username")
|