Übungsbeispiel nicht durchführbar (VBA)

Otmar, Dienstag, 12.07.2016, 08:32 (vor 1226 Tagen)

Hallo,
ich möchte
http://www.vba-tutorial.de/objekte/auflistungen.htm
durchführen, bekomme aber bereits vorher:

Fehler beim Kompilieren:

Benutzerdefinierter Typ nicht definiert

Aber der Typ Airbag müsste doch durch die

Collection

bereits definiert sein?
Vielen Dank.


Modul Standard
Option Explicit

Public Sub Autos()
Dim meinAuto As Auto
Set meinAuto = New Auto
meinAuto.AirbagsEinbauen
meinAuto.Airbags("Fahrer").aktivieren
meinAuto.Airbags(2).aktivieren
Debug.Print meinAuto.Airbags(1).Name
Debug.Print meinAuto.Airbags.Count
End Sub


Klassenmodul Auto
Option Explicit
Private myAirbags As New Collection

Public Property Get Airbags() As Collection
Set Airbags = myAirbags
End Property

Public Sub AirbagsEinbauen()
Dim Air1 As New Airbag, Air2 As New Airbag
Air1.Name = "Fahrer"
Air2.Name = "Beifahrer"
myAirbags.Add Air1, "Fahrer"
myAirbags.Add Air2, "Beifahrer"
End Sub


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum