Duplikate markieren
02.08.2015 11:45:22
Christoph
bin neu hier und habe ein denke mal kleines Problem für euch.
Möchte gerne das Duplikate markiert werden. Nachfolgendes Makro markiert alle Duplikate in Spalte B. Soweit eigentlich ganz gut. Ich möchte aber gerne das Duplikate aus Spalte B Über die ganze Zeile, ale bis zur letzten ausgefüllten Spalte markiert werden.
Makro welches nur Spalte B markiert.
Option Explicit
Sub Doppelte_Werte()
' Doppelte_Werte Makro
' Doppelte Werte werden in Spalte B markiert.
' Tastenkombination: Strg+x
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String
lngZeile = Cells(Rows.Count, 2).End(xlUp).Row
For lngZeilenSprung = lngZeile To 1 Step -1
strSuchwert = Cells(lngZeilenSprung, 2).Value
If Application.WorksheetFunction.CountIf(Range(Cells(1, 2), Cells(lngZeile, 2)), _
strSuchwert) 1 Then
Cells(lngZeilenSprung, 2).Interior.ColorIndex = 33
End If
Next lngZeilenSprung
End Sub
Anzeige