habe folgende Prozedur:
If tpname = "ZURLAUB" Or tpname = "ZINTERN" Or tpname = "ZKRANKHEIT" Or tpname = "ZZABWESEND" Or tpname = "ZZBVZEIT" Then
MsgBox "Dieses Projekt kann nicht gelöscht werden!", vbOKOnly, "Fehler"
Range("A17").ClearContents
Exit Sub
' Löschen der zugehörigen Zeile und der TP-Sheets
ElseIf WorksheetFunction.VLookup(tpname, Sheets("Stammblatt").Range("A20:A50"), 6, True) = "intern" Then
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
Es gibt nun die Möglichkeit, dass in Spalte F ein internes Projekt liegt, dann gibt es nicht alle Sheets und Excel läuft somit auf einen Fehler.
Mit der Elseig clause will ich einfach abfragen, ob in Spalte f der übergebenen Variable intern steht, wenn ja, dann soll er nur _u und _r löschen. Irgendwie klappt das aber nicht, ermacht dann gar nichts.
Kann mir jemand weiterhelfen???
Grüße,Basti