wie kann ich mit einem Makro in allen Tabellenblättern einer Arbeitsmappe die Zeilen ausblenden, bei denen die Spalte A nicht leer ist? Also die Zeilen, in denen in Spalte A Zahlen stehen, sollen ausgeblendet werden.
Herzlichen Dank im Voraus
Karin
Sub Hide_Filled_Rows_in_All_Sheets()
Dim i As Long, n As Long
For i = 1 To Worksheets.Count
With Worksheets(i)
For n = .Range("A" & .Rows.Count).End(xlUp).Row To 1 Step -1
If .Cells(n, 1) Empty Then
.Rows(n).Hidden = True
End If
Next n
End With
Next i
End Sub
Gruß Gerd