Verschachtelte For-Schleife: Zahlen in Zelle
22.05.2019 16:33:39
David
ich bin noch ein blutiger Anfänger in VBA, aber hoffe trotzdem, dass man mich versteht und mir Helfen kann. Ich bedanke mich jetzt schon für hilfreiches Feedback :)
--------------------------------------
Ich möchte, dass im inneren Schleifendurchgang in den Zeilen der Spalte B die Zahlen 1 bis 23 rein geschrieben werden. Sobald die Zahl 23 geschrieben wurde, soll in der nächsten Zeile wieder bei 1 begonnen werden.
Aktuell werden die Zahlen 1 bis 23 in Spalte B geschrieben, aber sobald die äußere Schleife greift, dann zählt er danach direkt weiter, also 24, 25 usw.
Ich habe das schon mit einer If-Bedingung versucht, aber ich bekomme es irgendwie nicht hin.
Ich hoffe mir kann hier geholfen werden.
Beste Grüße und einen wundervollen Tag
David
Sub test()
Dim i As Integer
Dim j As Integer
j = 1
x = 23
For i = 1 To 3
For j = j To x
Range("B" & 1 + j).Value = j _
Range("C" & 1 + j).Value = Range("M" & i) _
Range("D" & 1 + j).Value = Range("N" & i) & " " & Range("O" & i) _
Range("E" & 1 + j).Value = Range("N" & i) _
Range("F" & 1 + j).Value = Range("O" & i)
Range("A" & 1 + j).Value = "Akzent_" & Range("B" & 1 + j) & "_" & Range("M" & i)
Next j
x = x + 23
Next i
End Sub
Anzeige