✔ Werte in Array schreiben

[Yaslaw]

Habe ich doch mehr oder weniger

Dim name() as String
Redim name(ende_zeile, 1)
Do
 name(a, 1) =  Worksheets("Sheet1").Cells(a, 1).Value
 adresse = Worksheets("Sheet1").Cells(a, 2).Value

 a = a + 1                                                                     
Loop Until a = ende_zeile

Nachtrag:
Warum ein do...Loop, wenn man mit einem Zähler arbeitet?

Dim name() as String
Redim name(ende_zeile, 1)
For a = 1 to ende_zeile
 name(a, 1) =  Worksheets("Sheet1").Cells(a, 1).Value
 adresse = Worksheets("Sheet1").Cells(a, 2).Value
next a

 

[theva]

Sorry ich bins wieder...

hier zeigt er Fehler an! name(a, 1) = Worksheets("Sheet1").Cells(a, 1).Value

Expected: ).
Nach a soll ")" kommen... macht aber kein Sinn

 

[Yaslaw]

'name' ist ein geschützter Name und sollte nicht verwendet werden.
Benenne die Variable anderst. zB. userName oder familyName etc.
Oder da es eine Ansammlung von Namen ist einfach names

 

[theva]

Ok werde mal probieren.. danke euch