Hallo Zusammen,
Ich versuche für meine Arbeit ein Makro zu programmieren, um Doppelte Werte herauszufiltern. Im Prinzip kriege ich eine Rohdaten Datei und muss diese bearbeiten. Hierzu lese ich alle Sheets in ein Array ein, um diese nachher miteinander zu vergleichen. Als nächstes muss ich die doppelten Werte wiederum nach dem Titel filtern, um diese gezielt löschen zu können, sobald ein weiteres Kriterium erfüllt ist. Dazu muss ich die Länge der eingelesenen Doppelten Werte im Array nach Filterung der zusammenhängenden Titel filtern. Um dies durchzuführen, arbeite ich mit Redim Preserve Array, was aber zu einem Laufzeitfehler 9führt. Im Prinzip sieht die Programmierung so aus:
start=0
for i = 0 to ubound(arrAnz)
Sprung: zaehler=2
If(iKleiner0) Then
start=start+1
End if
For j = 0 to Ubound(arrAnz)
Redim preserve wert1(start)
If arrAnz(i) = arrAnz(j+1) then
Zaehler=Zaehler+1
Wert1(start) = zaehler
Elseif i=0 Then
wert1(start) = 2
Else: goto sprung
Die Ausgabe sieht so ungefähr aus:
Wert1(0) = 2
Wert1(1) = 3
Wert1(1) = 4
Wert2(2) hier kommt der Laufzeitfehler 9.
Ich wäre euch dankbar wenn ihr mir weiterhelfen könntet.