|
Hey,
Bislang musste ich noch nie großartig etwas Programmieren und daher sind meine Kenntnisse mehr als begrenzt.
Nun stehe ich aber vor einer Fragestellung die es schier unumgänglich macht ein kleines Makro sehr häufig zu wiederholen.
Die Situation ist folgende:
Ich habe über 1000 Wertepaare in B21:C1281
Nun soll jedes Wertepaar kopiert werden in eine einzige Zeile (4) mit jeweils 3 Spaltenabstand (d.h. Zellenauswahl ist +4, richtig?!) zwischen den Paaren kopiert werden.
Nun habe ich folgendes Skript zur Veranschaulichung:
Sub Makro11()
'
' Makro11 Makro
'
'
Range("B21:C21").Select
Selection.Copy
Range("C4").Select
ActiveSheet.Paste
Range("B22:C22").Select
Application.CutCopyMode = False
Selection.Copy
Range("H4").Select
ActiveSheet.Paste
Range("B23:C23").Select
Selection.Copy
Range("L4").Select
ActiveSheet.Paste
Range("B24:C24").Select
Application.CutCopyMode = False
Selection.Copy
Range("P4").Select
ActiveSheet.Paste
Range("B26:C26").Select
Selection.Copy
Range("T4").Select
ActiveSheet.Paste
Range("B27:C27").Select
Application.CutCopyMode = False
Selection.Copy
Range("X4").Select
ActiveSheet.Paste
Range("B28:C28").Select
Selection.Copy
Range("AB4").Select
ActiveSheet.Paste
Range("B29:C29").Select
Application.CutCopyMode = False
Selection.Copy
Range("AF4").Select
ActiveSheet.Paste
End Sub
Ich denke man erkennt, dass die Auswahl-Kopier-Anweisung immer eine Zeile weiter nach unten rutscht. Wie schaffe ich es nun, dass das Makro automatisch bis Zeile 1281 die Anweisungskette ausführt?
Vielen Lieben Dank!!
Sascha
|