Excel Daten sortieren

Computer: Software & Programmierung Office Software
1

Hey.

Habe ein eine Excel Tabelle. Mit Adress-Datensätzen.

Getrennt zwischen Firma, Name, Straße, Tel-Nummer, ect.

Wenn ich nun Daten -> Filter -> Spezialfilter angebe,
und dann z.B im Listenbereich $B:blush:B und im Kriterienbereich auch $B:blush:B
angebe, und unten auf „keine Duplikate“ gehe, sowie auf an gleiche Stelle Kopieren, sind danach immer noch doppelte Datensätze in der B Tabelle… Obwohl Sie gleich geschrieben sind.

Andre Sache die mich dann wundert ist, dass die Datensatz Anzahl sich garnicht verändert… Immer danach noch 7000 Datensätze, keiner weniger…

Was mach ich denn Falsch?

Mfg Steve

2

Hi Steve,

Getrennt zwischen Firma, Name, Straße, Tel-Nummer, ect.
Wenn ich nun Daten -> Filter -> Spezialfilter angebe,
und dann z.B im Listenbereich $B:blush:B und im Kriterienbereich
auch $B:blush:B
angebe, und unten auf „keine Duplikate“ gehe, sowie auf an
gleiche Stelle Kopieren, sind danach immer noch doppelte
Datensätze in der B Tabelle… Obwohl Sie gleich geschrieben
sind.

Alt+F11, Einfügen–Modul, nachstehenden Code reinkopieren, Curser irgendwo in den Code reinstellen, F5 drücken.

Was wird angezeigt? Kommt das Ergebnis hin?

Danach kannst du links einen Rechtsklick auf den Modulnamen (z.B. Modul1) machen und das Modul wieder entfernen, wenn du den Code nicht mehr brauchst.

Andre Sache die mich dann wundert ist, dass die Datensatz
Anzahl sich garnicht verändert… Immer danach noch 7000
Datensätze, keiner weniger…

Wenn die doppelten nicht ausgeblendet werden ist das doch normal *denk*

Gruß
Reinhard

3

nachstehenden Code reinkopieren,
Curser irgendwo in den Code reinstellen, F5 drücken.

-> kein nachstehender Code enthalten.

Wenn die doppelten nicht ausgeblendet werden ist das doch
normal *denk*

Ausgeblendet werden die schon, (der Schieberegler an der Seite wird ja auch größer) nur kann ich so net sehen, wieviele Datensätze das insgesamt sind, ohne die doppelten.

Thx erstmal.

Steve

4

Hallo Steve,

nachstehenden Code reinkopieren,

-> kein nachstehender Code enthalten.

sorry, habe ich hier nachgeholt.

Wenn die doppelten nicht ausgeblendet werden ist das doch
normal *denk*

Ausgeblendet werden die schon, (der Schieberegler an der Seite
wird ja auch größer) nur kann ich so net sehen, wieviele
Datensätze das insgesamt sind, ohne die doppelten.

Suchst du eine Funktion die dir die Anzahl an sichtbaren nichtleeren Zeilen angibt?
Das kann man mit, zumindest mit einer Hilfsspalte, mittels Excelformeln herausfinden. logo auch per Makro.

Gruß
Reinhard

Sub Pruef()
Dim colC As New Collection, Zei As Long, Aus As Long, Mldg As String
On Error Resume Next
For Zei = 1 To Range("B" & Rows.Count).End(xlUp).Row
 If Rows(Zei).Hidden = True Then Aus = Aus + 1
 colC.Add Item:=CStr(Cells(Zei, 2)), key:=CStr(Cells(Zei, 2))
Next Zei
Mldg = "Gesamtzeilen: " & Zei - 1 & " Unikate: " & colC.Count & Chr(13)
Mldg = Mldg & "ausgeblendete Zeieln: " & Aus
MsgBox Mldg
End Sub
5

Zählen sichtbarer Zellen in einem Bereich
Hallo Steve,

Ausgeblendet werden die schon, (der Schieberegler an der Seite
wird ja auch größer) nur kann ich so net sehen, wieviele
Datensätze das insgesamt sind, ohne die doppelten.

Halllo Steve,

in H8 sieht man die Anzahl nicht ausgeblendeter Zellen in B1:B7, im Beispiel sind Zeilen 4 und 5 ausgeblendet durch Spezialfilter.

Tabellenblatt: [Mappe1]!Tabelle1
 │ H │
──┼───┤
1 │ 1 │
──┼───┤
2 │ 1 │
──┼───┤
3 │ 1 │
──┼───┤
4 │ 0 │
──┼───┤
5 │ 0 │
──┼───┤
6 │ 1 │
──┼───┤
7 │ 1 │
──┼───┤
8 │ 5 │
──┴───┘
Benutzte Formeln:
H1: =Ausg
H2: =Ausg
H3: =Ausg
H4: =Ausg
H5: =Ausg
H6: =Ausg
H7: =Ausg
H8: =SUMME(H1:H7)

Festgelegte Namen:
Ausg : =(ZELLE.ZUORDNEN(17;Tabelle1!B1)\>0)\*1 \*rel. Name, so gültig in H1

H1:H8
haben das Zahlenformat: Standard

Tabellendarstellung erreicht mit dem Code in FAQ:2363

Gruß
Reinhard

6

Hallo Steve,

schau mal hier

/t/zeilen-filtern/4757315/6

vielleicht kommst du dann weiter (wird zwar an anderer Stelle gefiltert, aber an gleicher Stelle zu filtern funktioniert analog.

Bedenke bitte beim Filtern an gleicher Stelle, die ungefilterte Liste ist durch die noch enthaltenen Duplikate größer als das Ergebnis. Wenn du an genau gleicher Stelle die gefilterten Daten ausgibst, werden die Daten der Liste von den gefilterten überschrieben, allerdings bleiben unten so viele Zeilen stehen, wie du Duplikate hattest, denn für diese Zeilen gibt es ja keine Daten mehr zum Überschreiben. Es vermischt sich somit der Rest der ersten Liste mit dem Filterresultat.

Gruß
Marion

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

7

Das ist nur bei älteren Excel-Versionen so.
Excel aus Office 2007 bietet da wesentlich komfortablere Möglichkeiten.

Da nicht bekannt ist, mit welcher Version der Fragesteller arbeitet, können Lösungsvorschläge einfach auch falsch sein.

mfG Hermes

8

Grüezi Steve

Habe ein eine Excel Tabelle. Mit Adress-Datensätzen.

Getrennt zwischen Firma, Name, Straße, Tel-Nummer, ect.

Wenn ich nun Daten -> Filter -> Spezialfilter angebe,

…das hat aber mit dem Sortieren aus dem betreff nichts zu tun, oder?

und dann z.B im Listenbereich $B:blush:B und im Kriterienbereich
auch $B:blush:B angebe, und unten auf „keine Duplikate“ gehe,

Wenn Du Duplikate rausfiltern willst, dann kannst/musst Du den Kriterienbereich leer lassen.

sowie auf an
gleiche Stelle Kopieren, sind danach immer noch doppelte
Datensätze in der B Tabelle… Obwohl Sie gleich geschrieben
sind.

Du filterst hier nur eine einzelne Spalte deiner Daten?

Was sollte denn deiner Ansicht nach geschehen - kannst Du das bitte mit ein paar Beispieldaten erläutern?

Andre Sache die mich dann wundert ist, dass die Datensatz
Anzahl sich garnicht verändert… Immer danach noch 7000
Datensätze, keiner weniger…

Die Datensätze sind ja noch da - einzelne sind allenfalls ausgeblendet, aber nicht entfernt worden.

Willst Du eine bereinigte Liste haben, dann filtere dies an eine andere Stelle.

Was mach ich denn Falsch?

IMO nichts, aber erkläre doch bitte noch etwas ausführlicher wie das bei dir genau aussieht (oder aussehen soll).

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -