Excel-0-Zeilen ausblenden

Tag zusammen,

folgendes Problem: ich habe dieses Makro bekommen, mit dem sich
alle Zeilen, die in Spalte A eine Null enthalten, ausblenden lassen:

Sub Ausblenden()
’ Makro blendet alle Zeilen mit 0 aus
Range(„A1“).Select
Application.ScreenUpdating = False
Do While ActiveCell.Value >= „-999999999“ And ActiveCell.Value

In einer angelegten Beispieldatei funktioniert es, in meiner
Anwendungsdatei bekomme ich die Fehlermeldung:

Laufzeitfehler ‚1004‘ Die Select-Methode des Range-Objektes
ist fehlerhaft.

Im Testlauf weist er auf Zeile 3: Range(„A1“).Select hin.

Über einen Tip würde ich mich sehr freuen.

Vielleicht solltest Du einfach mal den Blattschutz ausschalten, du kleiner Schlingel :wink:)

  • gruss.lexa -