title image


Smiley Re: Spalte in Combo box ohne Duplikate
hi,



danke für die Hilfe.



hab aber was besseres gefunden :



Sub ungetestet()

Dim letzte As Long

Dim zeile As Long

letzte = Range("A65536").End(xlUp).Row

For zeile = 1 To letzte

If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(zeile, 1)), Cells(zeile, 1)) = 1 Then _

ComboBox1.AddItem Cells(zeile, 1)

Next

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: