Ich möchte in Excel bestimmte löschen und zwar wenn in Spalte b untereinander z.B. folgende Werte stehen:
1
1
1
2
2
3
3
dann soll jeweils nur die erste Zahl von mehrfach vorkommenden Zahlen stehen bleiben, also würde es dann so aussehen:
1
(zeile gelöscht
(zeile gelöscht)
2
(zeile gelöscht)
3
(zeile gelöscht)
Habe schon einen Lösungsansatz, jedoch funktioniert der nicht :(
Kann mir jemand helfen? Wäre gut :)
Hier mein Versuch:
Sub DelLnr()
Dim Tempvar As Variant
Dim ErgRowCount As Long
Set Ergebnis = Worksheets("Ergebnis")
ErgRowCount = WorksheetFunction.CountA(Ergebnis.Columns(12))
Tempvar = Ergebnis.Cells(1, 2)
MsgBox (Tempvar)
Tempvar = Ergebnis.Cells(1, 2)
For ErgRowCount = 2 To ErgRowCount
If Tempvar = Ergebnis.Cells(ErgRowCount, 2) Then
Ergebnis.Cells(ErgRowCount, 2).Delete
Else: Tempvar = Ergebnis.Cells(ErgRowCount, 2)
End If
Next ErgRowCount
End Sub