Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro zum Ausblenden von Zeilen hängt

Makro zum Ausblenden von Zeilen hängt
Zeilen
Hallo zusammen,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro zum Ausblenden von Zeilen hängt
31.03.2004 16:24:30
Zeilen
Hallo Rolf,
ich hätte es so gemacht:

Sub Hide_zeros()
Dim i As Long
Dim wks As Worksheet
Set wks = ThisWorkbook.Sheets(1)
For i = 1 To wks.UsedRange.Rows.Count
If wks.Cells(i, 1).Value = 0 Then _
wks.Rows(i).EntireRow.Hidden = True
Next i
End Sub


Sub Show_all()
ThisWorkbook.Sheets(1).Cells.EntireRow.Hidden = False
End Sub

CIAO
Michael
AW: Makro zum Ausblenden von Zeilen hängt
Zeilen
Versuch es mal so
gruss
Moe

Sub Ausblenden()
'   Makro blendet alle Zeilen mit 0 aus
'   Sheets("Tabelle1").Activate
Range("A1").Activate
Application.ScreenUpdating = False
For Each cell In Range("A1:A65536")
If cell.Value = 0 Then cell.EntireRow.Hidden = True
Next cell
Range("A1").Activate
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Danke
31.03.2004 16:46:12
Rolf
Hallo,
Problem scheint gelöst :-)
Vielen Dank für die Hilfe
Gruß
Rolf
AW: Makro zum Ausblenden von Zeilen hängt
01.04.2004 08:37:25
Zeilen
Hallo zusammen,
muß nochmal nachhaken:
Beide Vorschläge muß ich mit ESC. beenden, sonst geht die
Eieruhr nicht weg. War das so gedacht?
Gruß
Rolf

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige