Zeilen ausblenden
15.09.2003 10:53:53
Calypso
das folgende Makro soll, nach Druck auf eine Schaltfläche,
alle Zeilen ausblenden, in denen sich in Spalte A eine Null befindet:
Sub Ausblenden()
' Makro blendet alle Zeilen mit 0 aus
' Sheets("Tabelle1").Activate
Range("A1").Select
Application.ScreenUpdating = False
Do While ActiveCell.Value >= "-999999999" And ActiveCell.Value <= "99999999"
If ActiveCell.Value = 0 Then
Selection.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Range("A1").Select
Else
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Bei der Ausführung meckert er aber ständig:
"Laufzeitfehler 1004"
"Die Select-Methode des Range-Objektes ist fehlerhaft"
Ich finde den Fehler aber nicht.
Dazu muß ich sagen, daß ich das Tabellenblatt durch
Verschieben/Kopieren angehängt habe.
Im Originalblatt funktioniert es.
Hat jemand eine Idee?
Gruß und danke
Calypso