Hi Mase,
vielen Danke für deine tolle Erklärung. Langsam aber sicher steige ich dadurch :)
Ich habe mich für deinen zweiten Lösungsvorschlag entschieden:
If Intersect(rng, rng.SpecialCells(xlCellTypeVisible), rng.Offset(1, 0)) Is Nothing Then GoTo LinePeng1
For Each vArea In Intersect(rng, rng.SpecialCells(xlCellTypeVisible), rng.Offset(1, 0)).Areas
Thema #LZF erhalte ich i.d.R. Nr.19 :D
aber jetzt klappts wunderbar!
beste Grüße!
|