Excel aufmöbeln mit VBA

NewPersW
Pers=NewPersW("Müller", "Lieschen") Pers.Nachname
Kopie = Pers
Kopie Pers
Vorname Kopie
Vorname Pers
PersonToString
Option Explicit
Public Type Person
Nachname As String
Vorname As String
Geschlecht As String * 1
GebDat As Date
End Type
Function NewPersW(ByRef n As String, ByRef vn As String) _
As Person
NewPersW.Nachname = n
NewPersW.Vorname = vn
NewPersW.Geschlecht = "W"
NewPersW.GebDat = Now() - Time()
End Function
Function PersonToString(ByRef p As Person) As String
PersonToString = p.Vorname & " " & p.Nachname & ", geb. " _
& p.GebDat
End Function
Sub TestPerson()
Dim Pers As Person, Kopie As Person
Pers = NewPersW("Müller", "Lieschen")
Kopie = Pers
Kopie.Vorname = "Helena"
MsgBox PersonToString(Pers) & ", " & PersonToString(Kopie)
End Sub
PersonToString