AW: Duplikate aus Zeilen, nicht aus Spalten löschen!
16.08.2006 17:49:38
Peter
Hallo Peter,
nicht so elegant wie die Lösung für Helga, aber sie funktioniert:
Public
Sub ZeileOhneDoppelte()
Dim lZeile As Long ' der For/Next Index der Zeilen von 1 bis n
Dim iSpalte As Integer ' der For/Next Index der Spalten von 1 bis letzte belegte
Dim iLetzte As Integer ' letzte belegte Spalte in der Zeile
Dim iVglSpa As Integer ' Vergleichs-Spalte
For lZeile = 1 To 100 ' hier anpassen !!!
If WorksheetFunction.CountBlank(Rows(lZeile)) <> 256 Then ' Zeile leer?
iLetzte = IIf(Cells(lZeile, 256) <> "", 256, Cells(lZeile, 256).End(xlToLeft).Column)
For iSpalte = 1 To iLetzte - 1
iVglSpa = iSpalte + 1
Do While iVglSpa < iLetzte
If Trim(Cells(lZeile, iSpalte).Value) = _
Trim(Cells(lZeile, iVglSpa).Value) Then
Cells(lZeile, iVglSpa).ClearContents
End If
iVglSpa = iVglSpa + 1
Loop
Next iSpalte
End If
Next lZeile
End Sub
Mit Alt + F11 in die VBA Umgebung
Im linken Fenster Rechtsklick auf deine Mappe
Einfügen-Modul
Den Code da rein kopieren.
Alt+Q
Extras-Makro-Makros und ausführen.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.