Doppelte Einträge filtern und darstellen

08/10/2008 - 10:13 von Andreas H. | Report spam
Hallo Crackz !

Wie kann ich per VBA die Option unter Daten/Filtern/Spezialfilter
einfügen, damit dies als Makro ausgeführt wird?

Folgendes hatte ich mir vorgestellt:

anhand einer eindeutigen Nummer möchte ich aus einer wachsenden
Tabelle die kompletten Eintràge (Zeilen), welche doppelt vorhanden
sind, in einem anderen Tabellenblatt anzeigen lassen. Wie kann ich es
evtl noch realisieren, dass ich daraus auch bestimmte Zeilen löschen
lassen kann, und dass diese Löschung auch in der "orginal"-Tabelle
wirksam wird?

Greetz und tausend dank !
Andy
 

Lesen sie die antworten

#1 Claus Busch
08/10/2008 - 11:56 | Warnen spam
Hallo Andreas,

Am Wed, 8 Oct 2008 01:13:01 -0700 (PDT) schrieb Andreas H.:

Wie kann ich per VBA die Option unter Daten/Filtern/Spezialfilter
einfügen, damit dies als Makro ausgeführt wird?

Folgendes hatte ich mir vorgestellt:

anhand einer eindeutigen Nummer möchte ich aus einer wachsenden
Tabelle die kompletten Eintràge (Zeilen), welche doppelt vorhanden
sind, in einem anderen Tabellenblatt anzeigen lassen. Wie kann ich es
evtl noch realisieren, dass ich daraus auch bestimmte Zeilen löschen
lassen kann, und dass diese Löschung auch in der "orginal"-Tabelle
wirksam wird?



hier mal ein Beispiel für eine Tabelle, die über die Spalten A:G geht.
Immer wenn du in Tabelle1 in Spalte G etwas ànderst und damit einen
Datensatz komplettierst, wird mit dem Spezialfilter deine Tabelle ohne
Duplikate nach Tabelle2 gefiltert. Der Code gehört ins Codemodul der
Tabelle1.
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("G:G")) Is _
Nothing Then Exit Sub

With Sheets("Tabelle2")
.UsedRange.ClearContents
Columns("A:G").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.Range("A1"), _
Unique:=True
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen