Ich habe eine Datei mit 32 Tabellenblätter. Ich möchte in jedem Tabellenblatt in den Zeilen 10 bis 348 alle Zeilen ausblenden, wenn die Spalten B..G leer sind (jedes Tabellenblatt hat unterschiedliche Inhalte). Bisher lief das so ohne Probleme. Jetzt habe ich aber noch 2 Tabellenblätter neu hinzugefügt, und jetzt passiert nichts mehr. Wer kann mir bitte helfen.
Dim wks As Worksheet
For Each wks In Worksheets
Dim i As Long
For i = 10 To 348
If Application.CountA(wks.Cells(i, 2).Resize(, 7)) = 0 Then
wks.Rows(i).Hidden = True
End If
Next i
Next
End Sub
bin ziemlich verzweifelt, weiß aber, dass hier die Profis dafür sind.
Gruß Christiane