So hier ein kleines beispiel. Hoffe das es gleich funktioniert kann es gerade nicht testen. Das beispiel speichert die 10 Adressen im Array und gibt dir anschliesend jede adresse in einer MsgBox noch einmal aus das du siehst
was es im Array gespeichert hat.
Dim zaehler As Integer
zaehler = 0
Dim arrAdresse(10, 6) As String 'Maxmial 10 einträge
'Speichert dir 10 Adressen in dem Array wobei
'die werte gleich sind bis auf die nummer am ende
For zaehler = 0 To 9
arrAdresse(zaehler, 0) = "Name" & zaehler
arrAdresse(zaehler, 1) = "Nachname" & zaehler
arrAdresse(zaehler, 2) = "strasse" & zaehler
arrAdresse(zaehler, 3) = "Plz" & zaehler
arrAdresse(zaehler, 4) = "Ort" & zaehler
arrAdresse(zaehler, 5) = "Telefonnummer" & zaehler
Next zaehler
'Jede einzelne adresse ausgeben
For zaehler = 0 To 9
MsgBox ("Name: " & arrAdresse(zaehler, 0) & vbCrLf & _
"Nachname :" & arrAdresse(zaehler, 1) & vbCrLf & _
"Strasse: " & arrAdresse(zaehler, 2) & vbCrLf & _
"PLZ: " & arrAdresse(zaehler, 3) & vbCrLf & _
"Ort: " & arrAdresse(zaehler, 4) & vbCrLf & _
"Tel.: " & arrAdresse(zaehler, 5))
Next zaehler
So ich hoffe das dir nach dem beispiel alles klar ist.
