Range als Array einer Collection geben
27.02.2021 22:52:28
SchubertFranzl
ich würde gerne einen Bereich als Array in eine Collection ablegen, mit einem Befehl. Geht das?
Sub Array_In_Collection()
Dim Bereich As Range
Dim Feld As Variant
Dim Sammlung As New Collection
Range("A1") = "Guten Tag"
Set Bereich = Range("A1:C20")
Feld = Bereich
Sammlung.Add Feld, "Worte"
Debug.Print Sammlung("Worte")(1, 1) 'ergibt "Guten Tag"
End Sub
Liebe Grüße, Franzl