Hallo,
Danke für den Vorschlag, habe aber mit Area folgende Lösung gefunden,
Sub Test10()
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Worksheets("Schichtübersicht").Activate
Set r1 = Range("A1:E82")
Set r2 = Range(Cells(1, (Application.WorksheetFunction.VLookup(Sheets("Automatik").Cells(24, 4), Sheets("Tabelle3").Range("A3:b55"), 2, True))), Cells(82, (Application.WorksheetFunction.VLookup(Sheets("Automatik").Cells(26, 4), Sheets("Tabelle3").Range("A3:B55"), 2, True)) + 8))
Set myMultiAreaRange = Union(r1, r2)
myMultiAreaRange.Select
End Sub
über Selection dann im Rest des Makros weitergemacht.
Schönen Gruß,
Ronald
|