was ist falsch?
31.03.2009 10:09:28
Andi
ich habe folgendes Problem mit folgendem Makro:
Sub Makro2()
Dim a As Integer
Dim x As Integer
Range("J4").Value = a
For x = 1 To a
Rows("10:10").Select
Selection.Copy
Range("A10+(x-1)*40").Select
ActiveSheet.Paste
Next x
End Sub
Dieses Makro soll die Zeile 10 kopieren und an der Richtigen stelle einfügen. Nach meiner Vorstellung geht das so:
In J4 steht z.B eine 5:
Dann soll die Zeile 10 nach dem ausführen des Markos in die Zeilen 10, 50, 90, 130 und 170 stehen, also immer 40 Zeilen weiter unten wieder eingefügt werden und insgesamt 5 mal (Welches dem Wert in J4 entspricht).
Schlussendlich habe ich dann die Werte aus Zeile10 5mal auf dem Blatt.
Hoffe ihr wisst was ich meine und könnt mir helfen!
Gruss ANdi