Hallo Allerseits.
Ich weiß nicht, ob es eine Lösung mittels For-Schleife für mein Problem gibt, oder ob es eine andere Lösung sein wird. Aber ich stehe auf dem Schlauch und habe das Gefühl, dass ich an einem einfachen Dreisatz scheitere.
Ich will folgendes verkürzen:
1. Ausgangslage
Cells(4, 3).Value = Sheets("Kommune").Cells(2, 5).Value
Cells(5, 3).Value = Sheets("Kommune").Cells(3, 5).Value
Cells(6, 3).Value = Sheets("Kommune").Cells(4, 5).Value
Cells(7, 3).Value = Sheets("Kommune").Cells(5, 5).Value
Cells(8, 3).Value = Sheets("Kommune").Cells(6, 5).Value
Cells(9, 3).Value = Sheets("Kommune").Cells(7, 5).Value
'dann: hier ist eine Lücke von 5 Zeilen
Cells(14, 3).Value = Sheets("Kommune").Cells(2, 6).Value
Cells(15, 3).Value = Sheets("Kommune").Cells(3, 6).Value
Cells(16, 3).Value = Sheets("Kommune").Cells(4, 6).Value
Cells(17, 3).Value = Sheets("Kommune").Cells(5, 6).Value
Cells(18, 3).Value = Sheets("Kommune").Cells(6, 6).Value
Cells(19, 3).Value = Sheets("Kommune").Cells(7, 6).Value
'Wieder Lücke von 5 nach 6 Einträgen....
'bis
Cells(1254, 3).Value = Sheets("Kommune").Cells(2, 130).Value
2. Ausgangslage
Cells(4, 3).Value = Sheets("Kommune").Cells(2, 5).Value
Cells(14, 3).Value = Sheets("Kommune").Cells(2, 6).Value
Cells(24, 3).Value = Sheets("Kommune").Cells(2, 7).Value
Cells(34, 3).Value = Sheets("Kommune").Cells(2, 8).Value
'bis
Cells(1254, 3).Value = Sheets("Kommune").Cells(2, 130).Value
'dann
Cells(5, 3).Value = Sheets("Kommune").Cells(3, 5).Value
Cells(15, 3).Value = Sheets("Kommune").Cells(3, 6).Value
Cells(25, 3).Value = Sheets("Kommune").Cells(3, 7).Value
Cells(35, 3).Value = Sheets("Kommune").Cells(3, 8).Value
Cells(45, 3).Value = Sheets("Kommune").Cells(3, 9).Value
Cells(55, 3).Value = Sheets("Kommune").Cells(3, 10).Value
'bis
Cells(1255, 3).Value = Sheets("Kommune").Cells(3, 130).Value
'wiederholung bis 9,3 , 19,3 und schließlich 1259,3.....
Wie kann ich das verkürzen ohne alles einzeln zu tippen.
Dank im Voraus.