ich wende mich wieder mit einer Makro-Verkürzungs/Veredelungs-Frage an euch. Besteht die Möglichkeit, das nachfolgende Makro zu verkürzen? Es werden immer die gleichen Spalten ausgewählten, bei den Zeilen erfolgt immer ein Sprung zwischen 14 und 8 Zeilen.
Da ich ein Blatt mit 5.000 Zeilen habe, wäre mir sehr geholfen wenn ich nicht alle Zeilen wie in diesem Beispiel aufschreiben müsste :)
Vielen Dank für eure Hilfe!
Stefan
Sheets("Vertrieb_Kompetenz").Select
For lngZeile = 19 To 37 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 45 To 53 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 67 To 85 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 93 To 101 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 115 To 133 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 141 To 149 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 163 To 181 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 189 To 197 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 211 To 229 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 237 To 245 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 259 To 277 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 285 To 293 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 307 To 325 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 333 To 341 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 355 To 373 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next
For lngZeile = 381 To 389 Step 2
Cells(lngZeile, 10).Value = "..."
Cells(lngZeile, 23).Value = "..."
Cells(lngZeile, 36).Value = "..."
Cells(lngZeile, 49).Value = "..."
Cells(lngZeile, 62).Value = "..."
Cells(lngZeile, 75).Value = "..."
Cells(lngZeile, 88).Value = "..."
Cells(lngZeile, 101).Value = "..."
Cells(lngZeile, 114).Value = "..."
Cells(lngZeile, 127).Value = "..."
Cells(lngZeile, 140).Value = "..."
Cells(lngZeile, 153).Value = "..."
Cells(lngZeile, 166).Value = "..."
Cells(lngZeile, 179).Value = "..."
Cells(lngZeile, 192).Value = "..."
Cells(lngZeile, 205).Value = "..."
Next