diese Prozedur läuft auf einen Fehler. Es soll gewährleistet sein, dass bei Eingabe von "Urlaub" oder "Krankheit" die MsgBox erscheint und bei drücken von OK das Makro dann beendet wird.
Bei allen anderen Eingaben soll die Else-Funktion ausgeführt werden.
Was ist also falsch?
Sub TP_löschen()
Application.ScreenUpdating = False
TPName$ = Range("E17")
count1 = 20
If TPName Is "Urlaub" Or TPName Is "KRANKHEIT" Then
MsgBox("Dieses Projekt kann nicht gelöscht werden!", vbOKOnly, "Fehler") = 1
Exit Sub
Else
Application.DisplayAlerts = False
Sheets("" & TPName & "_F").Delete
Sheets("" & TPName & "_N").Delete
Sheets("" & TPName & "_U").Delete
Sheets("" & TPName & "_R").Delete
Sheets("" & TPName & "_I").Delete
Application.DisplayAlerts = True
Range("A" & count1 & "").Select
Do While ActiveCell.Value <> "" & TPName & ""
Range("A" & count1 & "").Select
count1 = count1 + 1
Loop
count1 = count1 - 1
Rows("" & count1 & ":" & count1 & "").Delete
Range("E17").ClearContents
End If
Wäre für jeden kleinen Tipp dankbar...
Markus