Habe es inzwischen gefunden:
http://books.google.de/books?id=46toCUvklIQC&pg=PA31…
In Modul1:
Option Explicit
Sub Hauptprogramm()
Dim oMKlasse As clsMKl
Set oMKlasse = New clsMKl
oMKlasse.oTKlasse.Versuch
End Sub
In der Mutterklasse:
Option Explicit
Private cString As String
Public oTKlasse As clsTKl
Private Sub Class_Initialize()
Set oTKlasse = New clsTKl
Set oTKlasse.Parent = Me
cString = „abcd“
End Sub
’ —/Get
Public Property Get Parameter() As String
Parameter = cString
End Property
In der Tochterklasse:
Option Explicit
Private cTString As String
Private cParent As clsMKl
Sub Versuch()
Cells(1, 1) = Me.Parent.Parameter
End Sub
Public Property Set Parent(objParent As clsMKl)
If cParent Is Nothing Then
Set cParent = objParent
End If
End Property
Public Property Get Parent() As clsMKl
Set Parent = cParent
End Property
Vielleicht wäre das ja was für die Bibliothek?
Viele Grüße und eine schöne Woche
Martin