folgender Wunsch:
Beim Öffnen der Datei sollen alle Zeilen ausgeblendet werden, bei denen in Spalte C etwas eingetragen wurde. Und zwar in sämtlichen Arbeitsblättern der Datei.
Schomma Danke fürs Nachdenken!
Wo
Private Sub Workbook_Open()
Dim i As Long
For i = 2 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3).Value "" Then
Rows(i).EntireRow.Hidden = True
End If
Next i
End Sub
Vermutlich wäre eine Array-Lösung schneller, bei sehr sehr vielen Datensätzen, sprich bei sehr sehr vielen auszublendenden Zeilen.
Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In Worksheets
On Error Resume Next
wks.Columns(3).SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
Next
End Sub
Gruß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