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
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
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
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