mein Versuch mehrere Objekte zu einem Gesamtobjekt
zusammenzufassen sind gescheitert.
Wer kann helfen?
Dake
Peter
Sub Test()
Set rng1 = Worksheets("Tabelle1").Range("A1,E7")
Set rng2 = Worksheets("Tabelle2").Range("A2")
Set rng3 = Worksheets("Tabelle3").Range("A3,A6")
rng1.Value = "a"
rng2.Value = "a"
rng3.Value = "a"
'Set rngGes = Array(rng1, rng2, rng3)
'Set rngGes = Array(Worksheets("Tabelle1").Range("A1,E7"), Worksheets("Tabelle2").Range("A2"), _
_
_
Worksheets("Tabelle3").Range("A3,A6"))
'rngGes.Value = "a"
End Sub