Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Array mit benuzerdefinirtem Typ

Array mit benuzerdefinirtem Typ
26.02.2022 09:58:45
Alex
Hallo Freaks
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array mit benuzerdefinirtem Typ
26.02.2022 10:37:31
Nepumuk
Hallo Alex,
teste mal:

Option Explicit
Public Type Customer
Key As String
CustomerName As String
ContactPerson As String
CustomerAddress As String
CustomerCity As String
End Type
Private Sub Test()
Dim lst() As Customer
Dim i As Long
For i = 0 To 3
ReDim Preserve lst(i)
With lst(i)
.Key = "Versuch " & CStr(i)
.CustomerName = "Hans Huggler"
.ContactPerson = ""
.CustomerAddress = "Brunngasse 19 A"
.CustomerCity = "3800 Matten"
End With
Next
End Sub
Gruß
Nepumuk
AW: Array mit benuzerdefinirtem Typ
26.02.2022 10:52:41
Alex
Danke Nepmuk, das funzt!
Gruss Alex

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige