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