Wenn ich im Bereich B11 bis B2000 in dem gefilterten Bereich eine 1 eingeben will, mache ich dies ja wie folgt:
Range("B11:B2000").SpecialCells(xlCellTypeVisible) = 1
Nun aber mein Problem: Wie steuere ich die nicht gefilterten Zeilen an? D.h. ich möchte in der Spalte B bei den nicht gefilterten Zeilen den Wert in den Zellen löschen. Mit nachfolgender Lösung klappt dies zwar, aber leider nur sehr langsam.
For Z = 11 To 1000
If Rows(Z).EntireRow.Hidden = True Then
Cells(Z, 2) = ""
End If
Next Z
Gibt es eine einfachere Lösung, mit der ich den ganzen Bereich der ausgeblendeten Zeilen ansprechen kann?
Für einen Tipp wäre ich Euch sehr dankbar.
Vielen Dank und beste Grüsse,
George