Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Zeilen mit bestimmten Wert automatisch ausblenden

Forumthread: Zeilen mit bestimmten Wert automatisch ausblenden

Zeilen mit bestimmten Wert automatisch ausblenden
17.06.2005 10:25:42
Daniel
Hallo,
ich würde gerne in einer Excel Tabelle alle Zeilen der Spalte A in der sich eine "0" befindet automatisch ausblenden.
Vieleich könnt ihr mir da helfen.
Gruß und Danke
Daniel
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit bestimmten Wert automatisch ausblenden
17.06.2005 10:40:51
MB
Hallo Daniel. Hier der Code

Sub leere_zeilen_ausblenden()
For x = 1 To 10 'bis Zeile 10 wird gesucht...
Range("A" & x).Select
If ActiveCell.Value = 0 Then
Rows(x & ":" & x).Select
Selection.EntireRow.Hidden = True
End If
Next x
End Sub

LG MB
Anzeige
Oder:
17.06.2005 11:15:40
Dominic

Sub hiderows()
Dim lng As Long
For lng = 1 To Cells(1, 1).End(xlDown).Row
If Cells(lng, 1).Value = 0 Then Rows(lng).Hidden = True
Next lng
End Sub

Gruß
Dominic
AW: Zeilen mit bestimmten Wert automatisch ausblen
17.06.2005 11:31:51
Daniel
Das hat ja, super geklappt. Gibt es eine Möglichkeit diese Zeilen auch wieder einzublenden? Falls sich in diesen Zeilen keine 0 mehr befindet?
Das ging ja schnell.
Anzeige
AW: Zeilen mit bestimmten Wert automatisch ausblen
17.06.2005 11:51:32
Dominic
Dann vermute ich, sind da Formelergebnisse.

Private Sub Worksheet_Calculate()
Dim lng As Long
For lng = 1 To Cells(1, 1).End(xlDown).Row
If Cells(lng, 1).Value = 0 Then Rows(lng).Hidden = True
If Cells(lng, 1).Value <> 0 Then Rows(lng).Hidden = False
Next lng
End Sub

Gruß
Dominic
Anzeige
AW: Zeilen mit bestimmten Wert automatisch ausblen
17.06.2005 12:12:51
Daniel
Lieber, MB, lieber Dominic,
vielen Dank für Eure Hilfe. Ihr habt mir sehr geholfen.
LG Daniel

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige