ich habe eine neue Knobel-Aufgabe für Euch. Könnt Ihr mir dabei helfen?
Definiert sind folgende zwei Klassen:
'************************************************
clsAdressen
'************************************************
Option Explicit
Public mcolAdressen As Collection
Private Sub Class_Initialize()
Set mcolAdressen = New Collection
End Sub
Private Sub Class_Terminate()
Set mcolAdressen = Nothing
End Sub
'************************************************
clsDataSource
'************************************************
Option Explicit
Public mFile_name, mSource_Sheet As String
Public mKEY_Column, mNAME_Column, mVALUE_Column As Integer
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
'************************************************
'Und im normalen Modul folgende Prozedur:
'************************************************
Option Explicit
Public DataSource_KEY As String
Private objAdressen As clsAdressen
Private objDataSource As clsDataSource
Sub Klassen_Test()
Dim i As Integer
Dim x As Variant
Dim y As Variant
Set objAdressen = New clsAdressen
For i = 1 To 3
Set objDataSource = New clsDataSource
DataSource_KEY = "KEY_WORD" & i
objDataSource.mFile_name = "Test-Dateiname" & i
objDataSource.mSource_Sheet = "Test-Blatt" & i
objDataSource.mKEY_Column = i
objDataSource.mNAME_Column = i + 1
objAdressen.mcolAdressen.Add objDataSource, DataSource_KEY
'Zugriff per Schlüssel funktioniert problemlos:
x = objAdressen.mcolAdressen("Key_WORD" & i).mFile_name
MsgBox (x)
'Jetzt möchte ich aber die abgefragte Eigenschaft variabel gestalten:
y = InputBox("Gefragte Eigenschaft:", "Eigenschaft", "mFile_name")
x = objAdressen.mcolAdressen("Key_WORD" & i).y '
MsgBox (x)
Next i
End Sub
Das funktioniert so natürlich noch nicht.
Aber wie kann man die Eigenschaft dynamisch abfragen?
Bin Euch für jede Hilfe dankbar!
Grüße,
Samuel Schwalbe