PDA

Vollständige Version anzeigen : Array


freak1982
22.03.2009, 17:14
Hi zusammen,

ich habe mit dem untenstehenden Code Probleme. Ich möchte in den Array mit den Daten aus der Range füllen.


Dim dateninput() as double
ReDim dateninput(n)

dateninput = Worksheets("Arbeitsspeicher").Range("B2:B" & n + 1)

Wenn ich hingegen eingebe

Worksheets("Arbeitsspeicher").Range("B2:B" & n + 1)=dateninput
dann funktioniert es. Aber ich möchte ja nicht die Daten auslesen sonder einlesen ;)

jinx
22.03.2009, 17:34
Moin, freak1982,

Dim varDateninput As Variant
Dim lngLetzte As Long
lngLetzte = 15

With Worksheets("Arbeitsspeicher")
varDateninput = .Range("B2:B" & lngLetzte).Value
.Range("d1").Resize(UBound(varDateninput, 1), UBound(varDateninput, 2)).Value = varDateninput
End With

freak1982
22.03.2009, 18:05
Hi jinx,

Vielen Dank.

ich habe nur ein problem wenn ich das auf diesem wege löse dann kann ich nicht mehr einzelne teile des array ansprechen: z.B. dateninput(4) also die vierte zelle.

kann ich das nicht per per range wie ich oben das beschrieben habe lösen.

jinx
22.03.2009, 18:27
Moin, freak1982,

das Array ist zweidimensional: die Zeilenzahl sowie eine 1 für die Spalte... ;)

Sub freak()
Dim varDateninput As Variant
Dim lngLetzte As Long
lngLetzte = 15

With Worksheets("Arbeitsspeicher")
varDateninput = .Range("B2:B" & lngLetzte).Value
.Range("D1").Value = varDateninput(4, 1)
End With
End Sub

freak1982
22.03.2009, 18:46
man bin ich blöd ;)

aber ich hab ja euch

vielen dank