doppelte Zeilen in andere Tabelle kopieren
02.12.2006 07:12:57
Wolfgang
mit untenstehendem Code soll erreicht werden, doppelte Zeilen innerhalb eines Tabellenblattes zu löschen; Was die farbliche Markierung danach zu bedeuten hat, weiß ich nicht (habe den Code unter Recherche entdeckt)und wäre für meine Zwecke nicht erforderlich; Wie könnte bzw. müßte der Code geändert werden, wenn weiterhin zwar Zeilen, in denen sich die gleichen Datensätze befinden, gelöscht werden sollen, aber die aussortierten Datensätze dann in ein weiteres (noch zu generierendes) Tabellenblatt kopiert werden sollen. Ist das überhaupt möglich? - Ich wäre erneut für eine Rückmeldung sehr dankbar.
Herzliche Grüße
Wolfgang
Option Explicit
Sub Tabelle_überprüfen()
Dim tx As String, tx2 As String
Dim i As Long, j As Long, k As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To laR
If Cells(i, 3).Interior.ColorIndex <> 45 Then
tx = Cells(i, 2).Value
tx2 = Cells(i, 4).Value
For j = i + 1 To laR + 1
If Cells(j, 2).Value = tx Then
If Cells(j, 4).Value = tx2 Then
If Cells(i, 3).Value < Cells(j, 3).Value Then
Cells(i, 3).Interior.ColorIndex = 45
Else
Cells(j, 3).Interior.ColorIndex = 45
End If
End If
End If
Next j
End If
Next i
For k = laR To 1 Step -1
If Cells(k, 3).Interior.ColorIndex = 45 Then
Cells(k, 3).EntireRow.Delete
End If
Next k
Application.ScreenUpdating = True
End Sub