Hallo Forum

Um die Untererzeichnisse auszuwerten, hatte ich bisher eine Routine mit "Collection" im Einsatz. Doch bei dieser Technik gibt es ein Limit von 256.

Nun versuche ich gerade, eine Lösung mit einer Array-Variablen zu erstellen. Mein Problem dabei: ich kann nur eine eindimensionale Struktur verwenden, da ich die Zahl der maximalen Einträge erst ermitteln muss.

Dann hatte ich eine Idee, und im ersten Schritt funktioniert die auch:

Option Explicit
Sub Versuch1()
Dim AVar As Variant
Dim T As Integer
ReDim AVar(0 To 0)
For T = 1 To 9
ReDim Preserve AVar(1 To UBound(AVar) + 1)
AVar(UBound(AVar)) = Array(T * 1, T * 3, T * 7)
Next T
Stop
End Sub

Soweit, so gut.
Mein Problem: wie kann ich die Daten wieder trennen?

Die In Array() verwendeten Werte sind nur zur Demo,

Wer kann helfen?

Gruß Joschi