title image


Smiley Alternative per Spezialfilter : Kopieren der Zeilen ohne Doppelte
Hey mromar,



eine schnelle Alternative zum Kopieren der Zeilen ohne die doppelten Inhalte der Spalte A bietet der Spezialfilter. Hier die VBA-Variante des Spezialfilters :



Es werden alle doppelten Zellen in Spalte A heruasgefiltert und nur die "normalisierten" (also nicht mehr redundanten) Zeilen in das 2.Tabellenblatt ab Zelle A1 kopiert :

Sub DatenSpezialfilter()

    'Filtert alle doppelten Datensätze aus Spalte A heraus und kopiert die

    'nicht-redundanten Datensätze in das 2.Tabellenblatt nach A1

    Intersect([A:A],[A1].CurrentRegion).AdvancedFilter Action:=xlFilterInPlace, Unique:=True

   [A1].CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Sheets(2).[A1]

    ActiveSheet.ShowAllData

End Sub



Code eingefügt mit Syntaxhighlighter 4.0



Bitte zunächst an einer Kopie Deiner Mappe testen !!

Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: