AW: Zeilen löschen
28.02.2011 18:13:44
Oberschlumpf
Hi Erhard
ach sooooooooo
Du möchtest, dass Wiederholungszeilen gelöscht werden sollen.
Das hier hattest du geschrieben:
Ich möchte alle Zeilen Löschen, in deren Spalten A,B,C,D,E jeweils die gleichen Werte stehen
Daraus kann man auch verstehen, dass jede Zeile gelöscht werden soll, wenn in allen 5 Spalten der selbe Wert steht - also:
r r r g b - nich löschen
a s d f g - nich löschen
h h h h h - löschen
a s d f g - nich löschen
k k k k k - löschen
Hmm, na gut, dann versuch es mal mit diesem Code:
Sub sbDel()
Dim liRow As Integer, liRow1 As Integer
Dim lstrFeld1 As String, lstrFeld2 As String, liCol As Integer
For liRow = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
For liCol = 1 To 5
lstrFeld1 = lstrFeld1 & Cells(liRow, liCol)
Next
For liRow1 = Cells(Rows.Count, 1).End(xlUp).Row - 1 To 2 Step -1
For liCol = 1 To 5
lstrFeld2 = lstrFeld2 & Cells(liRow1, liCol)
Next
If lstrFeld1 = lstrFeld2 And _
liRow liRow1 Then
Rows(liRow1).Delete Shift:=xlUp
End If
lstrFeld2 = ""
Next
lstrFeld1 = ""
Next
End Sub
Nun werden alle Zeilen dann gelöscht, wenn sie sich in den Spalten A - E wiederholen.
Hilfts?
Ciao
Thorsten