Option Explicit
Private Enum TGeschlecht
Maennlich
Weiblich
End Enum
Private Type TPerson
Name As String
Vorname As String
Alter As Byte
Geschlecht As TGeschlecht
End Type
Public Sub Test()
Dim udtPerson As TPerson
udtPerson = NeuePerson("Mustermann", "Max", 26, Maennlich)
Debug.Print "[udtPerson]"
Call DebugPrintPerson(udtPerson)
Dim audtPerson() As TPerson
Dim i As Long
ReDim audtPerson(1 To 3)
audtPerson(1) = NeuePerson("Lichter", "Horst", 52, Maennlich)
audtPerson(2) = NeuePerson("Baumann", "Inge", 42, Weiblich)
audtPerson(3) = NeuePerson("Schmidhuber", "Bernd", 32, Maennlich)
Debug.Print "[audtPerson]"
For i = LBound(audtPerson) To UBound(audtPerson)
Call DebugPrintPerson(audtPerson(i))
Next
End Sub
Private Function NeuePerson(Name As String, Vorname As String, Alter As Byte, Geschlecht As TGeschlecht) As TPerson
With NeuePerson
.Name = Name
.Vorname = Vorname
.Alter = Alter
.Geschlecht = Geschlecht
End With
End Function
Private Sub DebugPrintPerson(Person As TPerson)
With Person
Debug.Print """" & .Name & ", " & .Vorname & """, " & IIf(.Geschlecht = Weiblich, "weiblich", "männlich") & ", " & .Alter & " Jahre"
End With
End Sub