MsgBox Makro anpassen
20.07.2017 14:34:09
Max
ich bitte um Hilfe bei Anpassung eines Makros (Modul), welches eine UserForm nach bestätigen mit OK in der MsgBox auf jeden Fall öffnen soll, es aber leider nicht tut.
Die MsgBox ist nur als Hinweis gedacht, egal ob beide Zellen leer sind oder nur eine davon, sollte nach OK die UserForm aufgehen.
Sind die beiden angegebenen Zellen ausgefüllt, sollte die MsgBox nicht erscheinen und
die UserForm direkt aufgehen.
Was ist da falsch bzw. fehlt?
Sub Textbaustein()
If ActiveSheet.Range("E15") = "" Or ActiveSheet.Range("F29") = "" Then
MsgBox "Angabe der Rechnungsnummer/" & vbLf & _
"oder des Endpreises fehlt. ", vbOKOnly
Else
frmMenü_Textbaustein.Show
End If
End Sub
Vorab schonmal Danke für die Mühe!
Gruß
Max