Tagesdatum als Wert in gefilterte Zellen einfügen

Question

Hallo Excelkönner,

ich habe in meiner Excel folgende Herausforderung:
Die Tabelle wird unterschiedlichst manuell gefiltert.
Dann soll in der gefilterten Spalte AC, im Bereich 2:45000, das Tagesdatum als Wert eingetragen werden.

Ich habe schon einige Threads in dieser Richtung gefunden, aber leider nicht meine Lösung, bzw. bin ich zu trottelig die Lösungen an mein Problem anzupassen.

Sorry, bin halt ein VBA-DAU.
Hoffe, ich konnte mein Problem verständlich schildern

Vielen Dank schon mal für lesen, nachdenken und (hofentlich) lösen. :-)

Gruß Maik

Answer 1

Hallo Maik,

versuch es mal so:

Sub datum_einfuegen()

Dim rngZelle As Range

'nur sichtbare Zellen durchlaufen
For Each rngZelle In Range("AC2:AC45000").Cells.SpecialCells(xlCellTypeVisible)
rngZelle.Value = Date 'Datum einfügen
Next

End Sub

Gruß

M.O.

Answer 2

Moin M.O.

GAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANZ GROOOOOOOOOOOOOOOOOOOOOOOOOOOSSES

DAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAANKE

Gruß Maik

Answer 3

Hallo Maik,

na das nenn' ich mal Begeisterung ;-).

Gruß

M.O.