Verschiedene Werte einer Spalte in Array
21.10.2020 14:38:25
freshhermi
Ich habe folgendes Problem:
Ich habe eine bestimmte Spalte mit soundsovielen Zeilen und diese Zeilen sind mit mehreren Werten gefüllt, die jeweils unterschiedlich oft vorkommen, aber eben auch doppelt.
Das Ziel soll sein, dass diese unterschiedlichen Werte in einem Array gespeichert werden, aber jeder nur einmal, auch wenn der gleiche Wert in der Spalte öfter vorkommt.
Sin die soundsovielen Zeilen also beispielsweise mit (angenommen) 5 verschiedenen Werten unterschiedlich oft und in durchgemischter Reihenfolge gefüllt soll das Array am Ende so aussehen:
Dim ArrayWerte([Anzahl unterschiedlicher Werte] - 1) As String
ArrayWerte(0) = "Unterschiedlicher Wert A"
ArrayWerte(1) = "Unterschiedlicher Wert B"
ArrayWerte(2) = "Unterschiedlicher Wert C"
ArrayWerte(3) = "Unterschiedlicher Wert D"
ArrayWerte(4) = "Unterschiedlicher Wert E"
Dim RangeBisher As Range
Dim WertVorhanden As Range
Dim AnzZeilen As Integer
Dim AnzWerte As Integer
Dim i As Integer
AnzZeilen = WorksheetFunction.CountA(Columns(17))
AnzWerte = 0
For i = 2 To AnzZeilen
Set RangeBisher = Range(Cells(1, 17), Cells(i - 1, 17))
Set WertVorhanden = RangeBisher.Find(Cells(i, 17).Value)
If WertVorhanden Is Nothing Then
AnzWerte = AnzWerte + 1
End If
Next
Vielen Dank schonmal!