Ich habe jetzt ein etwas komplexeres Anliegen. Da meine VBA-Kenntnisse dürftig sind, brauche ich für die Umsetzung einer bestimmten Funktion ziemlich viele Umwege. Ich hoffe Ihr könnt mir dabei vielleicht helfen.
Meine Absicht ist Folgende:
- Ich habe eien Range in der Werte stehen (Bsp.: Range("D19:D27"))
- Als erstes möchte ich, dass ich ein Array erhalte mit allen Werten aus der Range
- Als nächstes möchte ich, dass zu jedem Wert in diesem Array ein weiterer Wert gespeichert wird (2-dimensionales Array). Dieser zweite Wert wird ebenfalls aus einer Range ausgelesen. Da beide Ranges immer die gleiche Anzahl Zellen haben und die Werte immer in der selben Zeile stehen, könnte man sagen Position 1 aus Range A ist = Position 2 aus Range B
- Nun möchte ich alle Werte die in der ersten Dimension doppelt sind auf 1 Vorkommen reduzieren. Dabei ist es aber wichtig dass alle Werte aus der 2 Dimension erhalten bleiben.
Bsp:
[ARRAY]
(0,0) = "Test 1"
(1,0) = "Test 2"
(2,0) = "Test 1"
(0,1) = "Wert 1 für Test 1"
(1,1) = "Wert 1 für Test 2"
(2,1) = "Wert 2 für Test 1"
Daraus soll werden:
(0,0) = "Test 1"
(1,0) = "Test 2"
(0,1) = "Wert 1 für Test 1"
(0,2) = "Wert 2 für Test 1"
(1,1) = "Wert 1 für Test 2"