Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte markieren - mehrere Spalten

Doppelte markieren - mehrere Spalten
lutz
Hallo Excel-Profis,
ich habe mal wieder ein Problem an dem ich mir die Zähne ausbeisse:
Ich bekomme eine Liste mit ca. 1000 Zeilen Datensätzen. Jetzt kann es sein, das Einträge (Rechnungen) doppelt erfasst worden sind.
Die Rechnungsnummer steht in Spalte G (also 7)
Jetzt habe ich ein Makro gefunden welches mit die doppelten markiert:
Public Sub Doppelte_RotOhneLeer() Dim lngZeile As Long Dim lngZeilenSprung As Long Dim strSuchwert As String lngZeile = Cells(Rows.Count, 7).End(xlUp).Row For lngZeilenSprung = lngZeile To 1 Step -1 strSuchwert = Cells(lngZeilenSprung, 7).Value If strSuchwert "" Then If Application.WorksheetFunction.CountIf(Range(Cells(1, 7), Cells(lngZeile, 7)), _ strSuchwert) 1 Then Cells(lngZeilenSprung, 7).Interior.ColorIndex = 3 End If End If Next lngZeilenSprung End Sub Leider markiert er mir nicht alle doppelten; ich habe z.B. 2011-001 mehrfach in Spalte G und es wird nicht markiert.
Ausserdem müßte ich noch die Spalten H, I und J mit in die Prüfung mit einbeziehen - es sollen also nur doppelte markiert werden, die in den Spalten G - J überall den gleichen Eintrag haben.
Geht das - und wenn ja wie?
Vielen Dank für Eure Hilfe und viele Grüße Lutz
warum nicht bed. Formatierung? owT
03.01.2012 11:46:49
Rudi
AW: warum nicht bed. Formatierung? owT
03.01.2012 12:03:23
Wilfried
Hallo!
Mit bed. Formation.
Tipp1

 ABCD
254Duplikate mehrere Spalten kenntlich machen   
255    
25623202332
257454245Willi
258Sepp101102103
25999Sepp43

Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A2551. / Formel ist =ZÄHLENWENN(A$200:A256;A256)>1Abc
A2561. / Formel ist =ZÄHLENWENN($A$256:$D$259;A256)>1Abc
B2561. / Formel ist =ZÄHLENWENN($A$256:$D$259;B256)>1Abc
C2561. / Formel ist =ZÄHLENWENN($A$256:$D$259;C256)>1Abc
D2561. / Formel ist =ZÄHLENWENN($A$256:$D$259;D256)>1Abc
A2571. / Formel ist =ZÄHLENWENN($A$256:$D$259;A257)>1Abc
B2571. / Formel ist =ZÄHLENWENN($A$256:$D$259;B257)>1Abc
C2571. / Formel ist =ZÄHLENWENN($A$256:$D$259;C257)>1Abc
D2571. / Formel ist =ZÄHLENWENN($A$256:$D$259;D257)>1Abc
A2581. / Formel ist =ZÄHLENWENN($A$256:$D$259;A258)>1Abc
B2581. / Formel ist =ZÄHLENWENN($A$256:$D$259;B258)>1Abc
C2581. / Formel ist =ZÄHLENWENN($A$256:$D$259;C258)>1Abc
D2581. / Formel ist =ZÄHLENWENN($A$256:$D$259;D258)>1Abc
A2591. / Formel ist =ZÄHLENWENN($A$256:$D$259;A259)>1Abc
B2591. / Formel ist =ZÄHLENWENN($A$256:$D$259;B259)>1Abc
C2591. / Formel ist =ZÄHLENWENN($A$256:$D$259;C259)>1Abc
D2591. / Formel ist =ZÄHLENWENN($A$256:$D$259;D259)>1Abc


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß
Wilfried
Anzeige
AW: warum nicht bed. Formatierung? owT
03.01.2012 13:00:57
lutz
Hallo Wilfried,
vielen Dank, leider bekomme ich die Datei immer täglich von einem Download neu...
Deswegen wäre VBA besser.
Viele Grüße Lutz
AW: warum nicht bed. Formatierung? owT
03.01.2012 12:47:31
lutz
Hallo, brauche VBA weil ich die Datei immer geliefert bekomme - dann nehme ich das Marko in eine Personl.xls...
Vielen Dank und viele Grüße Lutz
AW: Doppelte markieren - mehrere Spalten
03.01.2012 11:55:56
Josef

Hallo Lutz,
probiere es so.
Public Sub Doppelte_RotOhneLeer()
  Dim rng As Range, lngLast As Long
  
  With ActiveSheet
    lngLast = Application.Max(2, Cells(Rows.Count, 7).End(xlUp).Row)
    .Columns(7).Interior.ColorIndex = xlNone
    .Columns(11).Insert
    .Columns(11).Insert
    .Range(.Cells(2, 11), .Cells(lngLast, 11)).Formula = "=G2&H2&I2&J2"
    .Range(.Cells(2, 12), .Cells(lngLast, 12)).Formula = _
      "=IF(COUNTIF($K$2:$K$" & lngLast & ",K2)>1,TRUE(),"""")"
    On Error Resume Next
    Set rng = .Columns(12).SpecialCells(xlCellTypeFormulas, xlLogical)
    On Error GoTo 0
    If Not rng Is Nothing Then
      rng.Offset(0, -5).Interior.ColorIndex = 3
    End If
    .Columns(11).Delete
    .Columns(11).Delete
  End With
  
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: Doppelte markieren - mehrere Spalten
03.01.2012 12:59:14
lutz
Hallo Sepp,
vielen Dank - leider ist die Datei daneben schon gefüllt...
Geht es nicht so wie mit meinem Makro-Entwurf, nur eben das er die 3 Spalten statt der einen vergleicht?
Bei mir geht der Bereich ab Zeile 7 los - habe das mal so geändert:
Sub Doppelte_RotOhneLeer_SP()
Dim rng As Range, lngLast As Long
With ActiveSheet
lngLast = Application.Max(7, Cells(Rows.Count, 7).End(xlUp).Row)
.Columns(7).Interior.ColorIndex = xlNone
.Columns(11).Insert
.Columns(11).Insert
.Range(.Cells(7, 11), .Cells(lngLast, 11)).Formula = "=G7&H7&I7&J7"
.Range(.Cells(7, 12), .Cells(lngLast, 12)).Formula = _
"=IF(COUNTIF($K$7:$K$" & lngLast & ",K7)>1,TRUE(),"""")"
On Error Resume Next
Set rng = .Columns(12).SpecialCells(xlCellTypeFormulas, xlLogical)
On Error GoTo 0
If Not rng Is Nothing Then
rng.Offset(0, -5).Interior.ColorIndex = 3
End If
.Columns(11).Delete
.Columns(11).Delete
End With
Set rng = Nothing
End Sub
Trotzdem markiert er mir nur ein paar Zeilen bei denen in Spalte G leere sind - wenn ich unten in der Liste die letzten 5 Sätze einfach von G bis K kopiere dann markiert er die nicht rot.
Viele Grüße Lutz
Anzeige
AW: Doppelte markieren - mehrere Spalten
03.01.2012 13:01:23
lutz
Hallo Sepp,
vielen Dank - leider ist die Datei daneben schon gefüllt...
Geht es nicht so wie mit meinem Makro-Entwurf, nur eben das er die 3 Spalten statt der einen vergleicht?
Bei mir geht der Bereich ab Zeile 7 los - habe das mal so geändert:
Sub Doppelte_RotOhneLeer_SP()
Dim rng As Range, lngLast As Long
With ActiveSheet
lngLast = Application.Max(7, Cells(Rows.Count, 7).End(xlUp).Row)
.Columns(7).Interior.ColorIndex = xlNone
.Columns(11).Insert
.Columns(11).Insert
.Range(.Cells(7, 11), .Cells(lngLast, 11)).Formula = "=G7&H7&I7&J7"
.Range(.Cells(7, 12), .Cells(lngLast, 12)).Formula = _
"=IF(COUNTIF($K$7:$K$" & lngLast & ",K7)>1,TRUE(),"""")"
On Error Resume Next
Set rng = .Columns(12).SpecialCells(xlCellTypeFormulas, xlLogical)
On Error GoTo 0
If Not rng Is Nothing Then
rng.Offset(0, -5).Interior.ColorIndex = 3
End If
.Columns(11).Delete
.Columns(11).Delete
End With
Set rng = Nothing
End Sub
Trotzdem markiert er mir nur ein paar Zeilen bei denen in Spalte G leere sind - wenn ich unten in der Liste die letzten 5 Sätze einfach von G bis K kopiere dann markiert er die nicht rot.
Viele Grüße Lutz
Anzeige
AW: Doppelte markieren - mehrere Spalten
03.01.2012 13:02:56
Josef

Hallo Lutz,
"vielen Dank - leider ist die Datei daneben schon gefüllt..."
und? Hast du meinen Code getestet? Mein Code fügt temporär zwei Spalten ein und löscht sie nach Ablauf des Codes wieder, wo liegt dabei dein Problem?

« Gruß Sepp »

AW: Doppelte markieren - mehrere Spalten
03.01.2012 13:21:18
lutz
Hallo Sepp,
stimmt, habe ich auch gesehen - wie beschrieben markiert er aber leider nicht alle doppelten; warum auch immer.
Viele Grüße Lutz
Anzeige
AW: Doppelte markieren - mehrere Spalten
03.01.2012 13:05:11
Josef

Hallo Lutz,
lade doch mal eine Beispieldatei hoch, bei der angeblich die Doppelten nicht gekennzeichnet werden.

« Gruß Sepp »

AW: Doppelte markieren - mehrere Spalten
03.01.2012 13:45:33
lutz
Hallo Sepp,
mußte mal etwas puzzeln...
So geht es jetzt:
Sub Doppelte_RotOhneLeer_SP()
Dim rng As Range, lngLast As Long
With ActiveSheet
lngLast = Application.Max(7, Cells(Rows.Count, 3).End(xlUp).Row)  ' ------------------------ _
--------------------------nur Spalte C ist immer gefüllt
.Columns(7).Interior.ColorIndex = xlNone
.Columns(11).Insert
.Columns(11).Insert
.Range(.Cells(7, 11), .Cells(lngLast, 11)).Formula = "=G7&H7&I7&J7" ' Bereich startet erst  _
in 7...
.Range(.Cells(7, 12), .Cells(lngLast, 12)).Formula = _
"=IF(COUNTIF($K$7:$K$" & lngLast & ",K7)>1,TRUE(),"""")"
On Error Resume Next
Set rng = .Columns(12).SpecialCells(xlCellTypeFormulas, xlLogical)
On Error GoTo 0
If Not rng Is Nothing Then
rng.Offset(0, -6).Interior.ColorIndex = 3  ' --------------------------------------------- _
hier war der Fehler: in Spalte G waren manche schon grün die hat er nicht auf rot gesetzt...
End If
.Columns(11).Delete
.Columns(11).Delete
End With
Set rng = Nothing
End Sub

Eine Frage noch:
Ich habe Zeilen da steht in G:J gar nichts drin, die sollte er auch nicht rot markieren - geht das?
Vielen Dank in jedem Fall schon einmal und viele Grüße Lutz
Anzeige
AW: Doppelte markieren - mehrere Spalten
03.01.2012 13:52:40
Josef

Hallo Lutz,
wenn in Spalte G manche Zellen nicht auf rot gesetzt werden, dann hast du dort eine bedingte Formatierung drin, mein Code löscht nämlich die Hintergrundfarbe vor der Überprüfung.
Sub Doppelte_RotOhneLeer_SP()
  Dim rng As Range, lngLast As Long
  
  With ActiveSheet
    lngLast = Application.Max(7, Cells(Rows.Count, 3).End(xlUp).Row)  ' ------------------------ _
      --------------------------nur Spalte C ist immer gefüllt
    .Columns(6).Interior.ColorIndex = xlNone
    .Columns(11).Insert
    .Columns(11).Insert
    .Range(.Cells(7, 11), .Cells(lngLast, 11)).Formula = "=G7&H7&I7&J7" ' Bereich startet erst _
      in 7...
    .Range(.Cells(7, 12), .Cells(lngLast, 12)).Formula = _
      "=IF((COUNTIF($K$7:$K$" & lngLast & ",K7)*(Len(K7)>0))>1,TRUE(),"""")"
    On Error Resume Next
    Set rng = .Columns(12).SpecialCells(xlCellTypeFormulas, xlLogical)
    On Error GoTo 0
    If Not rng Is Nothing Then
      rng.Offset(0, -6).Interior.ColorIndex = 3  ' --------------------------------------------- _
        hier war der Fehler: in Spalte G waren manche schon grün die hat er nicht auf rot gesetzt...
    End If
    .Columns(11).Delete
    .Columns(11).Delete
  End With
  Set rng = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: Doppelte markieren - mehrere Spalten
03.01.2012 14:08:35
lutz
Hallo Sepp,
stimmt, ich hatte das auch schon gesehen aber nicht an bed. Formatierung gedacht (ist auch nicht meine Datei).
Kann man das noch wegfiltern, das er bei leeren Zeilen in G bis J auch alles rot färbt?
Vielen Dank für deine Mühe, Gruß Lutz
AW: Doppelte markieren - mehrere Spalten
03.01.2012 14:18:06
Josef

Hallo Lutz,
jetzt kenn ich mich nicht mehr aus.
Zuerst willst du das leere Zeilen (G:J) NICHT markiert werden, jetzt sollen sie auf einmal markiert werden.
Was meinst du mit "wegfiltern"
Mach mal ein paar konkrete Ansagen, sonst wird das ein Bandwurm-Thread.

« Gruß Sepp »

Anzeige
AW: Doppelte markieren - mehrere Spalten
03.01.2012 15:18:40
lutz
Sorry, wenn ich etwas ungenau war...
Es geht nur darum jene Zeilen nicht rot zu markieren in denen in den Spalten G:J nichts steht (gibt es leider auch und die nimmt er dann natürlich als doppelte).
Viele Grüße Lutz
genau das berücksichtigt mein Code! o.T.
03.01.2012 15:47:49
Josef
« Gruß Sepp »

AW: genau das berücksichtigt mein Code! o.T.
03.01.2012 15:57:20
lutz
Hallt Sepp,
stimmt, da war nur eine Formel noch drin.
Vielen lieben Dank für Deine Hilfe und noch einen schönen Tag für Dich.
Viele Grüße Lutz
Anzeige
AW: Doppelte markieren - mehrere Spalten
03.01.2012 15:14:54
fcs
Hallo Lutz,
hier noch eine Variante ohne Hilfsspalten.
Die Info ob Zeile doppelt wird innerhalb des Makros in einem Daten-Array zwischengespeichert bevor die doppelten Zeilen markiert werden.
Gruß
Franz
Public Sub Doppelte_RotOhneLeer_var1()
Dim lngZeile As Long
Dim lngZ As Long
Dim varSuchwert As Variant
Dim Zelle As Range, Adresse1 As String
Dim arrDoppelt() As Boolean
Dim wks As Worksheet
Set wks = ActiveSheet
With wks
'Letzte Zeile Spalte 7 (G)
lngZeile = .Cells(.Rows.Count, 7).End(xlUp).Row
'Array für Doppelte initialisieren
ReDim arrDoppelt(1 To lngZeile)
'Zeilen prüfen
For lngZ = 1 To lngZeile - 1
varSuchwert = .Cells(lngZ, 7)
If varSuchwert  "" And arrDoppelt(lngZ) = False Then
'Rechnungsnummer im Rest der Liste suchen
With .Range(.Cells(lngZ + 1, 7), .Cells(lngZeile, 7))
Set Zelle = .Find(what:=varSuchwert, LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
Adresse1 = Zelle.Address 'Zelladresse der 1. Fundstelle merken
Do
With wks
'Prüfen, ob Spalten H bis J identisch
If .Cells(lngZ, 8).Value = .Cells(Zelle.Row, 8).Value _
And .Cells(lngZ, 9).Value = .Cells(Zelle.Row, 9).Value _
And .Cells(lngZ, 10).Value = .Cells(Zelle.Row, 10).Value Then
'Zeilen als doppelt merken
arrDoppelt(lngZ) = True
arrDoppelt(Zelle.Row) = True
End If
End With
'nächste Fundstelle suchen
Set Zelle = .FindNext(after:=Zelle)
Loop Until Zelle.Address = Adresse1
End If
End With
End If
Next lngZ
Application.ScreenUpdating = False
'Hintergrundfarbe in Spalten G bis J löschen
.Range(.Cells(1, 7), .Cells(lngZeile, 10)).Interior.ColorIndex = xlColorIndexNone
'Doppelte Einträge rot markierne
For lngZ = 1 To lngZeile - 1
If arrDoppelt(lngZ) = True Then
.Range(.Cells(lngZ, 7), .Cells(lngZ, 10)).Interior.ColorIndex = 3
End If
Next lngZ
Application.ScreenUpdating = True
End With
Erase arrDoppelt
Set wks = Nothing: Set Zelle = Nothing
End Sub

AW: Doppelte markieren - mehrere Spalten
03.01.2012 15:24:30
lutz
Hallo Franz,
wow - vielen Dank, das geht wirklich gut. Er berücksichtigt auch die Leeren nicht mehr!
Eines ist mir aufgefallen: ich habe die letzte Zeile 6x kopiert - der Code markiert aber nur 5 von den 6 - ist vielleicht irgendwo eine -1 oder + 1 zuviel oder fehlt?
In jedem Fall schon mal tausend Dank - es ist schon irre welche Lösungsmöglichkeiten es alle gibt...
Viele Grüße Lutz
AW: Doppelte markieren - mehrere Spalten
03.01.2012 15:36:48
fcs
Hallo Lutz,
in der For-Next-Schleife zum Markieren ist der To-Wert falsch.
Korrektur: 

'Doppelte Einträge rot markieren
For lngZ = 1 To lngZeile
Gruß
Franz
AW: Doppelte markieren - mehrere Spalten
03.01.2012 15:56:11
lutz
Hallo Franz,
vielen Dank - Perfekt!!!
Ich wünsche Dir noch einen schönen Tag.
Viele Grüße Lutz

301 Forumthreads zu ähnlichen Themen

Doppelte über zwei Spalten - vergleichen
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter. Gibt es eine Chance, beide Tabellenblätter abzugleichen, ob Datensätze doppelt vorkommen? - Schwierigkeit dabei mag aber sein, dass für die Suche sowohl die Spalte D, als auch Spalte E zu Grunde zu legen wären. Nur also, wenn die Dat...
09.01.2009 17:26:12
Thread-ID: 1038283
5 Beiträge
Anzeige
Spalten vergleichen und abgleichen
Jan

Hi,
also ich hab ein problem, ich habe zwei seiten, auf beiden seiten steht links dasselbe (Spalte A). Jetzt möchte ich , das wenn ich auf seite 1 ne spalte einfüge oder in den Zellen was veränder, das auf seite 2 genauso gemacht wird...Hat vielleicht jemand ne idee ?
Danke schonmal im Vo...
17.04.2002 08:11:05
Thread-ID: 113950
8 Beiträge
Spalten vergleichen und abgleichen
Jan

Hi,
also ich hab ein problem, ich habe zwei seiten, auf beiden seiten steht links dasselbe (Spalte A). Jetzt möchte ich , das wenn ich auf seite 1 ne spalte einfüge oder in den Zellen was veränder, das auf seite 2 genauso gemacht wird...
Hat vielleicht jemand ne idee ?Andreas hat mir "Gru...
17.04.2002 10:18:35
Thread-ID: 113990
6 Beiträge
Anzeige
Wertepaare in zwei Spalten finden
KAlff

Hallo,
habe folgende Aufgabe zu lösen:
Es liegt eine Bestelliste für diverse Werkstücke mit 3 Spalten vor. Die Spalte A enthält die Bestellmengen, die Spalte B das Maß 1 (Breite) und die Spalte C das Maß 2 (Höhe). Es gibt unendlich viele Kombinationen aus Maß 1 und Maß 2.
1. Es ist...
21.04.2010 16:11:12
Thread-ID: 1153148
6 Beiträge
Spalten 2er Tab vergleichen + Werte einfügen
Thomas

Hallo,
so nun muß ich doch fragen - dachte zwar ich bekomme es selbst hin und habe herumprobiert aber da bin ich wohl zu blond zu.
Ich habe zwei Tabellen
In Tabelle 1 stehen in Spalte Z die Artikelnummern und in Spalte AI die BildURL
In Tabelle 2 stehen in Spalte A die Artikelnu...
21.06.2010 11:17:02
Thread-ID: 1163085
10 Beiträge
Doppelte Werte in mehrere Spalten
urmila

Hallo zusammen,
ich hoffe ihr könnt mir weiterhelfen.
Ich habe 4 Spalten (Bsp.)
SpalteA = Name
SpalteB = Vorname
SpalteC = Anschrift
SpalteD = Telefon
Über einer Userform, will ich dass (nach dem ich die TextBoxe-Felder ausgefüllt habe) zunächst prüft, ob die Person...
10.11.2010 15:05:20
Thread-ID: 1186104
3 Beiträge
vergleich von duplikaten in zwei spalten
Uli


Hallo zusammen,um es kurz zu machen:Aus einer Exceltabelle muss ich Datensätze herausfinden, die doppelt oder gar mehrfach vorkommen in Abhängigkeit von Werten in einer anderen Spalte der Tabelle.Bsp:Buchungsnummer Betrag ...
1234567 10,00
987236 10,00We...
17.05.2002 21:31:40
Thread-ID: 121816
2 Beiträge
Gleiche Werte in zwei Spalten ermitteln
Topsurfer

Hallo, für Leute mit Kenntnissen vermutlich leicht zu lösen, aber ...
Ich habe zwei Spalten, in keiner Spalte kommt ein Wert doppelt vor.
Ich müßte ermitteln, welche Werte in beiden Spalten identisch vorkommen.
Die Werte sind lange Namne, ohne Leerzeichen.
Danke für Hilfe,
M...
08.06.2011 08:48:21
Thread-ID: 1217666
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
7
5
3
5
9
2
1
4
2
4
1
2
5
1
4
2
13
5
9
2
29
4
3