Office: Kontrollabfrage nach klicken eines "Löschen-Makro's&quo

Hallo alle zusammen,

ich habe mehrere Makro's geschrieben, die in bestimmten Zellen Daten löschen sollen. Klick ich da nun versehntlich drauf, sind die Daten unwiederruflich gelöscht. Und genau dafür möchte ich eine vorherige "Kontrollabfrage" die mir die Wahl lässt, den Löschvorgang wirklich auszuführen oder abzubrechen.

Ich füge mal die Datei bei, die gemeinten Makro's befinden sich im TB "Datenliste".

Vielen dank schon mal im Voraus

Thomas

 

Hallo!

Deine Makros enthalten noch eine Menge Müll, die der Rekorder mitaufgezeichnet hat. Das passt zwar gut zum Thema "Abfuhrkalender", aber bremst auch die Geschwindigkeit und verringert die Übersichtlichkeit.

Am Beispiel "Altpapier":
Das Einzige, was passieren muss, ist
1. Aufheben des Blattschutzes
2. Löschen von H5:H70
3. Speichern
4. Setzen des Blattschutzes

Dazu reicht auch dies:

Code:

Sub AltpapierLöschen()
    ActiveSheet.Unprotect
    Range("H5:H70").ClearContents
    ActiveWorkbook.Save
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Eine Sicherheitsabfrage kannst du als erste Zeile einbauen:

Code:

If MsgBox("Sollen die Daten wirklich gelöscht werden?", vbYesNo) = vbNo Then Exit Sub

 

Joho, vorweg, alles klappt bestens, dazu nochmals mein Dank.

Was den "Datenmüll" beim Aufzeichnen meiner Makros angeht, dem habe ich jetzt Dank dir eine "Abfuhr" erteilt.
Leider kenne ich mich mit VBA nicht sonderlich gut aus, so dass beim Aufzeichnen mit dem Makrorecorder jeder "Pfurz" mitgeschrieben wird. Das ist halt mein Schicksal, aber damit kann ich leben.
Würde sich jeder so gut auskennen wie Ihr, bräuchte man dieses Forum nicht, was schade wär.

Nichts für Ungut, ich bleib euch weiterhin treu, macht weiter so.

MfG

Thomas

:-D