Array mit benuzerdefinirtem Typ
26.02.2022 09:58:45
Alex
Ich möchte einen Array mit einem benuzerdefinierten Datentyp befüllen.
Public Type Customer
Key As String
CustomerName As String
ContactPerson As String
CustomerAddress As String
CustomerCity As String
End Type
Zu testzwecken wird folgender Sub ausgeführt:
Private Sub Test()
Dim lst() As Customer
Dim i As Long
For i = 0 To 3
ReDim lst(i)
Dim cust As Customer
'Static cust As Customer
cust.Key = "Versuch " + CStr(i)
cust.CustomerName = "Hans Huggler"
cust.ContactPerson = ""
cust.CustomerAddress = "Brunngasse 19 A"
cust.CustomerCity = "3800 Matten"
lst(i) = cust
Next
End Sub
Nun werden leider die Customerwerte 0,1 und 2 jeweils as "" angezeit. Auch der versuch die Variable cust als Static zu bezeicnen, bring nich das gewünschte Resultat.Wie muss ich den Array befüllen, damit alle Werte von 0 bis 3 angezeigt werden?
Freundliche Grüsse Alex