for next schleife - zeilen mit abstand
20.08.2020 10:57:11
Christiane
per Makro möchte ich aus 12 Tabellenbereichen (Monaten) jeweils eine bestimmte Zeile (mit insgesamt 28 Fledern / Daten) in ein anderes Tabellenblatt untereinander wiedergeben.
Das klappt auch ganz gut, aber nur, wenn ich die 12 for/next schleifen untereinander schreibe.
Die Variable b = 6 (1. Zeile in erstem Bereich), danach soll es mit 45er Schritten weitergehen
(im 2. Bereich ist das Zeile 52, im 3. Bereich Zeile 96 usw.).
Ich bekomme das aber nicht hin.
Sub Monat1()
tab1 = 34
tab2 = 62
tab3 = 90
tab4 = 118
Tab5 = 146
Tab6 = 174
Tab7 = 202
Tab8 = 230
Tab9 = 258
Tab10 = 286
Tab11 = 314
tab12 = 342
a = 15
b = 6
d = 15
e = 15
For u = 7 To tab1
Worksheets("P1").Cells(u, 3).Value = Worksheets("Lewe").Cells(b, a).Value
a = a + 1
Next u
For u2 = tab1 + 1 To tab2
Worksheets("P1").Cells(u2, 3).Value = Worksheets("Lewe").Cells(51, d).Value
d = d + 1
Next u2
For u3 = tab2 + 1 To tab3
Worksheets("P1").Cells(u3, 3).Value = Worksheets("Lewe").Cells(96, e).Value
e = e + 1
Next u3
End Sub
Gruuß Christiane