Hallo liebe Excel Freunde,
leider kann ich den Beitrag nicht im richtigen Unterforum verfassen, da derzeit Wartungsarbeiten stattfinden.
Ich hoffe, ihr könnt mir hier helfen.
In der Zelle A1 habe ich die Formel "zu heute" drin. Diese funktioniert soweit wunderbar.
Mein Makro soll auf "zu heute" klicken und dadurch auf das aktuelle Datum springen. Dieses soll er mit den 28 neben liegenden Zeilen markieren, kopieren und nur wertemäßig einfügen.
Auf das "zu heute" kann verzichtet werden, Hauptsache er springt auf das aktuelle Datum und macht dann wie oben beschrieben weiter.
Mein Code sieht folgendermaßen aus:
Sub Makro1()
'
' Makro1 Makro
'
'
Sheets("Daten").Select
Range("A1").Select
Application.Goto Reference:="R6C1"
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 28)).Select
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Gemba").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub
Ich vermute, es liegt auch an diesem "R6C1"
vielen lieben Dank
|