Supportnet / Forum / Tabellenkalkulation

Hallo ihr Exelexperten. Ich brauche bitte eure Hilfe. Habe folgendes Macro: Sub löschen() Dim erg% erg = MsgBox("sollen die Eingaben wirklich gelöscht werden?", vbExclamation + vbYesNo, "Wirklich Löschen?") If erg = vbYes Then Range("A8:L53").ClearContents Else MsgBox ("Daten wurden NICHT gelöscht !!!") End If End Sub Dieses Macro löscht den Zellinhalt des aktuellen Blattes. Es tritt allerdings folgendes Problem dabei auf. Das Blatt ist geschützt, müßte also ungeschütz gemacht werden, Zellinhalte gelöscht und das Blatt anschließend wieder geschütz werden. Frage: Wie stllt man das an Besten an ? Vielen Dank für Eure Hilfe schon mal im Voraus ACR

Hallo ACR,

Sub löschen()
Dim erg%
ActiveSheet.Unprotect
erg = MsgBox("sollen die Eingaben wirklich gelöscht werden?", vbExclamation + vbYesNo, "Wirklich Löschen?")
If erg = vbYes Then
Range("A8:L53").ClearContents
Else
MsgBox ("Daten wurden NICHT gelöscht !!!")
End If
ActiveSheet.Protect
End Sub


MfG

JöKe

Hallo Jöke
Herzlichen Dank für die schnelle Hilfe. Funktionier super. Nochmals Danke

ACR

• SelfCert für Excel-Macro
• Macro-Aufruf
• macro über einen command button
• ich möchte ein Macro unter Excel beenden nud direkt speichern
• Macro zuweisen