Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
624to628
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
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen mit bestimmten Wert automatisch ausblenden

Zeilen mit bestimmten Wert automatisch ausblenden
17.06.2005 08: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

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit bestimmten Wert automatisch ausblenden
17.06.2005 08: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
Oder:
17.06.2005 09: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 09: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 09: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
AW: Zeilen mit bestimmten Wert automatisch ausblen
17.06.2005 10:12:51
Daniel
Lieber, MB, lieber Dominic,
vielen Dank für Eure Hilfe. Ihr habt mir sehr geholfen.
LG Daniel

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige