AW: Doppelte Lagerplätze per VBA löschen ändern
29.10.2014 07:07:25
Mullit
Hallo,
ah ok, wenn Du die Einzelwerte doch behalten willst:
Option Explicit
Public Sub testneu()
With ActiveSheet
.Range(.Columns(1), .Columns(13)).RemoveDuplicates Columns:=1, Header:=xlNo
End With
End Sub
sonst analog zu Franks Code:
Option Explicit
Public Sub test()
Dim lngRow As Long
Application.ScreenUpdating = False
With ActiveSheet
For lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If .Cells(lngRow, 1) = .Cells(lngRow - 1, 1) Then
.Cells(lngRow - 1, 1).Resize(2, 13).Delete Shift:=xlShiftUp
lngRow = lngRow - 1
End If
Next
End With
Application.ScreenUpdating = True
End Sub
Gruß,