Hallo,
ich würde gerne "dynamische" Variablennamen mit Werten aus einem Array erstellen.
Ich habe in meinem Excel in Spalte 1 jeweils A, B oder C stehen und in Spalte 2 eine beliebige Integer-Zahl.
Nun sollen alle Werte aufsummiert werden die hinter A, B oder C stehen (Anmerkung: Dies ist nur ein vereinfachendes Beispiel, in Wirklichkeit gibt es in Spalte A wesentlich mehr verschiedene Möglichkeiten).
Nun habe ich folgenden Code erstellt, der aber leider nicht funktioniert.
Was könnte ich ändern?
Danke!
Sub test2()
Dim i As Integer
Dim Wert_A As Integer
Dim Wert_B As Integer
Dim Wert_C As Integer
Test_Feld = Array("A", "B", "C")
For i = 2 To 10
Select Case Cells(i, 1).Value
For k = 0 To UBound(Test_Feld)
Case Test_Feld(k)
Wert_Test_Feld(k) = Wert_Test_Feld(k) + Cells(i, 2).Value
Next k
Next i
End Sub |