Hallo fedjo,

leider nicht verständlich, was Du erreichen möchtest.
Was meinst Du mit "2 Zellen nach links"?.
Von welcher Spalte nach links? Von Spalte C? Wenn ja, dann handelt es sich doch um Spalte A oder sehe ich das falsch?

Wenn dem so ist, dann sollte der nachfolgende Befehl Dir weiterhelfen.

Range("A" & Range("A65536").End(xlUp).Offset(1, 0).Row & ":A" _
    & Range("C65536").End(xlUp).Row) = CDate(Format(Now, "dd.mm.yyyy"))

Wenn ich föllig falsch liege, dann erklöre bitte etwas genauer, was Du Dir als Endlösung vorstellst.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver,
genau so hatte ich es gemeint.
Spalte "A" sollte mit Datum gefüllt werden bis zur letzten Zelle von "C" mit Daten.

Der Befehl funktioniert wie ich es mir vorgestellt habe.

Danke für deine Hilfe.

Gruß
fedjo