habe hier ein kleines Problem an dem ich so langsam verzweifle:
Wenn ich in dem Bereich Range(C"21") Text eingebe, dann wird die zweite MsgBox nicht angezeigt. Wenn nichts drin steht, dann werden beide nach einander angezeigt. Wo ist der Fehler?
Sub Fehlermeldung()
Sheets("Datenerhebungsbogen").Select
' Prüfen, ob ein Steuersatz angegeben ist
If IsEmpty(Range("C21")) Then
MsgBox " Es wurde kein Steuersatz im Datenerhebungsbogen eingetragen"
' Prüfen, ob ein Steuersatz im numerischer Form angegeben ist
If IsNumeric(Range("C21")) Then
MsgBox " Es wurde ein numerischer Wert als Steuersatz angegeben"
End If
End If
End Sub
Danke im voraus
Matthias