Script kopiert Datum nicht
03.04.2003 09:34:43
gringo
Sub InZeile()
Dim lgZiel As Long
With Sheets("Tabelle2")
lgZiel = .[a65536].End(xlUp).Row + 1
.Cells(lgZiel, 1) = [a12]
.Cells(lgZiel, 2) = [a13]
.Cells(lgZiel, 3) = [f18]
End With
End Sub
Leider kopiert es mir den Wert der Zelle A12 nicht, welcher stets das aktuelle Datum des Blattes ist. (A12=HEUTE()) Statt dessen wird 0 eingefügt.
Wer weiß eine Lösung und warum das nicht funzt, würde mich auch ein wenig interessieren.
Danke
Gringo
Anzeige