Today()
01.03.2008 15:11:00
Rolf
Im folgendem Makro soll das aktuelle Datum in die neue zeile eingefügt werden. Aber als Wert, nicht als Formel.
Vielen Dank im voraus.
Gruss Rolf K.
Sub Stammdaten_Kasse_Aktuell_58()
Dim Loletzte As Long
With Sheets("Kasse Aktuell")
If .Range("C189") = "" Then
Loletzte = .Range("C189").End(xlUp).Row
.Cells(Loletzte + 1, 3) = ActiveCell
'Diese Zeile kopiert die Formel in die neue Zeile
'Es soll aber das Datum als Wert in die neue Zeile kopiert werden
Loletzte = .Range("C189").End(xlUp).Row
.Cells(Loletzte, 2) = "=TODAY()"
Loletzte = .Range("C189").End(xlUp).Row
.Cells(Loletzte, 4) = "58"
Loletzte = .Range("C189").End(xlUp).Row
.Cells(Loletzte, 11) = "17"
Loletzte = .Range("C189").End(xlUp).Row
.Cells(Loletzte, 13) = "36"
Loletzte = .Range("C189").End(xlUp).Row
.Cells(Loletzte, 15) = "5"
Else
MsgBox "keine Zelle mehr frei"
End If
End With
Sheets("Kasse Aktuell").Select
End Sub
Anzeige