title image


Smiley Re: Einfügen gleicher Werte .. noch ein Vorschlag
Hallo Tommes



ich hab eine Versuch mit Spezialfilter, keine Duplikate gemacht, geht ganz gut,.



etwa so:



Sub keineDuplikate()



Columns("A:A").AdvancedFilter Action:=xlFilterInPlace, Unique:=True

hausnummer = 100

For i = 2 To hausnummer

If Cells(i, 1).RowHeight > 0 Then Userform1.ListBox1.AddItem cells(i,1).value

Next

ActiveSheet.ShowAllData



End Sub





itz



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: