da gehört ein "exit sub" rein. "end" ist ganz schlecht.
entweder so
If Tabelle1.Range("B5").Value = "" Then
MsgBox ("Fehler! Es wurden nicht alle Felder gefüllt!")
exit sub
end if
oder so
If Tabelle1.Range("B5").Value = "" Then
MsgBox ("Fehler! Es wurden nicht alle Felder gefüllt!")
else
'Datum einfügen Time ist die Uhrzeit / now ist das Datum
Range("n6").Value = Time
'Benutzername einfügen
Range("N1").Value = Environ("Username")
End If
wenn du dein ganzes Machwerk mal zeigen möchtest, dann wäre bestimmt ne saubere Lösung machbar.
|