Datum und Uhrzeit in Zelle eintragen
09.07.2006 10:15:10
Erich
habe ein Makro mit dem ich verschiedene Zellen aus Inhalten anderer Zellen befülle.
Dieser Vorgang läuft mehrmals täglich. Deshalb soll neben dem Tagesdatum
auch die Uhrzeit des Makros festgehalten werden. Aber den Eintrag der Uhrzeit
bringe ich nicht zustande. Hier mein Ansatz:
Sub Status_kopieren2()
Dim Lrow As Long
Lrow = Cells(Rows.Count, 5).End(xlUp).Row + 1
'''nachstehende Zelle soll auch mit der Uhrzeit befüllt werden:?
Cells(Lrow, 5).FormulaR1C1 = "=TODAY()" ' Datum & Uhrzeit ?
Cells(Lrow, 5).Copy
Cells(Lrow, 5).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Cells(Lrow, 13).Value = Cells(5, 5) 'Korrekturbetrag
End Sub
Besten Dank für eine Hilfe!
mfg
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de
Anzeige