Wert in nicht gefilterte Zellen schreiben

[Statler]

Hallo,

zu meiner Frage von vorhin noch eine vermeintlich einfache Frage:

Ich filtere eine Tabelle (Range der Tabelle ist A5 bis C1000). Dann sehe ich z.Bsp. noch 100 Zeilen.
Jetzt möchte ich nur in diesen 100 Zeilen in Spalte D den Wert "gesehen" schreiben.
Wie mache ich das?


Gruß
Statler

[00202]

Hallo,  

per VBA so:  

Code:

With ThisWorkbook.Worksheets("Tabelle1")
    .Range(.Cells(6, 4), .Cells(.Cells(.Rows.Count, "A").End(xlUp).Row, 4)).SpecialCells(xlCellTypeVisible) = "gesehen"
End With

Wenn die Überschrift / der Filter in Zeile 5 ist. Tabellenblattname gegebenenfalls noch anpassen.