Computerhilfen.de Logo
Forum
Tipps
News
Frage stellen

Excel doppelte Einträge markieren

Hi,
ich habe ein Makro für Excel, das doppelte Einträge rot markiert.
Aber leider werden auch leere Zeilen rot markiert. Wie kann ich diese Zeilen ausschließen?

Public Sub Doppelte_Rot()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 1).End(xlUp).Row
 
  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 1).Value
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(lngZeile, 1)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
      End If
  Next lngZeilenSprung

Antworten zu Excel doppelte Einträge markieren:

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Einfach prüfen, ob der Suchwert leer ist:

...
strSuchwert = Cells(lngZeilenSprung, 1).Value
If strSuchwert <> "" Then ...

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

strSuchwert gibt doch nur eine 1 wenn der wert doppelt vorhanden ist. Mit dem Code würde ich alle auswählen, die nicht doppelt vorhanden sind.

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Nein, strSuchwert enthält doch den Inhalt einer Zelle.
Komplett müsste es dann so aussehen:

Public Sub Doppelte_Rot()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 1).End(xlUp).Row
 
  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 1).Value
    If strSuchwert <> "" Then
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(lngZeile, 1)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 1).Interior.ColorIndex = 3
      End If
    End If
  Next lngZeilenSprung

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Oh stimmt danke  ;D
Ich kenn mich da nicht so aus.
Kannst du mir vielleicht auch noch veraten wie ich das für Zelle 2 mache?

Edit: OK habs schon.
Nochmal Danke für die hilfe.

« Letzte Änderung: 20.07.08, 18:02:36 von Toni_15 »

« Was ist ARIA PIPP Spectrum SQL Abfrage »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Makrolon
Makrolon ist ein von der Firma Bayer entwickelter Kunststoff, ein so genanntes Polycarbonat. Dieser Stoff ist extrem form- und wärmebeständig und deshalb auch v...

Excel
Excel ist ein Programm aus dem Office-Paket und kann entweder einzeln oder in diesem Paket von Microsoft erworben werden. In beiden Fällen ist es kostenpflichtig.&nb...

Quellcode
Ein Quellcode, auch als Quelltext bekannt, bezeichnet einen unkompilierten Programm-Code einer Software. Der Quellcode ist meist in einer der verbreiteten Programmierspra...