public type GAE
name as string
zeit as integer
anzahl as integer
end type

private GAEDaten() as GAE
 
public function getDaten() as GAE()
getDaten = GAEDaten
end function

public sub lesen()
dim daten() as GAE
 
daten = obj.getDaten
end sub

Public Type GAE
    name As String
    zeit As Integer
    anzahl As Integer
End Type[/code}
 
Die Klasse benützt den UDT dann:
 
<pre><code>Private GAEDaten() As Variant
 
Public Function getDaten() As Variant()
     Dim g As GAE
     ReDim GAEDaten(1)
 
     g.anzahl = 1
     g.name = "Test"
     g.zeit = Now
 
     GAEDaten(0) = g
     getDaten = GAEDaten()
End Function

Public Sub addGAEDaten(byref person as GAE)
 
anzahlGAEDaten = anzahlGAEDaten + 1
ReDim Preserve GAEDaten(1 To anzahlGAEDaten)
GAEDaten(anzahlGAEDaten) = person
 
End Sub

Zitat:

vergiss meinen Vorschlag, ich habe überlesen, dass das in VBA sein soll.

EALA FREYA FRESENA