Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.04.2024 16:25:39
Anzahl Zeilen in Zelle ermitteln
29.04.2024 16:13:25
Kartrennen Rundenzeiten formatieren
29.04.2024 15:40:44
Zeitintervall festlegen
29.04.2024 15:08:20
Bedingte Formatierung
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

5
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
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
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