[VBA] Schleifen verschachteln
21.07.2022 09:39:53
Daargad
ich bin etwas am verzweifeln, was die Verschachtelung von Schleifen angeht.
Ziel: Ich möchte Zellen kopieren und vervielfältigen (über kopieren oder ausfüllen, ist egal)
Quelle --> Ziel (anderes Tabellenbatt)
A2 --> A2
A2 --> A3
A2 --> A4
A2 --> A5
A3 --> A6
A3 --> A7
A3 --> A8
A3 --> A9
A4 --> A10 usw.
Private Sub CommandButton1_Click()
Worksheets(2).Cells.ClearContents
Dim i As Integer
Dim j As Integer
Worksheets(2).Range("C1:M1").Value = Worksheets(1).Range("C1:M1").Value
For i = 1 To 4
Worksheets(2).Range("A" & i + 1).Value = Worksheets(1).Range("A2").Value & "_" & i
Worksheets(2).Range("C" & i + 1 & ":M" & i + 1).Value = Worksheets(1).Range("C2:M2").Value
Next
End Sub
Wie muss ich die Schleife verschachteln, dass ich einerseits in der Zieltabelle die Zellen hochzähle (Einzelinkrement: A2, A3, A4...), jeweils den einen Zellwert aus der Quell-Tabelle aber 4x einfüge (und die Werte aus "C2:M2", "C3:M3" usw).Die ersten vier Pakete sind mit dem obigen Code kein Problem, aber wie mache ich weiter?