Duplikate markieren

Bild

Betrifft: Duplikate markieren
von: Christoph Zahn
Geschrieben am: 02.08.2015 11:45:22

Hallo,
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

Bild

Betrifft: AW: Duplikate markieren
von: AlexG
Geschrieben am: 02.08.2015 11:59:17
Hallo Cristoph,
so?

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 lngLetzteSpalte As Long
    Dim strSuchwert     As String
    
    lngZeile = Cells(Rows.Count, 2).End(xlUp).Row
    lngLetzteSpalte = Cells(1, Columns.Count).End(xlToLeft).Column
  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
        Range(Cells(lngZeilenSprung, 1), Cells(lngZeilenSprung, lngLetzteSpalte)) _
            .Interior.ColorIndex = 33
        End If
  Next lngZeilenSprung
End Sub
Gruß
Alex

Bild

Betrifft: AW: Duplikate markieren
von: Christoph Zahn
Geschrieben am: 02.08.2015 12:15:19
Hi Alex,
genau so.
Damit ist mein Problem gelöst.
Bin schon als Gast oft das dieses Forum gestoßen und immer wieder begeistert wie schnell einem hier geholfen wird.
Gruß Christoph

Bild

Betrifft: Freut mich, Danke für die Rückmeldung. Gruß (oT)
von: AlexG
Geschrieben am: 02.08.2015 12:18:18


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Duplikate markieren"