Elemente einer Klasse über Variablen aufrufen

Moin Excel-Profis,
ich habe ein VBA-Problem, und zwar möchte ich Elemente einer Klasse über eine Variable aufrufen. Unten ein kleines Listing. Das Listing stellt nur ein kleinen Ausschnitt dar ist so nicht sinnvoll.
Wie kann ich die Strings aus dem Array Tiere() als Bezeichner für die Klasse1 einsetzen? Gibt es einen Befehl, der einen String in einen Befehl/Bezeichner umwandelt? Ich suche etwas Analoges zu FORMULA. Wahrscheinlich ist es ganz einfach, nur habe ich Tomaten auf den Augen
Vielen Dank im Voraus für Eure Hilfe!
Joe
Klasse 1
Option Explicit
Public Hund as Integer
Public Katze as Integer
Public Maus as Integer
Public
Sub Ausgabe()
DIM Tiere(20), i
DIM cTier as Klasse1
Einlesen
Set cTier As New Klasse1
cTier.Hund = Dackel
cTier.Katze = Tieger
cTier.Maus =
Tiere(1)= Hund
Tiere(2)= Katze
Tiere(3)= Maus
Tiere(4) = ...
Ausgabe, die funktioniert
Cells(1,1) = cTier.Hund
Cells(1,2) = cTier.Katze
Cells(1,3) = cTier.Maus

Ausgabe, die nicht funktioniert
For i = 1 To 20
cells(1,i) = cTier.&Tiere(i)
Next i

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
das geht doch viel einfacher über eine Collection.
Code in einem Standartmodul:

Option Explicit
Private objTiere As clsTiere
Public Sub test()
    Dim varItem As Variant
    Dim intIndex As Integer
    Set objTiere = New clsTiere
    With objTiere.Tiere
        .Add "Dackel", "Hund"
        .Add "Siamkatze", "Katze"
        .Add "Maus", "Nagetier"
        .Add "Amsel", "Vogel"
    End With
    MsgBox objTiere.Tiere("Hund")
    MsgBox objTiere.Tiere("Vogel")
    For Each varItem In objTiere.Tiere
        MsgBox varItem
    Next
    For intIndex = 1 To objTiere.Tiere.Count
        MsgBox objTiere.Tiere(intIndex)
    Next
    Set objTiere = Nothing
End Sub

Code in ein Klassenmodul mit dem Namen "clsTiere":

Option Explicit
Private mcolTiere As Collection
Public Property Get Tiere() As Collection
    Set Tiere = mcolTiere
End Property
Private Sub Class_Initialize()
    Set mcolTiere = New Collection
End Sub
Private Sub Class_Terminate()
    Set mcolTiere = Nothing
End Sub

Wie du siehst, lässt sich die Collection 1. über den Key auslesen, 2. mit einer For - Each Schleife und 3. unter Zuhilfenahme der Count - Eigenschaft auch in einer For - Next Schleife. Wobei die For - Each Schleife zu bevorzugen ist, das darin die Collection auf einmal übergeben wird, während die For - Next Schleife jedes Item einzeln aus der Collection holt.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Elemente einer Klasse über Variablen aufrufen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread