Office: (Office 2010) Excel Makro Problem

Guten Tag,

ich bin ganz neu hier und hoffe auf Hilfe.

Ich versuche grade ein Importskript für meinen Shop zu bauen.

Problem:
Ich würde gerne in einem Excelblatt per Makro die Zeilen 2-8 kopieren und in Zeile 9-15 wieder einfügen. Danach soll dieser Pack kopiert werden und ab Zeile 16 eingefügt werden usw.

Desweiteren sollen sich ein Wert in Zelle A2, A9, A16 immer um 1 erhöhen (maßgebend ist der Wert von A2)

Könnt Ihr mir Tips geben?

Wie ich das am besten anpacke?

Hier meine normale Aufzeichnung vom kopieren.

Grüße
Tobi

 

Hallo Tobi,

das kopieren geht auf jeden Fall kürzer:

Code:

Sub Test()

'kopiert die Zeilen 2 - 8 nach A9
Rows("2:8").Copy Destination:=Range("A9")
 
End Sub

Was meinst du mit: Desweiteren sollen sich ein Wert in Zelle A2, A9, A16 immer um 1 erhöhen (maßgebend ist der Wert von A2)
und welchen Pack, also welche Zeilen willst du dann nach A16 kopieren?

Immer eins hinzufügen würde z.b bei A2 und A9 so gehen:

Code:

 'Hier wird der Wert der in den beiden Zellen steht um eins erhöht.
 Range("A2") = Range("A2").Value2 + 1
 Range("A9") = Range("A9").Value2 + 1

Mfg

Manta

 

Hallo Manta,

erstmal danke für deine Antwort!
Ok das mit dem kopieren hat er mir so ausgespuckt :) dann übernehme ich deinen Vorschlag.

Der Wunsch wäre das immer wieder die gleichen 7 Reihen kopiert werden. Maßgabe wäre dann der erste Pack von 2-8. Der ist Standardmäßig vorhanden und wird zuerst ausgefüllt.

Was meine ich mit:
Wenn in A2 der Wert "1" steht. Soll beim kopiervorgang des nächsten packes in A9 eine "2" stehen, in A16 eine "3" usw.

Grüße
Tobi