Schleife
28.09.2005 13:31:02
Matte
Ich muss ein Makro, dass mit der Aufzeichnungsfunktion erstellt wurde,
mit Schleifen versehen. Dadurch soll es beliebig erweiterbar sein.
Meine Schleife funktioniert natürlich nicht und hat im Forum nur
viele Fragen ausgelöst, daher lass ich diese mal weg.
Wüsste jemand wie man folgenden Teil als Schleife schreiben könnte?
Bin auch mit Ansätzen zufrieden.
' 0Kombination
Range("4:18,45:46,53:53,56:58,148:148,154:156").Copy
Sheets("Auswertung").Select
ActiveSheet.Paste
' 1Kombination
Sheets("Land").Select
Range("204:218,245:246,253:253,256:258,348:348,354:356").Copy
Sheets("Auswertung").Select
Range("A48").Select
ActiveSheet.Paste
' 2Kombination
Sheets("Land").Select
Range("404:418,445:446,453:453,456:458,548:548,554:556").Copy
Sheets("Auswertung").Select
Range("A95").Select
ActiveSheet.Paste
' 3Kombination
Sheets("Land").Select
Range("604:618,645:646,653:653,656:658,748:748,754:756").Copy
Sheets("Auswertung").Select
Range("A142").Select
ActiveSheet.Paste
... .
Es sollen alle in Range angegebene kompletten Zeilen/Zeilenbereiche vom ArbeitblattLand ins Arbeitsblatt Auswertung kopiert werden. Dieses muss
aber für jede Kombination einzeln erfolgen!
Das gute ist, dass die zu kopierenden Zeilen sich alle 200 Zeilen wiederholen.
Siehe 4, 204, 404, 604 ....., Formel: 4+200*x für x=0 bis ...
Kann man diese Formel in die Schleife einbauen und den Laufindex x
zur Berechnung der zu kopierenden Zeilen nutzen?
Auch bei zweiten Range gibt es eine Formel 1+47*x für x=0 bis ...
Vielen vielen Dank
Matte