Makro zum Ausblenden von Zeilen hängt
Zeilen
zum Ausblenden von Zeilen, in denen in
Spalte A eine Null steht, benutze ich folgendes Makro:
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
Funktioniert auch prima - leider immer nur 1 Mal. Nach dem
nächsten wieder einblenden mit diesem Makro:
Sub Einblenden()
' Makro blendet alle Ausgeblendeten Zeilen ein
Range("A1").EntireColumn.Select
Selection.EntireRow.Hidden = False
Range("A1").Select
End Sub
und Änderungen von Zahlenwerten in der Tabelle muß ich
die Datei speichern und neu laden, bevor ich das
Ausblenden-Makro wieder starten kann.
Andernfalls bleibt die Eieruhr so lange stehen, bis
ich mit ESC abbreche.
Hat jemand eine Idee, wie das zu lösen ist?
Gruß und danke
Rolf
Anzeige