Hallo zusammen,
ich versuche über ein VBA Code eine Dropbox (Datenüberprüfungsliste zu füllen) - mit meinen bescheidenen Mitteln bin ich auch schon ein ganzes Stück gekommen (wahrscheinlich geht das alles viel einfacher) aber nun bin ich am Ende und bräuchte ein paar Hinweise.
Ich lese eine Tabelle in ein Array und schreibe den danach in eine Variable, die ich in eine ValidateList einbaue, da funktioniert auch ganz gut. Nun habe ich aber noch 2 Themen:
1. ich würde gern den Array alphabetisch sortieren
2. die Duplikate müssen raus
Bin leider über meine einfachen Ideen nicht zum Ergebnis gekommen, aber vielleicht habt ihr eine Idee.
Public Sub Test()
Dim Marke(10) As String
Dim intAkt As Integer
Dim Ergebnis As String
For intAkt = 1 To 10
Marke(intAkt) = Cells(intAkt, 1).Value
If intAkt > 1 Then
Ergebnis = Ergebnis & "," & Marke(intAkt)
Else
Ergebnis = Marke(intAkt)
End If
Next intAkt
'Dropdown schreiben
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Ergebnis
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
MsgBox ("fertig")
End Sub
Vielen Dank für eure Hilfe
VG
Argosch
|