Hoffe ihr könnt mir helfen. Meine Schleife steht unten, funktioniert natürlich nicht.
Ich habe folgendes Problem:
Ich hole aus dem Arbeitsblatt "Land" verschiedene ausgewählte Kennziffern (ganze Zeilen sollen kopiert werden) für ein Land. Das Arbeitsblatt "Land" sieht so aus:
Land A
Kennziffer 1 für Land A
Kennziffer 2 für Land A
Kennziffer 3 für Land A
Land B
Kennziffer 1 für Land A
Kennziffer 2 für Land A
Kennzi...
Diese ausgesuchten Kennziffern sollen in das Arbeitsblatt "Auswertung"
kopiert werden, aber immer für ein Land.
Die Kennziffern wiederholen sich alle x Zeilen nur für ein anderes Land.
"Auswertung" ist also nur eine verkürzte Version von "Land" wo die meisten Kennziffern ausgelassen werden z.B.
Land A
Kennziffer 1 für Land A
Land B
Kennziffer 1 für Land B
....
Dieser Kopiervorgang soll nun automatisiert werden.
Hier meine nicht funktionierende Schleife (hört auf zu lachen :) !):
For i = 0 To 49
Sheets("Land").Select
Range("(4+(i*200)):(18+(i*200)),...,(154+(i*200)):(156+(i*200))").Copy
Sheets("Auswertung").Select
Range("A(1+i*47)").Select
ActiveSheet.Paste
Next i
Für 50 Länder soll das gemacht werden.
Range("(4+(i*200)):(18+(i*200)),...,(154+(i*200)):(156+(i*200))").Copy
hiermit soll die entsprechende Position der Kennziffern im Arbeitsblatt
"Land" berechnet und kopiert werden. Wie kann man die Berechnung aus
Range raus bekommen oder "schützen"?
Range("A(1+i*47)").Select
hiermit soll die Startposition der ausgewählten Kennziffern im neuen Arbeitsblatt "Auswertung" berechnet und kopiert werden in Spalte A und Zeile 1+i*47.
Weis jemand wie es richtig geht? Ist das "so" überhaupt möglich?
Danke
Matte