doppelte werte im Array aus Tabelle (dim)
15.01.2009 07:43:25
chris
ich habe eine frage zu einem Code wie ich diesen am besten erstelle.
Ich habe eine Tabelle mit daten in einer Spalte(untereinander)
Jetzt möchte ich diese zeile mit diesem Makro einlesen aber nur einmal vorkommende werte.
Also wenn ein Wert doppelt vorhanden ist soll er nur einmal in meinem Array "cb" stehen.
Wie mache ich das.Mein Problem momentan ist die oder der Dim der Variable oder des Arrays cb
ich weiß ja am Anfang ich auf was ich in deklarieren soll auf
Dim cb(10)
oder Dim cb(20)
oder Dim cb(30)
usw... Ich dachte mir vielleicht auf
dim cb(Vorlage.Worksheets("daten").Cells(Vorlage.Worksheets("daten").Cells.Rows.Count, 4).End(xlUp).Row)
Aber das stimmt ja auch nicht so weil ja wenn doppelte vorkommen die Anzahl weniger ist.
Wie mache ich das am besten ?
Vielen dank für eure Hilfe !!
gruß Chris
'Hier mein Code den ich verwenden will.
For x = 2 To Vorlage.Worksheets("daten").Cells(Vorlage.Worksheets("daten").Cells.Rows.Count, 4).End(xlUp).Row
temp = Vorlage.Worksheets("daten").Cells(x, 4)
b = True
For y = x - 1 To 0 Step -1
If cb(y) = temp Then
b = False
Exit For
End If
Next
If b Then
cb(i) = temp
i = i + 1
End If
Next