Office: (Office 2007) Doppelte Einträge aus eindimensionalem Array aussortieren

Ich habe schon einiges jetzt gelesen wie manche doppelte Werte aus Arrays entfernen. Hierzu fand ich folgenden Schnipsel der mir am Besten gefiel:

Code:

den wollte ich für meinen Code in einem Modul verwenden und änderte ihn wie folgt ab:

Code:

Aufgerufen wird das ganze so:

Code:

Die MsgBox soll mir dann den neuen Inhalt des Arrays anzeigen. Leider ist er der Selbe wie zuvor. Bin nicht der Spezi in diesem Bereich von VBA und wäre um jede Hilfe dankbar.

Gruß

:)

 

Hallo ?,

das geht z. B. so.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub test()
Dim vntTmp As Variant

vntTmp = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
vntTmp = UniqueArray(vntTmp)

Range("B1").Resize(UBound(vntTmp, 1), 1) = vntTmp

End Sub

Public Function UniqueArray(src As Variant) As Variant
'Quelle herber.de
'Idea by ransi
Dim SCRDIC
Dim L As Long
Dim bDim As Boolean

Set SCRDIC = CreateObject("Scripting.dictionary")

If GetArrayDimension(src) > 1 Then
bDim = True
src = Application.Transpose(src)
End If

On Error Resume Next

For L = 1 To UBound(src)
SCRDIC.Add src(L), 0
Next

On Error GoTo 0

If bDim Then
UniqueArray = Application.Transpose(SCRDIC.keys)
Else
UniqueArray = SCRDIC.keys
End If

Set SCRDIC = Nothing
End Function

Public Function GetArrayDimension(vArray As Variant) As Long
'Dimensionen eines Arrays ermitteln
'Quelle ActiveVB
'by pks
Dim i As Long, j As Long

On Error GoTo mEnd

For i = 1 To 65
j = UBound(vArray, i)
Next

mEnd:
GetArrayDimension = i - 1

On Error GoTo 0
End Function





« Gruß Sepp »

 

Sieht gut aus funktioniert aber nicht.

 

Hallo ?,

Antworten wie "funktioniert nicht" liebe ich, da weiß man gleich woran es happert.

Lade eine Beispieltabelle hoch, in der es nicht funktioniert.




« Gruß Sepp »

 

Hatte es mal so versucht, klappte aber nicht. Muß mich mal 2 Tage in Dictionarys reinlesen bevor ich weiter mache. Scheint die einzige Lösung zu sein:

Code:

 

Vielleicht sollte ich den Denkansatz verändern. Also-dann hole ich mal etwas weiter aus:

Meine Mappe enthält Positionen für ein Angebot aka:

Pos. Bezeichnung Einheit Menge EP GP

Das Makro liest alle Positionen aus und listet sie in einer ListBox und pro Pos. auf einemseperaten Tab. Man kann nun einzelne Zeilen in der ListBox anklicken und dabei werden die Infos aus der LB in 4 txtB und in zwei CmbB eingetragen. Zusätzlich werden den Comboboxen alle Werte der betreffenden Pos. übergeben damit der Benutzer daraus später wählen kann. Jetzt tauchen aber in CB1 für "Einheit" auch mal doppelte Einträge auf da sie halt mal so in der Mappe stehen und in der CB2 für "Menge" eben auch sehr oft die "1". Mittels Array und einer Function wollte ich die doppelten Einträge löschen.

Derzeit versuche ich das die doppelten Einträge erst gar nicht in der ComboBox erscheinen.

Gruß

 

Ich hätte mal einen ganz anderen Lösungsansatz als die gezeigten Umschichtereien: In einer SQL-Anweisung kann man ganz einfach sortieren und Duplikate entfernen.

Annahmen:
- Arbeitsblatt heißt Tabelle1.
- Die zu verarbeitenden Werte stehen in Spalte A (ab Zeile 1, d.h. ohne Spaltentitel).
- Die Ausgabe des Ergebnisses erfolgt in Spalte B (ab Zeile 1)
Code:

 

Hm, habe viel um die Ohren. werde aber nicht locker lassen. Wenn ich das Ergebnis habe poste ich eine Lösung. Dann hat jeder was davon.

Gruß