Schaltfläche mit msgBox
11.02.2005 13:20:22
HeinzH
Dachte ich bin mit meiner Stundenlistefertig,leider noch nicht.
Meine Frage: habe eine Schaltfläche mit untersehenden Code zum Tabellenblattlöschen,funkt.super nun möchte ich aber eine Abfrage einbauen,"wollen sie dieses Blatt wirklich löschen Ja oder Nein"
Nur weiss ich nicht wie man das bewerkstelligt.
Könnte mir bitte jemand helfen?
Danke Heinz
Sub Schaltfläche4_BeiKlick()
Application.DisplayAlerts = False
If ActiveSheet.Name <> Sheets(1).Name Then ActiveSheet.Delete
Application.DisplayAlerts = True
End
Sub
'Makro am 11.02.2005 von Heinz aufgezeichnet