Worksheets("GrundDaten").Columns(65).RemoveDuplicates Columns:=1, Header:=xlNo
alle Datenvorkommen auf nur mehr eines Reduziert.
Aus dem sich daraus ergebenden Spaltenbereich (z.B. BN2:BN15) lese ich mir dies in ein Array um mit diesem alle weiter erforderlichen Schritte machen zu können.
Nur ein Problem habe ich noch wenn bei einem Land als Ergebnis nur ein Vorkommen zutrifft (z.B. BN2:BN2) da bekomme ich bei der Erstellung eines Array eine Fehlermeldung.
Da muss ich jetzt mit dem Trick arbeiten den eigentlichen Bereich "BN2:BN2" dies mag das Array nicht auf "BN2:BN3" zu erweitern, dann liest er es als Array ein, nur das Array(2) ist eben leer.
Dies muss ich nun wieder an der Stelle wo es durchlaufen wird um in einem GesamtArray zu suchen wo alle möglichen Werte vorkommen, an welcher Stelle der Suchbegriff liegt (dieser Wert wird benötigt) abfangen.
Wie müsste es lauten um nur aus einer Zeile,Spalte den Wert ins Array zu bekommen und dies eben dann nur eine Länge von 1 hat.
Hätte schon im WEB gesucht aber leider nichts für mich verständliches dazu gefunden!
Gruß Siegfried