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ß