Habe es jetzt so versucht. Aber es lässt sich nicht kompilieren. "Nur benutzerdefinierte Typen, die in öffentlichen Objektmodulen definiert sind, können in den oder aus dem Typ Variant umgewandelt werden oder an eine zur Laufzeit auflösbare Funktion weitergeleitet werden."
Was mache ich falsch?
Public Type PersonType
Name As String
Vorname As String
End Type
Sub Export()
Dim gruppe As New Collection
Dim Person As PersonType
For Zeile = 3 To 498
If Cells(Zeile, 15) = "Ende 12" Then
Person.Name = Cells(Zeile, 1)
Person.Vorname = Cells(Zeile, 2)
gruppe.Add Person, Zeile
End If
Next Zeile
End Sub