Kontrollbox mittels Makro
01.05.2009 15:52:44
Kevin
kleines Makro, kleines Problem aber ich hoffe, Ihr könnt mir helfen...?! ;-)
Verwende folgendes Makro zum Löschen bestimmter Zellinhalte mit der Tastenkombi STRG + l:
Sheets("Datenbank & Anmeldung").Select
Sheets("Datenbank & Anmeldung").Unprotect "XXX"
Range("A6:X1004").Select
Selection.ClearContents
Sheets("Datenbank & Anmeldung").Protect UserInterfaceOnly:=True, Password:="XXX"
Sheets("Datenbank & Anmeldung").EnableOutlining = True
Sheets("Datenbank & Anmeldung").EnableAutoFilter = True
Range("A1").Select
Zum Schutz vor Fehlern würde ich vor dem endgültigen Löschen gerne eine Message-Box mit einem Hinweis und den Buttons Ja / Nein anzeigen lassen, in der der User betätigen muss, dass er tatsächlich alle Einträge löschen möchte - nur dann soll auch wirklich alles gelöscht werden, sonst nicht.
Leider weiss ich nicht, wie sowas geht - könnt Ihr mir helfen ?
VG u. vielen Dank Euch im Voraus,
Kevin