Hallo,
ich habe dieses Macro von einem Excel-Sheet übernommen.
In den Zelle A1-A... stehen Daten von 2000-2005
Das Macro sucht in der Datei das aktuelle Datum und soll gewisse Dinge ausführen. Das aktuelle Datum steht in T2 als =today().
Starte ich dieses Macro, werden die Dinge nicht beim aktuellen Datum sondern in der Zeile 38105 (=aktuelles Datum als Zahl)ausgeführt.
Kann mir jemand sagen, wo das Problem bei diesem Macro liegt.
Danke
Sub tageslauf()
' heute = today()
Windows("datenbasis.xls").Activate
Sheets("Sheet1").Activate
v_pos = Sheets("Sheet1").Range("T2").Value
If Not IsError(v_pos) Then
Sheets("Sheet1").Cells(v_pos, 1).EntireRow.Select
Selection.Interior.ColorIndex = xlNone
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Cells(v_pos, 1).Select
ActiveSheet.Cells(v_pos, 20).Value = Now
ActiveWorkbook.Save
End