Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Daten einer Spalte in mehreren Tabellenblättern

Forumthread: Doppelte Daten einer Spalte in mehreren Tabellenblättern

Doppelte Daten einer Spalte in mehreren Tabellenblättern
13.12.2023 14:16:53
Jennsnjoe
Hallo!

Ich suche nach einem Code mit dem ich doppelte Datensätze markieren kann.

Ich habe mehrere Tabellenblätter mit gleich aufgebauten Tabellen. Die Spalte G soll in allen Tabellenblättern auf doppelte Werte überprüft
und die Werte dementsprechend markiert werden.

Ich habe im Archiv etwas gefunden, der dortige Code funktioniert aber nicht.
Ich hoffe hier kann mir jemand weiterhelfen :-)

Viele Grüße
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Daten einer Spalte in mehreren Tabellenblättern
13.12.2023 14:25:51
daniel
hi
was hast du denn probiert und warum ist es gescheitert?
wie viele Zeilen haben deine Tabellen?
normalerweise kann man sowas relativ einfach mit Bedingter Formatierung und ZählenWenn oder Vergleich in der Regelformel erstellen.
Gruß Daniel
AW: Doppelte Daten einer Spalte in mehreren Tabellenblättern
13.12.2023 17:25:53
Jennsnjoe
Ich habe den Code dort kopiert und durchlaufen lassen, aber das hat eben nicht funktioniert.

Die Anzahl der Zeilen ist unterschiedlich.
Ich wüsste nicht wie man das mit bedingter Formatierung machen könnte, aber lasse mich natürlich gerne eines Besseren belehren.

Es soll so sein, dass alle Werte aus der Spalte G in allen Tabellenblättern geprüft werden, ob sie nur einmal vorkommen. Und bei Mehrfachnennung dann eben farblich markiert werden.
Anzeige
AW: Doppelte Daten einer Spalte in mehreren Tabellenblättern
13.12.2023 20:42:17
Piet
Hallo

probiere bitte mal diesen Code aus dem Internet aus. Ich habe auch zum erstenmal eine Bedingte Formatierung programmiert.
Tabellen die NICHT durchsucht werden sollen kannst du im Code überspringen. Nur den Tabellen Namen angeben. (GoTo nx)

mfg Piet 

Sub Makro3()

Dim j As Integer

For j = 1 To Worksheets.Count

With Worksheets(j)

'unerwünschte Blätter überspringen

If .Name = "Nicht dieses Blatt" Then GoTo nx

    .Columns("G").FormatConditions.Delete

    .Columns("G").FormatConditions.Add Type:=xlExpression, _

       Formula1:="=ZÄHLENWENN(G:G;G1)>1"

    .Columns("G").FormatConditions(1).Interior.Color = RGB(0, 255, 0)

nx: 'überspringen

End With

Next j

End Sub
Anzeige
AW: Doppelte Daten einer Spalte in mehreren Tabellenblättern
15.12.2023 14:20:53
Jennsnjoe
Ich habe den Code durchlaufen lassen. Ich befürchte aber, dass die Tabellen immer nur in sich selbst geprüft wurden, aber eben nicht alle Tabellen miteinander gegengeprüft wurden. Es sollen eben alle Werte in Spalte G überprüft werden, ob sie in einer anderen Tabelle auch stehen.

Viele Grüße
Anzeige
AW: Doppelte Daten einer Spalte in mehreren Tabellenblättern
13.12.2023 20:48:28
Yal
Hallo Jenns,

versuche damit: 
Sub markieren()

Dim dic

Dim ws As Worksheet

Dim Z As Range 'Z wie Zelle



'Dictionary

    Set dic = CreateObject("Scripting.Dictionary")

'Sammeln

    For Each ws In ThisWorkbook.Worksheets

        For Each Z In ws.UsedRange.Columns(7)

            dic(Z.Value) = dic(Z.Value) + 1

        Next

    Next

'Ablegen

    For Each ws In ThisWorkbook.Worksheets

        For Each Z In ws.UsedRange.Columns(7)

            If dic(Z.Value) > 1 Then Z.Interior.ColorIndex = 3

        Next

    Next

End Sub


VG
Yal
Anzeige
AW: Doppelte Daten einer Spalte in mehreren Tabellenblättern
15.12.2023 14:17:16
Jennsnjoe
Hallo!
Also der Code funktioniert leider nicht. Es kommt die Meldung "Laufzeitfehler 5" und "Ungültiger Prozuduraufruf oder ungültiges Argument".
AW: Doppelte Daten einer Spalte in mehreren Tabellenblättern
15.12.2023 14:42:11
Yal
Hallo Jenns,

korrigierte Version. Ich habe ebenfalls vergessen zu erwähnen, dass diese Code in einem Modul und nicht in einem Arbeitsball-Codepane abgelegt weredn soll. 

Sub markieren()

Dim dic

Dim ws As Worksheet

Dim Z As Range 'Z wie Zelle



'Dictionary

    Set dic = CreateObject("Scripting.Dictionary")

'Sammeln

    For Each ws In ThisWorkbook.Worksheets

        For Each Z In Range(ws.Cells(1, "G"), ws.Cells(ws.Rows.Count, "G").End(xlUp))

            dic(Z.Value) = dic(Z.Value) + 1

        Next

    Next

'Ablegen

    For Each ws In ThisWorkbook.Worksheets

        For Each Z In Range(ws.Cells(1, "G"), ws.Cells(Rows.Count, "G").End(xlUp))

            If dic(Z.Value) > 1 Then Z.Interior.ColorIndex = 3

        Next

    Next

End Sub


VG
Yal
Anzeige

Forumthreads zu verwandten Themen

Daten aus verschiedenen Blättern
Karl-Ludwig

Hallo zusammen,
eine kleine Date habe ich angehäng, in der ich die Daten aus verschiedenen Blättern auf ein Blatt eintragen möchte.
Kann mir hier jemand helfen?
Dankeschön+ Gruß
KL
https://www.herber.de/bbs/user/64123.xls
31.08.2009 07:29:10
Thread-ID: 1099510
4 Beiträge
Altersdaten aus mehreren Arbeitsblättern ermitterl
GILARD@AOL.com

Hallo zusammen. Ich habe insgesamt fünf Arbeitsblätter in denen uner anderem in der Spalte F das Alter verschiedener Personen mit einer Formel berechnet wird. Nun möchte ich gerne wissen, wieviele Personen in der Altetsgruppe 0 bis 14, 15 bis 21, 22 bis 45, 46 bis 61 und älter als 61 sind.
...
03.09.2009 08:07:11
Thread-ID: 1100213
4 Beiträge
Diagramm/Pivot aus mehreren Tabellenblättern
Holger

Hallo zusammen,
habe ein Excel-Sheet mit mehreren Tabellenblättern und möchte aus der Gesamtheit aller Daten ein Diagramm oder PivotChart erstellen. Ist dies möglich und wenn ja wie? Ein Beispiel habe ich hochgeladen.
Vielen Dank schon mal für die Hilfe.
11.02.2010 21:24:37
Thread-ID: 1137925
4 Beiträge
Gestapelte Säule aus mehreren Tabellenblättern
Holger

Hallo zusammen,
habe ein Beispiel hochgeladen: https://www.herber.de/bbs/user/67944.xlsx.
Folgendes habe ich vor:
Zum Einen ein Digagramm mit den Werten aus allen Blättern. Die Werte der Spalten sollen dann nach Anzahl der dort enthaltenen Werte gestaüelt werden.
Als Beispiel:...
14.02.2010 21:08:48
Thread-ID: 1138530
4 Beiträge
Messwerte aus verschiedenen Tabellenblättern
Sebatian

Hallo Forum,
ich hab folgendes Problem und hoffe auf eure Hilfe.
In einer Arbeitsmappe habe ich Messwerte abgelegt. Da die Messungen über mehrere Tage gehen, habe ich für jeden Tag ein eigenes Tabellenblatte angelegt.
In der gleichen Mappe möchte ich nun, in einem separaten Tabell...
14.09.2011 09:33:03
Thread-ID: 1229757
11 Beiträge
Übersicht aus mehrern Tabellenblättern
Nathalie

Guten Morgen,
ich beschäftige mich gerade mit unserer Personalplanung intern in unserer Abteilung. Ich habe nun eine Exceltabelle angelegt in der jeder Mitarbeiter seinen Urlaub eintragen kann. Um die Tabelle übersichtlich zu gestalten hab ich für jeden Monat ein Tabellenblatt angelegt, die...
07.11.2011 11:05:08
Thread-ID: 1236908
8 Beiträge
Daten aus verschiedenen Datenblättern zusammenfüge
Anne

Hallo zusammen
Ich steh grad vor einem kleinen /grösseren Problem. Vielleicht was ja jemand einen Rat (ich wäre sooooo dankbar).
Ich habe folgende Exceldatei
https://www.herber.de/bbs/user/79358.xlsm
In dieser Datei werden in verschiedenen Projektblättern die tagesweise Stunde...
15.03.2012 15:58:36
Thread-ID: 1254807
3 Beiträge
Anzeige
Daten ausmehreren Excel Dateien zusammenführen
stefan

Hallo Profis
ich habe eine Vorlage und in diese Vorlage will ich die Werte aus 3 anderen Dateien reinkopieren beim öffnen der Vorlage sollen die anderen Dateien geöffnet werden nacheinander wenn möglich und die Daten aus den anderen Dateien kopiert und eingefügt werden.
Habe die Vor...
07.10.2012 11:11:41
Thread-ID: 1280830
14 Beiträge
Text aus mehreren Tabellenblättern lesen
hachi

Hallo zusammen
Ich benötige mal wieder ein wenig Hilfe.
Aus meinem Dienstplan möchte ich aus den Tabellenblättern Januar:Dezember alle Urlaube mit den Bezeichnungen "U" und "U6" herauslesen. Diese sollen im Tabelle "Urlaubsliste" eingetragen werden.
=WENN(UND($A4=Januar!$E11;SUMMEN...
02.12.2012 20:18:05
Thread-ID: 1288980
7 Beiträge
Anzeige
Daten aus mehreren Mappen zusammenführen
Constantin

Hallo,
ich möchte Daten aus 20 Arbeitsmappen mit gleichem (Spalten-)Aufbau zusammenfügen. Dafür habe ich eine Mappe „Summe“, die in Tabelle1 die Informationen für diese Dateien beinhaltet: Dateiname (Spalte 1), Password (Spalte 2) und den Dateipfad (Spalte 3). Diese Auflistung wird ab Zei...
19.02.2013 18:10:31
Thread-ID: 1300086
3 Beiträge
Anzeige
Fehler bei Summe aus mehreren Tabellenblättern
Julia

Hi,
ich bilde aus mehreren Tabellenblättern die Summe: summe(Tabelle1:Tabelle10!D6)- das hat bisher immer funktioniert. Die Tabellenblätter haben aber Namen und bisher war das letzte Blatt ein Name aus einem Wort. Jetzt heißt es aber z.B. New York, sobald ich z.B. summe(Berlin:New York!D6)...
21.05.2013 08:35:43
Thread-ID: 1314035
7 Beiträge
Anzeige
Daten aus mehreren Blättern zusammenfassen
Mr.

Hallo zusammen,
als VBA-Neuling braue ich eure Hilfe bei folgendem Problem:
In einem Tabellenblatt VWerte stehen in A2-A31 Namen, aus denen über Makro 30 Tabellenblätter (alle identisch) nach einem Muster erzeugt werden. Die Inhalte werden später modifiziert.
In einem neuen Blatt s...
24.05.2013 17:19:15
Thread-ID: 1314787
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige