was ist der einfachste VBA-Lösungsweg um bei einer Zellenselection (teilweise mit mehreren Areas) jede Zeile einmal zu ermitteln? Hier mal ein Beispielmakro mit zwei Areas, die beide Zellen aus Zeile 8 und 9 beinhalten. Bei meinem Code werden die beiden Zeilen daher leider doppelt ermittelt:
Sub SelectedRows()
Dim rngArea As Range
Dim iRow As Integer
'Zellbereich auswählen (Überschneidung Zeile 8 und 9)
Range("B5:B9,C8:C17").Select
'Zeilen ermitteln
For Each rngArea In Selection.Areas
For iRow = 0 To rngArea.Rows.Count - 1
Debug.Print rngArea.Rows.Row + iRow
Next
Next
End Sub
Für Vorschläge bin ich wie immer sehr dankbar!
Viele Grüße
Martin