Hallo Sunnykind .-)
Formeln sind nicht so sehr mein gebiet .-)
Ich kann dir daher nur das anbieten!
Vielleicht reicht es Ja ^^
Daten ohne Doppelte/Nullwerte
Gruss Nighty
Quelle
6 Zeile Worksheetname anpassen
Spalte A wirde erfasst,gegebenenfalls anpassen
Ziel
10 Zeile Worksheetname anpassen
Ausgabe Spalte B,gegebenenfalls anpassen
Sub KeineDoppelten()
Call EventsOff
Dim DeinArr As Variant
Dim objDic As Object
Dim ZeilenIndex As Long
Set objDic = CreateObject("scripting.dictionary")
DeinArr = Worksheets("Tabelle1").Range("A2:A" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)
For ZeilenIndex = 1 To UBound(DeinArr)
If DeinArr(ZeilenIndex, 1) > 0 Then objDic(DeinArr(ZeilenIndex, 1)) = 1
Next
Worksheets("Tabelle1").Range("B2").Resize(objDic.Count) = WorksheetFunction.Transpose(objDic.keys)
Set objDic = Nothing
Call EventsOn
End Sub
Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub
Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub