Datum in Makro
06.03.2009 13:54:15
chris58
Ich benötige nochmals eure Hilfe. Ich habe mit dem Makrorecorder das u.a. Makro aufgezeichnet. Nun habe ich Problem das ich nicht lösen kann. Wie kann ich das machen (bzw. Eintragen), das nachdem das Makro ausgeführt wurde in Zeile/ Spalte E8 das Datum von Heute automatisch eingetragen wird.
Danke für Eure Hilfe
chris
Sub Summenübertrag()
' Summenübertrag Makro
' Makro am 05.03.2009 von chris aufgezeichnet
ActiveWindow.SmallScroll Down:=24
Range("G41").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-30
Range("G7").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=27
Range("H41").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-24
Range("H7").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=30
Range("I41").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=-36
Range("I7").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("E8").Select
Application.CutCopyMode = False
Selection.Copy
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("E8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "3/5/2009"
Range("G8").Select
ActiveCell.FormulaR1C1 = ""
Range("H8").Select
ActiveCell.FormulaR1C1 = ""
Range("I8").Select
ActiveCell.FormulaR1C1 = ""
Range("G8").Select
End Sub
Anzeige