Hallo,
vielen Dank erstmal für Dein Interesse ;)
Zu Deinem ersten Beitrag:
Wenn ich von 1 auf 2 umstellen möchte, bekomme ich die Fehlermeldung "Ungültiger Eigenschaftswert"
Zu Deinem zweiten Beitrag:
Damit ich die Parameterübergabe so zu realisieren, wie ich es hier getan habe, musste ich in den Klassendateien folgende Änderung vornehmen:
Klassen hinzufügen, dann im VBA-ProjektMenü via Rechtsklick -> Entfernen von... die Klassen exportieren und entfernen.
Dann die .cls-Dateien mit z.B. dem Editor öffnen und folgende zwei Dinge tun:
-
VB_PredeclaredId auf True setzen
und
-
Attribute GetKlasse.VB_UserMemId = 0
unter der Zeile
"Public Function GetMyOneObject( ByRef paramOne As MyTwoObject, ByVal paramTwo As String , ByVal paramThree As Integer , ByVal paramFour As Boolean ) As MyOneObject"
bzw.
" Public Function GetMyTwoObject(vOne As Integer , vTwo As String ) As MyTwoObject"
einfügen
Danach sollte dieser Kompilierfehler nicht mehr auftauchen.
Kann ich meinen Beitrag noch editieren?
Ich sehe gerade, dass ich vergessen habe anzugeben, dass ich in der Klasse Runs nach dem Adden das Objekt
myOneObjTmp = Nothing
setze.
|