Verständnisfrage Löschvorgang Makro

Question

Hallo und einen schönen Samstag wünsche ich euch

verstehe nicht warum die Vorgabe im Makro nicht funktioniert. Vielleicht erkennt jemand einen Fehler in dem Makro.

Zeigt mir immer den Fehler Selecttion.ClearContents

Sub gehezulöschen()

'

' gehezulöschen Makro

'

'

    Range("L5:AI5,L12:AI12,L19:AI19,B18:I89").Select

    Range("B18").Activate

    Selection.ClearContents

    Range("B4").Select

End Sub

Ps: kann es an ausgeblendete Spalten liegen?

Gruß Adde

Answer 1

Hi Adde,

das Makro sollte funktionieren. Ist dein Blatt vielleicht geschützt? Den Blattschutz musst du vorher aufheben, bevor du ClearContents ausführst. Kannst du auch im Code machen mit: ActiveSheet.Unprotect "Passwort"

Mr. K.

Answer 2

Hi Adde,

es stellt sich die Frage, was der Debugger denn genau ausgibt, wenn der Fehler auftritt - daran kann man nämlich meistens die Ursache erkennen. An ausgeblendeten Spalten sollte es nicht liegen sondern eher daran, was bereits im vorhergehenden Beitrag genannt wurde, am Blattschutz - und genau das sollte der Debugger auch besagen.

Übrigens: dein Code lässt sich wesentlich vereinfachen, denn auf Select und Activate kann man in 99% aller Fälle verzichten

Sub gehezulöschen()
' gehezulöschen Makro
    ActiveSheet.Unprotect "PW" '<== Passwort anpassen falls vorhanden, sonst "PW" weglassen
    Range("L5:AI5,L12:AI12,L19:AI19,B18:I89").ClearContents
    ActiveSheet.Protect "PW" '<== Passwort anpassen falls vorhanden, sonst "PW" weglassen
End Sub

Bis später, Karin

Answer 3

Vielen Dank für die Ifo.

Es lag tatsächlich am gesperrtem Blatt.

Gruß Adde