Bereiche aus verschiedenen Tabellenblättern zusamm
05.04.2013 10:37:17
Peter
ich möchte mehrere Bereiche aus verschiedenen Tabellenblättern zusammenfassen.
Wer kann helfen?
Danke Peter
BereichZusammenSheet()
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rngGesamt As Range
With Tabelle1
Set rng1 = .Range("A1:A5")
Set rng2 = .Range("B1:E1")
Set rng3 = .Range("A7:E7")
Set rngGesamt = Union(rng1, rng2, rng3)
rngGesamt.Interior.ColorIndex = 6
End With
Set rng1 = Nothing: Set rng2 = Nothing: Set rng3 = Nothing: Set rngGesamt = Nothing
End Sub
Sub BereichZusammenWorkbook()
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rngGesamt As Range
Set rng1 = Worksheets("TabelleA").Range("A1:A5")
Set rng2 = Worksheets("TabelleB").Range("B1:E1")
Set rng3 = Worksheets("TabelleC").Range("A7:E7")
'Set rngGesamt = ?
rngGesamt.Interior.ColorIndex = 6
Set rng1 = Nothing: Set rng2 = Nothing: Set rng3 = Nothing: Set rngGesamt = Nothing
End Sub
Anzeige