ich stehe gerade vor folgendem Problem:
Ich möchte Daten aus Zellen auslesen und diese in Variablen schreiben. Um nicht jede einzelne Variable aufzuführen, möchte ich diese in einer For-Schleife oder ähnlichem hochzählen.
In einfacher Darstellung sieht es so aus (Das schreiben in Range(..) ist nur eine Kontrolle, ob es funktioniert):
Private Sub Zuordnung_Click()
Dim Abschn(0 To 10000) As String
'Einlesen in unterschiedliche Variablen
For i = 1 To 3
Abschn(i) = Cells(5 + i, 2)
Next i
Range("G6") = Abschn1
Range("G7") = Abschn2
Range("G8") = Abschn3
End Sub
Danke für eure Hilfe
Gruß
Lars