Hallo Leute,
ich benötige ein Copy Paste Makro eines gewissen Teilbereichs. Leider bin ich im VBA Bereich Anfänger und komme nich weiter.
Es werden Daten in ein Sheet gezogen. Ausgehend vom Aktulisierungsdatum, welches mit dem Befehl =heute() hinterlegt ist, soll ab diesem Datum 365 Tage in die Vergangenheit gegangen werden.
Danach sollen diese 365 Tage kopiert und in ein anderes Sheet übertragen werden.
Bisher bin ich hier und komme nicht weiter:
Sheets("Sheetname").Select
Selection.Find(What:="Sheetname1Y:C1", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range("$A(x-365):$Dx").Select
Range("x").Activate
Selection.Copy
Sheets("Sheetname1Y").Select
Application.Run "BLPLinkReset"
Range("A5:E5").Select
ActiveSheet.Paste
End Sub
for x = Active.Cell
--------------------
Wie bekomm ich es hin, dass nach dem Suchen die aktive Zelle gespeichert wird und von dieser Zelle 365 abgezogen werden und dann dieser Bereich kopiert wird? Ist meine Range unter Eingabe dieser Formel richtig?
Vielen Dank im Voraus |