Thema Datum  Von Nutzer Rating
Antwort
Rot Anzahl der Duplikate Ausgeben und dann Löschen
 14.08.2014 10:11:59 tomra
Solved
14.08.2014 13:41:46 Gast94063
Solved
14.08.2014 16:58:49 tomra
Solved

Ansicht des Beitrags:
Von:
tomra		 Datum:
14.08.2014 10:11:59		 Views:
2092		 Rating:
     
Antwort:
 Nein
Thema:
Anzahl der Duplikate Ausgeben und dann Löschen

Hallo Zusammen, ich habe mir ein kleines Progrämmchen geschrieben welches Duplikate aus einer Tabelle (größe Variabel) löschen soll, das funktioniert auch. Allerdings hätte ich noch gerne das er mir vorher sagt, wie viele Duplikate er denn gefunden hat.

Ich weis jedoch nicht, wie ich das in meinem bestehenden Code am elegantesten umsetzten kann. Hat von euch eventuel jemand einen Tipp?

Danke und hier kommt der Code:

Sub DoppelteLoeschen()

Dim LR As Long
Dim LC As Long

Worksheets("Ausgabe").UsedRange.Clear
'Tabellenblatt "Ausgabe" leeren

LR = 0
LR = Worksheets("Daten").UsedRange.Rows.Count
'Letzte gefüllte Zeile bestimmen
LC = 0
LC = Worksheets("Daten").UsedRange.Columns.Count
'Letzte gefüllte Spalte bestimmen

MsgBox "Datenbereich Von A1 bis " & Chr(64 + LC) & LR
'MsgBox LR

Worksheets("Daten").Range("A1:" & Chr(64 + LC) & LR).AdvancedFilter _
    Action:=xlFilterCopy, _
    CopyToRange:=Worksheets("Ausgabe").Range("A1:" & Chr(64 + LC) & LR), _
    Unique:=True
'Duplikate löschen, Tabellengröße Variabel
  
Worksheets("Ausgabe").Activate
'Tabellenblatt "Ausgabe" aufrufen

End Sub

Gruß

Tom

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Anzahl der Duplikate Ausgeben und dann Löschen
 14.08.2014 10:11:59 tomra
Solved
14.08.2014 13:41:46 Gast94063
Solved
14.08.2014 16:58:49 tomra
Solved