AW: Variablennamen mit Werten aus array kombinieren
08.08.2017 20:41:00
Christian
... wenn ich dich richtig verstanden habe möchtest du so etwas in der Art:
Sub test2()
Dim i As Integer
Dim k As Integer
Dim Test_Feld As Variant
Test_Feld = Array("A", "B", "C", "D")
' Zielarray mit 2 Spalten und 4 Zeilen (4 Werte A - D) > ist also anzupassen
Dim Wert_Test_Feld(1, 3) As Variant
' 9 Zeilen
For i = 2 To 10
For k = 0 To UBound(Test_Feld)
If Test_Feld(k) = Cells(i, 1) Then
Wert_Test_Feld(0, k) = Test_Feld(k)
Wert_Test_Feld(1, k) = Wert_Test_Feld(1, k) + Cells(i, 2).Value
End If
Next k
Next i
' Ausgabe im Direktbereich
For i = LBound(Wert_Test_Feld, 2) To UBound(Wert_Test_Feld, 2)
Debug.Print Wert_Test_Feld(0, i) & " - " & Wert_Test_Feld(1, i)
Next i
End Sub
Viel Spaß beim Ausprobieren...
Gruß, Ch.