Dropdown Liste ohne Duplikate
02.05.2018 16:32:49
Horst
ich habe folgendes Problem: Ich möchte die Daten aus einer Spalte von einem Tabellenblatt auf einem anderen Tabellenblatt als Dropdownmenü verwenden. Dies hat soweit auch geklappt. Nun stehe ich aber vor dem Problem, dass die ursprüngliche Spalte auch Duplikate enthält, die ich im ursprünglichen Tabellenblatt auch gerne behalten möchte, nicht hingegen im Dropdownmenü. Der Code sieht wie folgt aus:
Sub Makro2()
Dim x As Long
x = 2
While Tabelle6.Range("A" & x).Value ""
x = x + 1
Wend
x = x - 1
With Tabelle7.Range("A2:A6").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=03_Services!$A$2:$A$" & x
End With
End Sub
Vielen Dank für eure Hilfe
Anzeige