Script will nicht so laufen
05.12.2003 10:46:03
Daniel
ich habe ein Script, welches z.B. wenn ich in Spalte "A" 3 Zeilen mit gleichem Inhalt habe, alle außer eine löscht. Somit wurden 2 Zeilen gelöscht.
Nur ist es für mich verwunderlich ... wenn bei diesem Bsp. mit den 3 gleichen Zeilen (Spalte A) es nicht so funktioniert, wenn in Spalte B hinter den 3 Zeilen unterschiedliche Einträge sind.
gegeben:
A | B
a s
a ssd
Ist:
A | B
a s
a ssd
Soll:
A | B
a s
Script:
Private Sub CommandButton4_Click()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Dim lngRow As Long
lngRow = 2
Do Until IsEmpty(Cells(lngRow, 1))
If Application.CountIf(Columns("A"), Cells(lngRow, 1)) > 1 Then
Rows(lngRow).Delete
End If
lngRow = lngRow + 1
Loop
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub