Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Duplikate markieren

Duplikate markieren
02.08.2015 11:45:22
Christoph
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Duplikate markieren
02.08.2015 11:59:17
AlexG
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

Anzeige
AW: Duplikate markieren
02.08.2015 12:15:19
Christoph
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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige