Hi Lokimo,

Deine Beschreibung passt nicht zu deinem Code. Du schreibst du würdest For Each Loop benutzen, was schon mal quatsch ist. Entweder For Each Next oder Do Loop. Stattdessen verwendest du aber For To Next.

Für die Wiedergabe von nicht angrenzenden Bereichen gibt es die Areas-Eigenschaft. Wird diese nicht verwendet, wird in den meisten Fällen nur die erste Area zurückgegeben.

Was immer du machen willst, probiers mal so:

For Each ar In Selection.Areas
  For Each rw In ar.Rows
    '...
  Next rw
Next ar

rw gibt hier einen Bereich wieder der der Zeile einer deiner Markierungen enspricht. Mit rw.Cells(2) sprichst du z.B. die zweite Zelle innerhalb der Markierung an.

Gruß Mr. K.