'ColBanken
Option Explicit
Private objListe As VBA.Collection
Public Property Get BANK(ByVal Index As Variant) As clsBANK
On Error Resume Next
Set BANK = objListe.Item(Index)
End Property
Public Function Add(ByVal BANKadresse As Integer) As clsBANK
    Dim objBANK As clsBANK
    Set objBANK = New clsBANK
    objBANK.Adresse = BANKadresse
    On Error Resume Next
    objListe.Add objBANK, "BANK" + CStr(objBANK.Adresse)
    Set Add = objBANK
End Function
Public Sub Remove(ByVal Index As Variant)
Call objListe.Remove(Index)
End Sub
Public Function NewEnum() As IUnknown
Set NewEnum = objListe.[_NewEnum]
End Function
 
Private Sub Class_Initialize()
Set objListe = New VBA.Collection
End Sub
 
Private Sub Class_Terminate()
    Set objListe = Nothing
End Sub
Public Property Get Count() As Long
    Count = objListe.Count
End Property
'ClsBank
Option Explicit
Private mvarAdresse As Integer
Private objKunden As Col_Kunden
Public Property Let Adresse(ByVal vData As Integer)
  mvarAdresse = vData
End Property
Public Property Get Adresse() As Integer
 Adresse = mvarAdresse
End Property
Public Property Get Kunden() As Col_Kunden
    Set Kunden = objKunden
End Property
Private Sub Class_Initialize()
Set objKunden = New Col_Kunden
End Sub
Private Sub Class_Terminate()
Set objKunden = Nothing
End Sub
'ColKunden
Option Explicit
 
Private objListe As VBA.Collection
Public Function AddKunde(ByVal KundenNr As Integer) As ClsKunde
Dim objKnd As ClsKunde
Set objKnd = New ClsKunde
objKnd.Nummer = KundenNr
On Error Resume Next
 objListe.Add objKnd, "Kndp" + CStr(objKnd.Nummer)
Set AddKunde = objKnd
End Function
Public Property Get Kunde(ByVal Index As Variant) As ClsKunde
 On Error Resume Next
 Set Kunde = objListe(Index)
End Property
Public Property Get Count() As Long
  ' Anzahl Collections-Einträge
  Count = objListe.Count
End Property
Public Sub Remove(ByVal Index As Variant)
  ' Löschen eines Eintrags aus dem Collection-Objekt
  objListe.Remove Index
End Sub
Private Sub Class_Initialize()
  ' Erstellt das Collection-Objekt beim ersten Zugriff
  ' auf die Klasse
  Set objListe = New VBA.Collection
End Sub
Private Sub Class_Terminate()
  ' Zerstört das Collection-Objekt,
  ' wenn die Klasse beendet wird
  Set objListe = Nothing
End Sub
Public Function NewEnum() As IUnknown
   Set NewEnum = objListe.[_NewEnum]
End Function
 
'ClsKunde
Private mvarNummer As Integer 'lokale Kopie
Private mvarKontoStand As Integer 'lokale Kopie
 
Public Property Let Nummer(ByVal vData As Integer)
mvarNummer = vData
End Property
 
Public Property Get Nummer() As Integer
Nummer = mvarNummer
End Property
Public Property Let KontoStand (ByVal vData As Integer)
mvarKontoStand = vData
End Property
 
Public Property Get KontoStand () As Integer
KontoStand= mvarKontoStand
End Property