Hi,
du kannst die beiden Ranges durch den Union-Befehl zu einem dritten Bereich zusammenfügen:
Dim rng1, rng2 As Range, rngGesamt As Range
Set rng1 = Range(Cells(1, 7), Cells(letztezeile, 7))
Set rng2 = Range(Cells(1, 9), Cells(letztezeile, 9))
Set rngGesamt = Union(rng1, rng2) '<== gemeinsamer Bereich
Oder, wenn du keine extra Variable verwenden willst, geht es auch so:
Dim rng1, rng2 As Range
Set rng1 = Range(Cells(1, 7), Cells(letztezeile, 7))
Set rng2 = Range(Cells(1, 9), Cells(letztezeile, 9))
Set rng1 = Union(rng1, rng2) '<== gemeinsmaer Bereich
Bis später, Karin