Hallo zusammen,
ich bin auf der Suche nach einem Makro das folgendes kann.
Wenn in der Zelle F5 nicht steht soll das aktive Tabellenblatt gelöscht werden.
Kennt jemand ein Makro dafür ?
Gruß
toni
hallo toni
versuch mal so:
Sub loeschen()
Application.DisplayAlerts = False
If Range("f5") = "" Then ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
AW: Wenn Zelle leer, Tabellenblatt löschen?
Josef
Hallo Toni!
Zum Beispiel so! OptionExplicit
Sub BlattLoeschen() If ThisWorkbook.Sheets.Count > 1 Then
Application.DisplayAlerts = False If ActiveSheet.Range("F5") = "" Then ActiveSheet.Delete
Application.DisplayAlerts = True Else
MsgBox "Letztes Blatt!" EndIf EndSub