Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Wert in nicht gefilterte Zellen schreiben
Normale Version: Wert in nicht gefilterte Zellen schreiben
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

Statler

28.07.2021, 16:35
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

Case

28.07.2021, 17:23
Hallo, 19 

per VBA so: 21 

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.
Clever-Excel-Forum > Office-Anwendungen > Excel > Wert in nicht gefilterte Zellen schreiben