Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Duplikate in mehreren Tabellenblättern markieren

Duplikate in mehreren Tabellenblättern markieren
29.05.2016 15:12:51
parza
Hallo Fachleute,
Eigentlich scheint mein Problem schon tausend Mal gelöst worden zu sein, habe aber im Forum noch nicht die richtige Lösung gefunden:
Ausganglage: Eine Exceldatei besteht aus ca. 15 verschiedenen Sheets. In der Spalte C stehen jeweils Nachnamen. Das Ziel wäre, in jedem Sheet jenen Namen zu markieren, der in einer anderen Registerkarte bereits vorkommt. Löschen der Duplikate soll nicht vorgenommen werden.
In der Beispieldatei habe ich mich auf vier Sheets beschränkt und im Original heißen die Sheets auch nicht Tabelle1, Tabelle2 etc. Das Ändern der Namen würde ich mir zutrauen – obwohl Programmierlaie.
Danke parza
https://www.herber.de/bbs/user/105848.xls

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Duplikate in mehreren Tabellenblättern markieren
29.05.2016 18:49:10
parza
Hi Klaus,
ich glaube, dass ist perfekt.
Noch eine Anfängerfrage: Wenn die Namen nicht in Spalte C, sondern D stehen würden, was müsste ich ändern? Alle 3er in 4er; oder ist das zu banal gedacht?
danke, parza

Anzeige
3 = 4 und C = D
29.05.2016 19:04:02
KlausF
Hallo parza,
ja, überall dort, wo eine 3 im Code steht (steht für 3.Spalte = C) muss eine 4 stehen
und einmal für C das D:
lngLast = .Worksheets(intAnzahl).Cells(Rows.Count, 4).End(xlUp).Row
...
If .Worksheets(intAnzahl).Cells(i, 4).Value "" Then
strVergleich = .Worksheets(intAnzahl).Cells(i, 4).Value
For x = 1 To Worksheets(intActiveSheet).Cells(Rows.Count, 4).End(xlUp).Row
If strVergleich = Worksheets(intActiveSheet).Range("D" & x).Value Then
.Worksheets(intAnzahl).Cells(i, 4).Font.Color = vbRed
GoTo ENDE
End If
Next x
End If
Gruß
Klaus

Anzeige
AW: 3 = 4 und C = D
29.05.2016 19:07:18
parza
super und nochmals vielen Dank für die tolle Unterstützung, parza
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Duplikate in mehreren Tabellenblättern markieren


Schritt-für-Schritt-Anleitung

Um doppelte Werte aus zwei Tabellenblättern farblich zu markieren, kannst Du folgende Schritte in Excel durchführen:

  1. Öffne Deine Excel-Datei mit mehreren Tabellenblättern.
  2. Wechsle zum ersten Tabellenblatt, in dem Du die Duplikate markieren möchtest.
  3. Wähle die Spalte aus, in der die Nachnamen stehen (beispielsweise Spalte C).
  4. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  5. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
  6. Gib die folgende Formel ein, um die doppelte Werte in zwei Tabellen zu finden:
    =ZÄHLENWENN(Tabelle2!C:C;C1) > 0

    (Hierbei ist Tabelle2 der Name des zweiten Tabellenblatts, das Du vergleichen möchtest).

  7. Klicke auf Formatieren, wähle eine Farbe aus und bestätige mit OK.
  8. Klicke erneut auf OK, um die Regel zu speichern.
  9. Wiederhole diesen Vorgang für die anderen Tabellenblätter.

Häufige Fehler und Lösungen

  • Fehler: Die Formel funktioniert nicht.

    • Lösung: Stelle sicher, dass der Blattname in der Formel korrekt ist. Prüfe auch, ob die Spaltenbezüge stimmen.
  • Fehler: Es werden keine Werte markiert.

    • Lösung: Überprüfe die Schreibweise der Namen und die Auswahl der Spalte. Achte darauf, dass die Daten im richtigen Format vorliegen.

Alternative Methoden

Eine alternative Methode, um doppelte Werte über mehrere Tabellenblätter zu finden, ist die Verwendung von VBA:

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle Einfügen > Modul.
  3. Füge den folgenden Code ein:

    Sub DuplikateMarkieren()
       Dim ws As Worksheet
       Dim rng As Range
       Dim cell As Range
    
       For Each ws In ThisWorkbook.Worksheets
           Set rng = ws.Range("C:C") ' Hier die Spalte anpassen
           For Each cell In rng
               If Application.WorksheetFunction.CountIfs(ThisWorkbook.Worksheets(1).Range("C:C"), cell.Value) > 1 Then
                   cell.Font.Color = vbRed
               End If
           Next cell
       Next ws
    End Sub
  4. Schließe den VBA-Editor und führe das Makro aus, um die Duplikate in Excel zu markieren.

Praktische Beispiele

Ein konkretes Beispiel für die Anwendung:

  • Beispiel: Du hast die Tabellenblätter Mitarbeiter, Kunden und Lieferanten. Du möchtest alle Nachnamen, die in Mitarbeiter und Kunden vorkommen, in jedem Blatt rot markieren. Nutze die oben genannten Schritte, um diese doppelte Werte in 2 Tabellen sichtbar zu machen.

Tipps für Profis

  • Nutze die SVERWEIS-Funktion, um gezielt nach Werten in verschiedenen Tabellenblättern zu suchen.
  • Erwäge die Verwendung von Pivot-Tabellen, um eine Übersicht über die doppelten Werte in mehreren Tabellenblättern zu erhalten.
  • Halte Deine Excel-Datei regelmäßig sauber, indem Du nicht verwendete Tabellenblätter entfernst und die Daten aufbereitet.

FAQ: Häufige Fragen

1. Wie kann ich die Formel anpassen, wenn die Nachnamen in Spalte D stehen? Ändere einfach die 3 in der Formel auf 4. Zum Beispiel:

=ZÄHLENWENN(Tabelle2!D:D;D1) > 0

2. Kann ich auch Google Sheets verwenden, um Duplikate zu markieren? Ja, die Schritte sind ähnlich. In Google Sheets kannst Du die bedingte Formatierung ebenfalls nutzen, um doppelte Werte farblich zu markieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige