Daten sortieren

Wander · 3. Januar 2008 um 12:00

Hallo,

ich möchte Daten aus Blatt-1 in Blatt-2 sortieren.

In Blatt-1 stehen Emailadressen, z.B. in den Zeilen 200-300 / Spalte N, die öfter vorkommen, aber nur 1-mal übernommen werden sollen in Blatt-2.

Danke für die Hilfe

Besten Gruß
Wander

Winterknight · 3. Januar 2008 um 12:21

Hi Wanderer
Händig geht das mit Daten->Filter->Spezialfilter
und dann keine Duplikate anklicken.

Leider geht das (soweit ich weiß) nur innerhalb des selben Blatts.
Das heißt du mußt das dann Händig kopieren.
WICHTIG dort wo du die Daten hinkopierts darf NICHTS stehen!

Wenn Du das per Makro machn willst, schaudir die Antwort an, die Thomas auf meine Frage gegeben hat, das musst du dementsprechend ändern. Aber wenn du das nur ein oder zweimal machen musst, mache es mit dem Spezialfilter. Sind nur 8 oder so klicks
Gruß
Winter

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Reinhard_fb8cb7 · 3. Januar 2008 um 15:35

Spezialfilter in anderes Blatt

Händig geht das mit Daten->Filter->Spezialfilter
und dann keine Duplikate anklicken.

Leider geht das (soweit ich weiß) nur innerhalb des selben
Blatts.
Das heißt du mußt das dann Händig kopieren.

Hi Winter,
das geht schon, in ein anderes Blatt zu filtern.

Markiere im anderen Blatt (z.B. Tabelle2) A1, dann Daten-Spezialfilter, entsprechende Häkchen setzen,
Listenbereich Tabelle1!A1:A500,
Kriterienbereich leer lassen,
Kopieren nach: Tabelle2!A1
Gruß
Reinhard

Winterknight · 3. Januar 2008 um 16:03

Hi Winter,
das geht schon, in ein anderes Blatt zu filtern.

Markiere im anderen Blatt (z.B. Tabelle2) A1, dann
Daten-Spezialfilter, entsprechende Häkchen setzen,
Listenbereich Tabelle1!A1:A500,
Kriterienbereich leer lassen,
Kopieren nach: Tabelle2!A1
Gruß
Reinhard

Hi Reinhard,
Also bei mir (Excel 2003) kommt die Fehler-Meldung:
„nur Gefilterte Daten können in das aktive Blatt kopiert werden“

Aber ich sagte ja soweit ich weiß.
Grüße
Winter

Reinhard_fb8cb7 · 3. Januar 2008 um 16:18

Markiere im anderen Blatt (z.B. Tabelle2) A1, dann
Daten-Spezialfilter, entsprechende Häkchen setzen,
Listenbereich Tabelle1!A1:A500,
Kriterienbereich leer lassen,
Kopieren nach: Tabelle2!A1

Also bei mir (Excel 2003) kommt die Fehler-Meldung:
„nur Gefilterte Daten können in das aktive Blatt kopiert
werden“

Das kommt wenn du dich im Quellblatt befindest und den Spezialfilter startest.
Markiere im Zielblatt A1, dann weiter wie oben geschrieben.
Getestet mit XL2002.

Gruß
Reinhard

Winterknight · 3. Januar 2008 um 16:51

Das kommt wenn du dich im Quellblatt befindest und den
Spezialfilter startest.
Markiere im Zielblatt A1, dann weiter wie oben geschrieben.
Getestet mit XL2002.

Gruß
Reinhard

Hi
Funktioniert auch in Excel 2003
gewußt wie. Bist halt ein Fuchs.

(Ist aber schon doof irgendwie - oder?)
Gruß Winter

Reinhard_fb8cb7 · 3. Januar 2008 um 17:16

Das kommt wenn du dich im Quellblatt befindest und den
Spezialfilter startest.
Markiere im Zielblatt A1, dann weiter wie oben geschrieben.

Hallo Winter,

Funktioniert auch in Excel 2003
gewußt wie. Bist halt ein Fuchs.

Ja, nicht so schlau, aber so stinkig *grien*

(Ist aber schon doof irgendwie - oder?)

Sehe ich ähnlich, aber tja nu, Microsoft halt

Ich kenne nur diesen Weg um gefilterte Listen auf ein anderes Blatt zu bekommen. May be es gibt auch Wege mittels Spezialfilter direkt von Blatt1 nach Blatt2 gefilterte Daten zu exportieren.

Hätten die bei MS das Ganze „Spezialfilter–Gefilterte Liste importieren“ o.ä. benannt, wäre es klarer daß man sich auf der Zieltabelle befinden muß.

Bei „meiner“ Variante wird davon ausgegangen daß die oberste Zelle der Liste die Überschrift enthält.
Schlecht ist wenn du keine Überschrift hast, dann kann es u.U. einmalig doppelten Eintrag geben.

Taabelle1:
a
b
a
a
c
b

ergibt dann
Tabelle2:
a
a
b
c

Gruß
Reinhard

Thomas_Ramel · 3. Januar 2008 um 18:01

Grüezi zusammen

Funktioniert auch in Excel 2003
gewußt wie. Bist halt ein Fuchs.

Ja, nicht so schlau, aber so stinkig *grien*

(Ist aber schon doof irgendwie - oder?)

Sehe ich ähnlich, aber tja nu, Microsoft halt

Ich kenne nur diesen Weg um gefilterte Listen auf ein anderes
Blatt zu bekommen. May be es gibt auch Wege mittels
Spezialfilter direkt von Blatt1 nach Blatt2 gefilterte Daten
zu exportieren.
Hätten die bei MS das Ganze „Spezialfilter–Gefilterte Liste
importieren“ o.ä. benannt, wäre es klarer daß man sich auf
der Zieltabelle befinden muß.

Das ist ein kleiner Bug in der graphischen Oberfläche - wenn das Ganze mit VBA aufgezeichnet wird und im Code die Tabellenblätter sauber referenziert werden läuft es auch ohne dass das Ziel-Blatt aktiv ist.

Bei „meiner“ Variante wird davon ausgegangen daß die oberste
Zelle der Liste die Überschrift enthält.

Ja, davon geht der Spezialfilter *immer* aus.

Schlecht ist wenn du keine Überschrift hast, dann kann es
u.U. einmalig doppelten Eintrag geben.

Taabelle1:
a
b
a
a
c
b

ergibt dann
Tabelle2:
a
a
b
c

Daher muss die erste Zeile gelöscht werden falls sie in den gefilterten Daten doppelt enthalten ist - so hatte ich das auch in meinem Code angedacht, der für die Summierung anstelle des Arrays gemacht war.
Das sollte aber eigentlich die Ausnahme sein, da ‚wir‘ ja stets saubere Listen mit Spaltenüberschriften haben

–
Mit freundlichen Grüssen

Thomas Ramel

MVP für MS-Excel -

Winterknight · 4. Januar 2008 um 10:42

Servus,

Das ist ein kleiner Bug in der graphischen Oberfläche - wenn
das Ganze mit VBA aufgezeichnet wird und im Code die
Tabellenblätter sauber referenziert werden läuft es auch ohne
dass das Ziel-Blatt aktiv ist.

mm
das hätte man wissen müssen.
naja so machen wir aus

Range("U:U").AdvancedFilter \_
 Action:=xlFilterCopy, CopyToRange:=Range("Z1"), Unique:=True
 letzteZeile = wksReport.Cells(65536, 26).End(xlUp).Row
 For i = 1 To letzteZeile
 wksMappe2.Cells(i, 1).Value = wksMappe1.Cells(i, 26).Value
 Next i

eine Zeile:

wksMappe1.Range("U:U").AdvancedFilter \_
 Action:=xlFilterCopy, CopyToRange:=wksMappe2.Range("A1"), Unique:=True

Wenn ich jetzt nur noch wüßte, wie ich die Formatierung loswerde wäre ich richtig glücklich.
mfg
Winter

Reinhard_fb8cb7 · 4. Januar 2008 um 16:04

wksMappe1.Range(„U:U“).AdvancedFilter _
Action:=xlFilterCopy,
CopyToRange:=wksMappe2.Range(„A1“), Unique:=True

Wenn ich jetzt nur noch wüßte, wie ich die Formatierung
loswerde wäre ich richtig glücklich.

Hi Winter,

z.B. so:

with wksMappe2.Range("A:A") ' oder with wksMappe2.Usedrange
 .Interior.ColorIndex = xlNone 'Zellenhintergrundfarbe ohne Farbe
 .Font.ColorIndex = 0 'Schriftfarbe automatisch
 .Font.Bold = False 'Fett weg
end with


    
    Gruß
    Reinhard

Wander · 5. Januar 2008 um 18:23

Hallo ihr Beiden,

Dein Tip war schon eine schnelle und kurzfristige Lösung Winterknight und ich könnte mich an die Sirn klopfen weil ich das schon einmal gemacht haben. Ist halt schon etwas lange her )

Reinhard,
Deine Lösung werde ich nächste Woche einmal versuchen!

Besten Dank euch Beiden!

Gruß
Wander

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]