Doppelte Einträge

Forumthread: 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

AW: Doppelte Einträge

02.02.2007 10:04:07

Ramses
AW: Doppelte Einträge

02.02.2007 10:41:32

José
AW: Doppelte Einträge

02.02.2007 11:00:50

Ramses

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é

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Doppelte Einträge

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread