|
Hallo Zusammen
Ich möchte in einer Tabelle das aktuelle Datum jeweils durch Klick auf einen Button einfügen lassen, jeweils auf der gleichen Zeile wo sich auch der Button befindet. Wenn ich auf den Button in in der Zelle A4 klicke soll das aktuelle Datum in der Zelle N4 eingefügt werden. Wenn ich auf den Button in der Zelle A5 klicke soll das aktuelle Datum in der Zelle N5 eingefügt werden usw.
Bisher habe ich folgendes Makro den Buttons zugewiesen.
1 2 3 4 5 | Sub Datumeinfügen()
ThisWorkbook.Sheets("Tabelle1").Range("N4").Value = Date
End Sub
|
Damit erscheint das aktuelle Datum aber jeweils in der Zelle N4.
Ich habe es dann noch damit versucht:
Sub Datumeinfügen2()
ActiveCell.Offset(0, 13).Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
End Sub
Damit hängt aber die Zielzelle, also dort wo das Datum eingetragen wird, von der gerade aktivierten Zelle ab. Und ich möchte aber, dass die Zielzelle von der Position des gedrückten Buttons abhängt.
Weiss jemand eine Lösung? Habe leider, wie man wohl merkt, keine Ahnung von VBA.
Tausend Dank und beste Grüsse,
Fabian
|