Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arrray in Collection

Arrray in Collection
19.05.2021 20:47:14
W
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
AW: Arrray in Collection
19.05.2021 21:37:34
W
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige