Collection-Klasse füllt sich nicht

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von koljan.

    Collection-Klasse füllt sich nicht

    Ich habe eine von Collection abgeleitete Klasse, die, wie folgt definiert ist:

    Visual Basic-Quellcode

    1. '****************Von Collection abgeleitete Klasse**************************
    2. Option Explicit
    3. Dim mCol As Collection
    5. Public Sub Add_(ByVal Vorname As String, ByVal Nachname As String)
    7. Set mCol = New Collection
    9. ' Neues Personen-Objekt erstellen
    10. Dim objNewMember As Personen
    11. Set objNewMember = New Personen
    13. ' Daten an das erstellte Objekt zuweisen
    14. With objNewMember
    15. .Vorname = Vorname
    16. .Nachname = Nachname
    17. End With
    19. ' das Objekt schließlich zur Collection hinzufügen
    20. mCol.Add objNewMember
    22. 'Objekt löschen
    23. Set objNewMember = Nothing
    26. End Sub


    Diese Klasse verwendet ihrerseits die Klasse Personen mit der alles ok ist(sie besitzt einfach zwei Eigenschaften, die mit Hilfe von Get/Let gesetzt/gelesen werden.

    Nun verwende ich die Klasse col_Personen in einem kleinen Code:

    Visual Basic-Quellcode

    1. '*****************Verwendung der Klasse in einem Modul********
    3. Sub b()
    5. Dim c As col_Personen
    6. Set c = New col_Personen
    8. c.Add_ "a", "pa"
    9. c.Add_ "f", "sdfk"
    10. c.Add_ "f", "dljgldkfjlkjdfdlk"
    12. End Sub


    Wenn ich prüfe, wie viele Elemente sind nun in der Collection, dann sind es nicht 3, sondern nur 1 Element. Ich verstehen nicht WARUM?

    Danke für Eure Hilfe!

Facebook
Telefonspende