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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen