Auflistungen

[Algor]

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:

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.

[Elex]

Hi,

Leider läuft der Code nicht.    Was mache ich falsch?

Wie soll dir das einer beantworten.
Du baust ein Step by Step Tutorial nach, welches mit Sicherheit auch funktioniert.
An welcher Stelle du etwas Entscheidendes überlesen hast kann keiner erraten.
 
Trotzdem mach ich mal einen Rateversuch. Gleich am Anfang z.B. der Hinweis.

Im Folgenden gehen wir davon aus, dass wir bereits eine Klasse namens Airbag erstellt haben.

Gruß Elex

[Algor]

Ja, okay, dass mit der Klasse hatte ich überlesen und ist mir erst nach meinem Post hier aufgefallen.

Trotzdem, jetzt habe ich eine Klasse Airbag eingefügt und  der Kompiler bleibt in der Klasse

Auto in der Prozedur Public Sub AirbagsEinbauen hier hängen:

Air1.Name = "Fahrer"


Meine Frage ist also: Was muss ich in der Klasse Airbag für eine Prozedur etc. einbauen

damit's hier weiter geht?

[Flotter Feger]

Halllo,

aber gelesen hast du das Tutorial schon, oder ?

Code:

Set Air1 = New Airbag: Set Air2 = New Airbag

Ich wette mit dir, dass das so ähnlich da irgendwo steht ...

[Algor]

Danke aber das hilft mir Unwissenden nicht weiter.
Der Code bleibt trotzdem hängen.

Das ein Step for Step Tutorial auch Fehler haben kann habe
ich gerade auf dieser Seite gesehen. Weiter unter stellt der
Autor ein Uhr vor die über die API läuft. Klasse genau dass
was ich immer haben wollte dachte ich letzte Woche und
baue das Dingen nach. Doch leider gab es da einen kleinen
Fehler die Uhr ist/war nicht zu stoppen. Erst eine andere
Seite mit quasi dem gleichen Code zeigte mir dann den
Fehler in einer entscheidenden Programmzeile auf.
Doch bevor ich diese Seite fand hab ichs erstmal
selbst probiert. Ergebnislos! Und schon waren wieder
ein paar Stunden Lebenszeit dahin.

Deshalb habt bitte Verständnis: so ausführlich wie möglich damits
läuft. Danke!

[Flotter Feger]

Hallo,

ich sag doch ... so ähnlich wird es irgendwo schon stehen ... et Voilà ...

Allerdings haben so die beschriebenen Fahrzeuge nur einen Verweis auf die Objektdefinition

Code:

Auto

. Damit ist nur festgelegt, dass diese Variablen existieren und ausschließlich je ein

Code:

Auto

-Objekt enthalten können. Neue Objekte müssen darüber hinaus noch erzeugt werden:

Public Sub Autos()
Dim Familienkutsche As Auto

Set Familienkutsche = New Auto '<--- HIER !!!     https://www.vba-tutorial.de/objekte/klassen.htm

LESEN ALLEINE GENÜGT NICHT ... MAN MUSS SICH AUCH BEMÜHEN ES ZU VERSTEHEN !!!