Datum in Letzte Zelle eintragen

[derhard]

Hallo zusammen,
Bitte um VBA Hilfe


In einer dynamischen Tabelle möchte ich gerne in einer markierten Aktiven Spalte in die Letzte Zelle ein Datum via Button (VBA-Lösung) eintragen.
Dies sollte bei jeder markierten Spalte der Fall sein deswegen Aktiven Spalte!

Für Eure Hilfe wäre ich sehr dankbar!

Gruß Derhard

[00202]

Hallo, :19:

so: :21:
[attachment=23005]

[derhard]

Hallo 
Vielen Dank für Deine schnelle Hilfe,
Das Makro funktioniert.

Jetzt habe ich aber noch eine Bitte,
läßt sich das Datum noch mit Wochentag im Format: 09.03.2019,Sa
eintragen!!

Vielen Dank
Gruß Derhard

[00202]

Hallo, :19:

so: :21:

Code:

.Cells(.Cells(.Rows.Count, ActiveCell.Column).End(xlUp).Row + 1, ActiveCell.Column).Value = Format(Date, "dd.mm.yyyy, ddd")

[derhard]

Hallo,
Vielen Dank
Funktioniert super...


Gruß Derhard