Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereinigen einer Tabelle mit doppelten Einträgen

Bereinigen einer Tabelle mit doppelten Einträgen
19.02.2004 12:26:16
Philip
Hallo,
ich habe folgende Problem.
von meiner SQL Abfrage erhalte ich folgendes Ergebis.
PNR Name Sport Birthday
23 RICKERT 892407 31.12.1974 00:00
23 RICKERT 892377 31.12.1974 00:00
23 RICKERT 892385 31.12.1974 00:00

Ich muss diese Liste bereinigen.
Da es sich immer um dieselbe Person Handel (PNR) allerdings mit verschiedenen Sportarten möchte ich aus den drei Datensätzen einen machen.
Die Liste so anschliessend so aussehen
PNR Name Birthday Sport1 Sport2 Sport3
23 RICKERT 31.12.1974 00:00 892407 892377 892385
Kann mir jemand helfen?
Vielen Dank Philip

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereinigen einer Tabelle mit doppelten Einträgen
19.02.2004 13:25:41
Student2000
LetzteZeile = Worksheets("Tabelle_Alt").Cells.Find(What:="*", _
After:=Worksheets("Tabelle_Alt").Range("A1"), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
a = 1 'Schleife in der Tabelle Alt - Startzahl für die erste Zeile

Zella = 1 ' Zeile zu der die Daten exportiert werden sollen


Do While a < LetzteZeile 'Anzahl der Zeilen in Tabelle Alt
Zelle = 1
Spalte = 1

i = 1 'Startzahl für die erste Zeile in Tabelle Alt
SpalteSport = 6
Do While i < LetzteZeile 'Anzahl der Zeilen in der Tabelle_Alt




If Worksheets("Tabelle_Alt").Cells(Zellea, 1) = Worksheets("Tabelle_Alt").Cells(i, 1) Then
Sheets("Tabelle_Alt").Cells(Zellea, SpalteSport).Value = Sheets("Tabelle_Alt").Cells(i, 3).Value
else
SpalteSport = 5


End If



i = i + 1 'Hochsetzen der Zeile, damit in Tabelle_Alt von Zeile zu Zeile nach unten gesprungen wird

SpalteSport = SpalteSport + 1

Loop 'Ende Schleife in der Tabelle_Alt

Zellea = Zellea + 1 'Hochsetzen der Zelle, damit in Tabelle_Alt von Zelle zu Zelle nach unten gesprungen wird
a = a + 1 'Hochsetzen der Zeile, damit in TAbelle_ Alt von Zeile zu Zeile nach unten gesprungen wird

Loop 'Ende Schleife in der Tabelle_Alt

Anschliessend löscht du nur noch die Spalte "Sport"
Application.ScreenUpdating = True
Bin zwar selber gerade anfänger, konnte dir aber hoffentlich helfen, sind bestimmt noch ein paar Systaxfehler drin aber so könnnte es meiner meinung nach klappen. Viel Glück.
Anzeige
AW: Bereinigen einer Tabelle mit doppelten Einträgen
19.02.2004 17:02:44
Philip
Besten Dank klappt Prima!
Wie kann ich den jetzt die doppelten löschen, so das nur eine Zeile pro PNR übrig bleibt?
Das Problem ist das ich fast 140000 Einträge habe und sie so minimieren könnte
Nochmals danke für die schnelle Hilfe!
AW: Bereinigen einer Tabelle mit doppelten Einträgen
20.02.2004 10:47:33
Student2000
Nimm doch die Sortierfunktion, ganz schnell, sortierst nach Sport1 und dann was unten übersteht schneidest weg.
mfg thomas
AW: Bereinigen einer Tabelle mit doppelten Einträgen
20.02.2004 11:52:22
Philip
Hi,
hatte ich auch dedacht, aner die TAbelle hat 14000 Einträge.
Ideal wäre die doppelten Zeilen direkt nach der Sortierung zu löschen.
Anzeige
AW: Bereinigen einer Tabelle mit doppelten Einträgen
20.02.2004 14:53:05
Student2000
Ok, das wird aber ne weile dauern. Jedenfalls bei 14000 einträge. Aber das gute ist du lässt es ja machen :).
Ok habe ne Idee, du baust dir ne Schleife mit i = 1
do while i < 14001 'hier kannst du auch nach der letzten Zeile suchen
if worksheets("Tabelle").Cells(i, Sport1 oder Sport 3 je nachdem welche leer ist) = "" then
lösche Zeile i ' Obacht nicht ausschneiden sonst haut deine Schleife nicht hin
i = i + 1
else
i = i + 1
end if
Jetzt brauchst du nur noch einmal nach PNR sortieren lassen und Voilà!
mfg Thomas

304 Forumthreads zu ähnlichen Themen

Tabellenblätter miteinander verknüpfen
Ephraim

Guten Morgen,
leider schaff ich es nicht, zwei Tabellenblätter in einer Datei miteinander zu verknüpfen. Was in Tabellenblatt 1 steht soll auch automatisch in TB2 übertragen werden. Optimalerweise soll in TB 2 lediglich eine Spalte ausgefüllt werden. Der restliche Inhalt soll geschützt sein...
18.08.2008 07:19:00
Thread-ID: 1002497
4 Beiträge
Anzeige
Eingaben aus Tabellen mit Userform befüllen
Peter

Hallo wertes Forum
ich habe da mal wieder etwas und komme nicht so richtig weiter.
Ich habe eine Tabelle
In Spalten Namen und in Zeilen Datum
Nun möchte ich gern das ganze mit Userform befüllen
also eine combobox, die mir das Datum zurürck gibt und eine die Mir die Namen a...
06.09.2008 11:42:00
Thread-ID: 1007825
4 Beiträge
aut.Füllen von Felden mittels Referenztabellen
Felden

Hallo,
ich habe folgende Situation:
Ich habe zu einer Artikelnummer eine Kundenartikelnummer und einen Preis. Diese Daten habe ich in einer "Referenztabelle", d.h. in einem eigenen Excelfile.
Ich möchte nun bei der Erstellung von Rechnungen lediglich die Artikelnummer eingeben. Exce...
24.09.2008 08:04:00
Thread-ID: 1011910
2 Beiträge
Anzeige
Pivot-Tabellen mit gefilterten Werten möglich?
Andreas

Hallo Forum,
ich habe mal eine Frage bezüglich Pivot-Tabellen. Kann eine solche Tabelle schon vorher gefilterte Werte auswerten, ohne dass die herausgefilterten Zellen beachtet werden?
MFG Andreas
10.11.2008 11:29:00
Thread-ID: 1023155
5 Beiträge
Tabelle mittels eingebundenem Java jar-file füllen
Arthur

Ein fröhliches Hallo zusammen.
Ich habe ein Java jar-file, eingebunden in eine Excel-Datei. Die darin enthaltene Funktion soll per Knopfdruck aufgerufen werden, Daten aus einer anderen Anwendung abholen und das Ergebnis in einem Worksheet eintragen.
Der Knopfdruck samt Aufruf der Funkti...
27.11.2008 15:46:00
Thread-ID: 1028425
2 Beiträge
Tabellenbereich mit Array o.ä. füllen
dennis

Hallo zusammen,
weiss jemand eine Möglichkeit wie man mehrere Werte gleichzeitig in ein Exceltabellenblatt bekommt?
Mein Problem ist folgendes:
Ich berechne mir über eine Schleife die x,y Werte für ein Diagramm.
Diese würde ich gerne vorher speichern (z.B. in einem Array, bzw. M...
09.01.2009 15:02:04
Thread-ID: 1038249
10 Beiträge
Wie Säulendiagramm mit Tabelle mit gestapelten Säu
sohsoh

Hallo,
ich habe folgendes Problem und schon wie ein Irrer probiert, aber bis jetzt noch keine Lösung gefunden.
Ich habe zu Verschiedenen Stoffen jeweils 2 Messwerte in 3 Verschiedenen Zuständen. Jetzt möchte ich ein Säulendigramm erstellen in denen ich 3 Säulen (zu den drei Zuständen je...
14.01.2009 10:48:22
Thread-ID: 1039519
2 Beiträge
Die ersten 5 Zeilen als fester Block
Markus

Hallo
Noch eine letzte Frage:
Wenn ich in einem Sheet die ersten 5 Zeilen mit Beschriftung und Datum habe sprich eine Bilanz.
Wie kann ich das bewerkstelligen, wenn die Bilanz oder die GuV Rechnung sich auf zwei Seiten verlängert, daß ich die ersten 5 Zeilen auch auf der zweiten Sei...
31.01.2009 01:17:00
Thread-ID: 1045564
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
9
3
1
4
4
1
9
1
1
8
4
5
8
6
3
2
18
1
2
1
2
9
6
2