Adressfeld vom Type "Type" mit Schlaufe füllen
17.09.2013 11:02:09
Pepi
Bin vor kurzem auf folgenden Code gestossen - scheint mir noch ganz interessant zu sein.
Type AdressSatz
Nam As String
Vor As String
Adr As String
PLZ As Long
Ort As String
End Type
Sub SU_Adressen_Zuweisen()
Dim Adr As AdressSatz, AdrAkt As AdressSatz
Adr.Nam = "Egi"
Adr.Vor = "Pet"
Adr.Adr = "Woli 22"
Adr.PLZ = 8046
Adr.Ort = "Musterdorf"
AdrAkt = Adr 'Achtung wird automatisch alfabetisch sortert (Adr-Nam-Ort-PLZ-Vor)
MsgBox AdrAkt.Adr & vbLf & AdrAkt.Vor & vbLf
End Sub
ist es möglich dieses Array (sieht für mich als eines aus) mit einer Schlaufe aus einer Datei zu füllen?
mfg Pepi