Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Einträge

Doppelte Einträge
02.02.2007 09:39:28
José
Hallo
Habe folgendes Problemm zu lösen.
Habe eine Excel Datei mit 3 Tabellen mit sehr vielen Einträgen. Jetzt möchte Ich das alle einträge die in Tabelle 3 Vorkommen, in Tabelle 1 und Tabelle 2 gelöscht werden.
Hab ihr da ein paar gute Tips für mich
Danke
Gruß
José

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Einträge
02.02.2007 10:04:07
Ramses
Hallo
Tips schon,.. allerdings nur wenn du uns mehr Informationen bereitstellst
WO stehen die Daten in Tabelle 3
WELCHE Art Daten sind das
Sollen nur die einzelnen Werte gelöscht werden oder die ganzen Zeilen
Gruss Rainer
AW: Doppelte Einträge
02.02.2007 10:41:32
José
Ok das sehe Ich ein hier noch mehr Info´s
Es handelt sich um Kunden namen die in Spalte G stehen in allen Tabellen stehen die Kundennamen in Spalte G
In Allen 3 Tabellen der Excel datei stehen Kundnenamen drin.
In der Tabelle 3 stehen Kundennamen ach die wir nicht mehr benötigen.
Jetzt müßte also diese Tabelle 3 mit Tabelle 1 und Tabelle 2 verglichen werden.
Sobalt also ein Kundenname von Tabelle 3 gefunden wird in Tabelle 1 und Tabelle 2, müssen diese gelöscht werden aus Tabelle 1 und Tabelle 2.
Sorry Ich hoffe das ich mich jetzt besser ausgedrückt habe.
Gruß
José
Anzeige
AW: Doppelte Einträge
02.02.2007 11:00:50
Ramses
Hallo
probier mal
Option Explicit

Sub Del_Double_Data()
Dim wksArr() As Variant, wks As Variant, tarWks As Worksheet
Dim i As Long, n As Long, suchCol As Byte, startRow As Long
'Suchspalte G = 7
suchCol = 7
'In dieser Zeile beginnen deine Daten in tarWks
startRow = 1
'Hier stehen die Daten drin, du du gelöscht haben willst
Set tarWks = Worksheets("Tabelle3")
'Hier stehen die Tabellen die du durchsuchen willst
wksArr = Array("Tabelle1", "Tabelle2")
'Hier nichts mehr ändern
For Each wks In wksArr
For i = startRow To tarWks.Cells(Rows.Count, suchCol).End(xlUp).Row
With Worksheets(wks)
For n = .Cells(.Rows.Count, suchCol).End(xlUp).Row To 1 Step -1
If .Cells(n, suchCol).Text = tarWks.Cells(i, suchCol).Text Then
.Rows(n).Delete
End If
Next n
End With
Next i
Next wks
MsgBox "Fertig"
End Sub

Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige