Richtige Felddeklaration bzw. Definition gesucht

[Wulfi]

Hallo Leute,
habe ein kleines Problem mit der Felddeklaration bzw. Definition.

Habe folgenden Code Geschrieben:

Code:

Dim varT As Variant
Dim varH As Variant

varT = Range("B1:B20").Value

varH(10,1) = varT(5,6)

Mein Problem ist Folgendes: Das Feld varH soll die gleiche Dimension wie varT haben damit ich den einzelnen Elementen aus varH Elemente aus dem Feld varT zuweisen kann.
Das Feld varH soll zunächst leer sein. Wie muss ich varH deklarieren bzw. defenieren damit eine solche Zuweisung z.B. 

Code:

varH(10,1) = varT(5,6)

möglich ist. Danke für eure Hilfe.

[atilla]

Hallo Wulfi,

der Bereich B1:B20 ist eindimensional, deswegen geht so etwas nicht:

Code:

varT(6, 5)

Unten ein Beispielcode, wie es mit deinem Bereich geht:

Code:

Sub test()
 Dim varT As Variant
 Dim varH()
 
 varT = Range("B1:B20").Value
 ReDim varH(UBound(varT) - 1)
 MsgBox varT(6, 1)
 varH(10) = varT(6, 1)
 MsgBox varH(10)
End Sub

Schau Dir in der Excel Hilfe Redim und Redim Preserve mal an.

[Wulfi]

Halllo Atilla,

habe durch ausprobieren mittlerweile schon selber eine Lösung zusammengebastelt. Werde mir aber heute abend
auch noch mal deinen Vorschlag etwas genauer anschauen. Danke.

[Steffl]

Hallo Atilla,

der Bereich B1:B20 ist eindimensional, deswegen geht so etwas nicht:

bei mir wäre die Variable, wenn ich den Bereich B1:B20 zuweise aber zweidimensional, obwohl es nur eine Spalte ist.