Arrray in Collection

Forumthread: Arrray in Collection

19.05.2021 20:47:14

Hallo Forum,
ich habe eine Routine, in der ich Informationen sammle. Da mir vorab nicht bekannt ist, wieviele Informationen ich finde, habe ich mich f?r eine Collection entschieden. Da ich pro Eintrag 3 Begriffe ben?tige, habe ich die mit "coll.add item:=Array(V1,V2,V3)" hinzugef?gt. Wenn ich alle Daten verarbeitet habe, muss ich die Coll-Liste von hinten nach vorne abarbeiten. Alles kein Problem.
Doch jetzt habe ich ein Problem: wie komme ich wieder an die Werte meiner ehemaligen Variablen V1, V2 und V3 aus den einzelnen Coll-Eintr?gen?
Wer kann helfen?
Gru? Werner

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Arrray in Collection

19.05.2021 21:28:11

Yal
AW: Arrray in Collection

19.05.2021 21:37:34

W
Arrray in Collection

19.05.2021 20:47:14

W
AW: Arrray in Collection

19.05.2021 21:28:11

Yal
AW: Arrray in Collection

19.05.2021 21:37:34

W

AW: Arrray in Collection

19.05.2021 21:28:11

Yal

Hallo Werner,
einfach so.


Option Explicit
Private C As Collection
Sub Collection_aufbauen()
Dim Z As Range
Set C = New Collection
With Worksheets("Tabelle1")
For Each Z In .Range("A2:A10").Cells
C.Add Array(Z.Value, Z.Offset(0, 1).Value, Z.Offset(0, 2).Value)
Next
End With
End Sub
Sub Collection_lesen()
Dim i
For i = C.Count - 1 To 1 Step -1
Debug.Print i, 0, C(i)(0)
Debug.Print i, 1, C(i)(1)
Debug.Print i, 2, C(i)(2)
Next
End Sub

Eine Allokation zu eine Variant-Variable ist auch m?glich


A = C(i)

VG
Yal

AW: Arrray in Collection

19.05.2021 21:37:34

Hallo Yal,
vielen Dank f?r Deine Antwort.
Mir h?tte eine bestimmte Zeile aus Deiner Antwort schon gereicht:
Debug.Print i, 1, C(i)(1)
Mein Problem ist damit gel?st.
Gru? Werner

Arrray in Collection

19.05.2021 20:47:14

AW: Arrray in Collection

19.05.2021 21:28:11

Yal

Hallo Werner,
einfach so.


Option Explicit
Private C As Collection
Sub Collection_aufbauen()
Dim Z As Range
Set C = New Collection
With Worksheets("Tabelle1")
For Each Z In .Range("A2:A10").Cells
C.Add Array(Z.Value, Z.Offset(0, 1).Value, Z.Offset(0, 2).Value)
Next
End With
End Sub
Sub Collection_lesen()
Dim i
For i = C.Count - 1 To 1 Step -1
Debug.Print i, 0, C(i)(0)
Debug.Print i, 1, C(i)(1)
Debug.Print i, 2, C(i)(2)
Next
End Sub

Eine Allokation zu eine Variant-Variable ist auch m?glich


A = C(i)

VG
Yal

AW: Arrray in Collection

19.05.2021 21:37:34

Hallo Yal,
vielen Dank f?r Deine Antwort.
Mir h?tte eine bestimmte Zeile aus Deiner Antwort schon gereicht:
Debug.Print i, 1, C(i)(1)
Mein Problem ist damit gel?st.
Gru? Werner

Beliebteste Forumthreads (12 Monate)

Forumthread: Arrray in Collection

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread