Klassen variabel ansprechen
10.02.2017 11:12:37
Silas
ich habe ein Klassenmodul mit verschiedenen Eigenschaften (z.B. Name, ID, rowYear), die ich mit Hilfe von Get & Let auslese bzw. setze. Ich hab außerdem eine UserForm mit einer Listbox, die die Namen der Klassenmember enthält. Ich möchte nun innerhalb einer Schleife überprüfen, welche Namen in der Listbox markiert sind (können mehrere sein) und die jeweils zugehörige Zeile (rowYear) der Klasse mit dem Namen aus der Listbox ausgeben (die Zeile soll im Worksheet gekennzeichnet werden). Wie spreche ich nun die Klasse an? Der Klassenname ist ja variabel.
Ich stelle mir etwas vor, wie das (mir ist klar, dass das so nicht funktioniert):
For i = 0 To .ListCount - 1
If .Selected(i) Then
Tabelle2.Cells("" & .List(i).name & "".rowYear, 1).Value = "x"
End If
Next
Ist das generell möglich oder muss ich einen ganz anderen Weg wählen? Denn ich weiß nie, wie viele Objekte der Klasse vorhanden sind, oder wie deren Name lautet.
Vielen Dank schon mal!
Mit freundlichen Grüßen
Silas