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

VBA - doppelte Einträge finden und mark.

Forumthread: VBA - doppelte Einträge finden und mark.

VBA - doppelte Einträge finden und mark.
22.09.2022 14:07:50
jhaustein
Hallo Gemeinschaft,
binauf der suche nach einem VBA Script, welches mir doppelte Eintträge in einer Spalte findet und eine Spalte daneben ein "x" setzt
könnt ihr mir dabei bitte helfen
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:18:37
UweD
Hallo
per Formel (kannst du auch per VBA so setzen)

in C1     =WENN(ZÄHLENWENN(A:A;A1)>1;"x";"")
LG UweD
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:22:50
jhaustein
Hallo Uwe,
wie würdest du es denn in vba umsetzen
lieben gruss
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:38:28
UweD
So?

Sub XXXX()
Dim Sp As Integer, Z1 As Integer, LR As Integer
Sp = 1 'Spalte A
Z1 = 2 'Wegen Überschrift
With ActiveSheet
LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
With .Cells(Z1, Sp + 1).Resize(LR - Z1 + 1, 1)
.FormulaR1C1 = "=IF(COUNTIF(C[-1],RC[-1])>1,""x"","""")"
.Value = .Value
End With
End With
End Sub
Eingetragen wird in der Folgespalte
LG UweD
Anzeige
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:40:13
Daniel
Hi
Die Formel kann man auch per VBA einfügen

With ActiveSheet.Usedrange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "= If(CountIf(C1,RC1)=1,"""",""x"")"
End With
End With
Das C1 steht hier für "Column 1" also Spalte A, für andere Spalten einfach die Nummer ändern
Gruß Daniel
Anzeige
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:23:07
Nepumuk
Hallo,
teste mal:

Option Explicit
Public Sub Dubletten_markieren()
Const SEARCH_COLUMN As Long = 1 'A
Dim objCell As Range
Dim objDictionary As Object
Set objDictionary = CreateObject(Class:="Scripting.Dictionary")
With objDictionary
For Each objCell In Range(Cells(1, SEARCH_COLUMN), Cells(Rows.Count, SEARCH_COLUMN).End(xlUp))
If .Exists(Key:=objCell.Text) Then
objCell.Offset(0, 1).Value = "x"
.Item(Key:=objCell.Text).Offset(0, 1).Value = "x"
Else
Set .Item(Key:=objCell.Text) = objCell
End If
Next
End With
Set objDictionary = Nothing
End Sub
Gruß
Nepumuk
Anzeige
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:28:23
jhaustein
meine werte stehen in der spalte 38

Option Explicit
Public Sub Dubletten_markieren()
Const SEARCH_COLUMN As Long = 38 'A
Dim objCell As Range
Dim objDictionary As Object
Set objDictionary = CreateObject(Class:="Scripting.Dictionary")
With objDictionary
For Each objCell In Range(Cells(1, SEARCH_COLUMN), Cells(Rows.Count, SEARCH_COLUMN).End(xlUp))
If .Exists(Key:=objCell.Text) Then
objCell.Offset(0, 1).Value = "x"
.Item(Key:=objCell.Text).Offset(0, 1).Value = "x"
Else
Set .Item(Key:=objCell.Text) = objCell
End If
Next
End With
Set objDictionary = Nothing
End Sub
läuft einmal durch - aber es passiert sonst nichts
Anzeige
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:34:54
Nepumuk
Hallo,
kann ich nicht nachvollziehen, bei mit funktioniert es. Kannst du deine Mappe mit der Spalte hochladen?
Gruß
Nepumuk
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 16:09:48
UweD 

Sub XXXX()
Dim Sp As Integer, Z1 As Integer, LR As Integer
Sp = 9 'Spalte A
Z1 = 2 'Wegen Überschrift
With ActiveSheet
LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
With .Cells(Z1, Sp + 1).Resize(LR - Z1 + 1, 1)
.FormulaR1C1 = "=IF(COUNTIF(C[-1],RC[-1])>1,""x"","""")"
.Value = .Value
End With
End With
End Sub

Anzeige
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 16:10:42
Nepumuk
Hallo,
wie kommst du auf Spalte 38? Spalte I = 9. Also: 

Const SEARCH_COLUMN As Long = 9 'I
Gruß
Nepumuk
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 16:15:53
jhaustein
kürzere Darstellung
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:46:13
Daniel
Hi
Du kannst dir auch über die Bedingte Formatierung die Duplikate anzeigen lassen.
Dann könntest du nach der Farbe in der Spalte filtern und in eine freie Spalte die x schreiben.
Für die optimale Lösung sollte man aber noch wissen:
- sollen bei einem Duplikat beide Zeilen markiert werden User nur die Wiederholungszeile?
- wie groß ist die Liste
- muss das ganze dynamisch sein, dh du bearbeitet die Liste und dann verschwinden die x automatisch?
Gruß Daniel
Anzeige
Ohne VBA / mit bedingter Formatierung
22.09.2022 14:46:44
UweD
- Start, Bedingte Formatierung, Neue Regel
- Formel zur Ermittlung...
- als Formel dann 

=ZÄHLENWENN($A:$A;$A1)>1
- Format festlegen
- OK, OK
Arbeitsblatt mit dem Namen 'Tabelle1'
 A
1Aaa
2sds
3ss
4sds
5Aaa
61
72
83
91
102
11ww

Zellebedingte Formatierung...Format
A11: ZÄHLENWENN($A:$A;$A1)>1abc

LG UweD
Anzeige
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 14:49:57
GerdL
Moin j

Sub Unit_Duplicates()
Dim C As Range, O As Object
With Columns(38)
If Application.CountA(.Cells) = 0 Then Exit Sub
Set O = CreateObject("scripting.dictionary")
For Each C In .SpecialCells(2)
If O.Exists(C.Text) Then
C.Offset(0, 1) = "X"
Else
O.Add Key:=C.Text, Item:=0
End If
Next
End With
O.RemoveAll: Set O = Nothing
End Sub
Gruß Gerd
Anzeige
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 15:54:18
jhaustein
läuft leider nicht durch
AW: VBA - doppelte Einträge finden und mark.
22.09.2022 16:27:42
GerdL
Mache aus Columns(38) dann Columns(9)
Anzeige

Forumthreads zu verwandten Themen

Benötige VBA, da Array-Formel nicht funktioniert
oblivion

Hallo, im Anhang meine Datei. Dort habe ich Problem auch schon beschrieben.
Versuche es hier noch mal kurz zu beschreiben.
https://www.herber.de/bbs/user/54731.zip
In meiner Datei habe ich mehrere Tabellenblätter. Auf "Gesamt" werden jeden Monat die entsprechenden Daten eingetragen...
19.08.2008 18:14:00
Thread-ID: 1003018
3 Beiträge
Anzeige
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
Array-Formel in VBA
Peter

Hallöchen liebe Excel Gemeinde,
ich hab da ein kleines Problem, wo ich hoffe, dass mir die VBA Spezialisten unter Euch helfen können.
Und zwar geht es um folgende Formel im VBA Code:
wb1.Worksheets(letztdat3).Cells(4, d).FormulaArray = _ "=SUM(COUNTIF(INDIRECT("""" & TRANSPOSE...
02.02.2009 17:28:00
Thread-ID: 1046339
6 Beiträge
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
VBA: Array. Doubletten verhinder oder aussortieren
Martin

Einen wunderschönen guten Tag,
ich möchte gerne eine Excel-Spalte in ein VBA-Array einlesen. Beispiel einzulesende Spalte:
A
A
B
B
B
C
In dem Array soll hinterher jedes Element nur einmal drin sein. Beispiel Array-Inhalt:
A
B
C
Ich bin mir unsiche...
19.05.2009 11:24:52
Thread-ID: 1076085
3 Beiträge
VBA: Array. Doubletten verhinder oder aussortieren
Martin

Einen wunderschönen guten Tag,
ich möchte gerne eine Excel-Spalte in ein VBA-Array einlesen. Beispiel einzulesende Spalte:
A
A
B
B
B
C
In dem Array soll hinterher jedes Element nur einmal drin sein. Beispiel Array-Inhalt:
A
B
C
Ich bin mir unsiche...
19.05.2009 11:49:54
Thread-ID: 1076091
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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