doppelte Zellen pro Spalte
Stefan
ich habe wieder mal ein Problem. Allerdings habe ich hier im Forum nachgesehen und ein fast identisches gefunden. Dabei handelt es sich um folgendes: Claudia vom 15.06.2010 19:05:41. Der Quellcode leistet folgendes: Es werden, wenn in einer Zeile ein Zelleintrag mehrfach vorhanden ist diese Mehrfacheinträge pro Zeile gelöscht, wobei der zuerst gefundene immer stehen bleibt. Hier nochmal der Quellcode dazu:
Sub sbDel()
Dim liRow As Integer, liCol As Integer, liCol1 As Integer
For liRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For liCol = 2 To Cells(liRow, Columns.Count).End(xlToLeft).Column
For liCol1 = liCol + 1 To Cells(liRow, Columns.Count).End(xlToLeft).Column
If Cells(liRow, liCol1).Value = Cells(liRow, liCol).Value Then
Cells(liRow, liCol1).Delete Shift:=xlToLeft
liCol1 = liCol1 - 1
End If
Next
Next
Next
End Sub
Meine Arbeit würde sehr erleichtert, wenn ich diesen Quellcode so umgeschrieben hätte, daß nicht doppelte Einträge pro Zeile gelöscht würden sondern doppelte Einträge pro Spalte gelöscht werden (wobei wie im obigen Code, der zuerst gefundene Eintrag immer stehen bleiben soll).
Viele Grüße
Stefan