ich hab folgende Frage an euch:
Ich habe ein Makro, welches die Spalte I der tabelle2 mit der Spalte I der tabelle1 überprüft und doppelte Einträge automatisch aus tabelle1 löscht.
Code:
StandardModule: Modul1
Sub Loeschen()
Dim var As Variant
Dim iRow As Integer
iRow = 1
With Worksheets("tabelle2")
Do Until IsEmpty(.Cells(iRow, 9))
var = Application.Match(.Cells(iRow, 9).Value, Columns(9), 0)
If Not IsError(var) Then Rows(var).Delete
iRow = iRow + 1
Loop
End With
End Sub
Könnte mir jemand sagen, wie ich hier etwas einbauen kann, damit mir zur Protokollierung die gelöschten Zeilen in einer dritten Tabelle angezeigt werden?
Oder gibt es noch eine bessere Variante für mein Problen? Beispielweise, dass man beide Tabellen überprüfen lässt und in tabelle1 die doppelten Daten farbig markieren lässt, so dass man diese dann per Hand löschen kann?
Danke
Gruß
Christoph