19.12.2018, 18:21
Hallo Leute,
ich versuche einen aus dem Internet vorgegebenen Code nachzubauen.
Link hier: https://www.vba-tutorial.de/objekte/auflistungen.htm
So habe ich im Klassenmodul Auto folgenden Code stehen:
und in meinen Modul1 um den Code zu testen:
Leider läuft der Code nicht.
Was mache ich falsch?
Danke für eure Hilfe.
ich versuche einen aus dem Internet vorgegebenen Code nachzubauen.
Link hier: https://www.vba-tutorial.de/objekte/auflistungen.htm
So habe ich im Klassenmodul Auto folgenden Code stehen:
Code:
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
und in meinen Modul1 um den Code zu testen:
Code:
Public Sub Autos()
Dim Familienkutsche As New Auto
Familienkutsche.AirbagsEinbauen
Familienkutsche.Airbags(1).aktivieren
Familienkutsche.Airbags("Beifahrer").aktivieren
End Sub
Leider läuft der Code nicht.
Was mache ich falsch?
Danke für eure Hilfe.