title image


Smiley Re: doppelt und mehrfach vorhandene Zellen löschen:
Hallo,Nachfolgendes Macro erledigt das und kopiert die einfachen Datensaetze in ein Neues Tabellenblatt:Const strWorksheet = "Sheet1" 'Name des Tabellenblattes ggf. aendernConst rngCell = "A1" 'Erste Zelle des Datenbereiches ggf. aendernSub UniqueOnly() With ThisWorkbook.Sheets(strWorksheet) Range(rngCell).CurrentRegion.Select Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy End With Sheets.Add Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=True Application.CutCopyMode = False Sheets(strWorksheet).ShowAllDataEnd SubViele Gruesse Norbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: