Auflistungen Airbag im Torurial (VBA)

Marius Hauenstein @, Montag, 04.06.2018, 19:34 (vor 166 Tagen)

Hallo,

ich habe das Problem, dass mir im Direktbereich wenn ich Debug.Print meinAuto.Airbags.Count eingebe 0 ausgegeben wird.

Mein Code:

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 = "Faher"
Air2.Name = "Beifahrer"

myairbags.Add Air1, "Fahrer"
myairbags.Add Air2, "Beifahrer"

End Sub

Airbag:
Option Explicit
Public Name As String
Public Function aktivieren() As Boolean
aktivieren = True
End Function

Modul:
Option Explicit
Public meinauto As New auto


Ich hoffe es kann mir jemand Helfen, bin totaler Anfänger.
Danke schonmal im Voraus.
Marius:-)


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum