Variable aus verschiedenen Zellen - Makro loopen
Nontacky
ich habe ein Makro, das zu Beginn mit einer Variable arbeitet = den Wert einer Zelle kopiert und an eine bestimmte Stelle wieder einsetzt. Nun muss das Makro aber mehrfach durchlaufen und den Wert immer aus der gleichen Zeile nur eine Spalte weiter kopieren und an die gleiche Stelle einsetzen.
Mein Makro sieht so aus (nur der Anfang - der Rest is ja eh immer gleich). Aus der Tabelle "Abrechnung" sollen eben die Werte von Zelle f4 dann g4, dann h4, etc. (bis AA4) in Zelle E2 von "Writer-Statement" kopiert werden. Jedes Mal soll das Makro komplett durchlaufen, und am Ende eben wieder an den Anfang springen, den Wert aber nicht mehr aus f4, sondern aus g4, usw. übernehmen.
Sheets("Abrechnung").Select
Range("f4").Select
Selection.Copy
Sheets("Writer-Statement").Select
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$D$5:$L$3000").AutoFilter Field:=5, Criteria1:="=" & CStr(Range("e2").Value), Operator:=xlAnd
Range("D1:K3000").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abrechnung-Übertrag").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Ich kann mit solchen Variablen leider gar nicht umgehen und habe auch nichts passendes im Forum gefunden.
Vielen Dank für eure Hilfe,
Nontacky