Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1440to1444
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
1440to1444
1440to1444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Werte in Array

Doppelte Werte in Array
20.08.2015 11:17:12
Tim
Hallo,
ich habe in Spalte A ca 250 Zahlenwerte, ich möchte die Doppelten Werte in ein Array schreiben und mit Angabe der Zeilenangabe in einer Msgbox ausgeben. Ich bin mir bewusst dass die Bedingte Formatierung das im Excel toll gelöst hat, möchte diesen Teil aber gerne in Vba realisieren. Der Makrorecorder spuckt leider mir einen völlig unverständlchen Code aus.
Bitte um Hilfe !

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Werte in Array
20.08.2015 13:54:07
JoWE
Hallo Tim,
lies Dir mal dies hier durch: http://www.vb-homepage.de/tipps/tip259.htm
Ist allerdings vielleicht recht "sportlich" und Du müsstest es auf Deine Bedürfnisse anpassen.
Viel Erfolg
Jochen

AW: Doppelte Werte in Array
20.08.2015 16:23:49
Jack_d
Hallo Jochen,
Ich würde es über ein Dictionary lösen. Das ist was den Abgleich angeht ganz komfortabel.
Hier mal ein Codezum probieren
(Werte in Spalte & Trägt die Doppelten mit Zeilenbezeichnung in Spalte C )
Grüße 

Option Explicit
Sub DopIdent()
Dim A As Variant
Dim B As Variant
Dim Ai As Long
Dim Zeile As Long
Dim NEU As String
Dim ODict1 As Object
With Worksheets("Tabelle2")
Set ODict1 = CreateObject("scripting.dictionary")
A = .Range(.Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1))
For Ai = 1 To UBound(A)
If ODict1.exists(A(Ai, 1)) Then
NEU = NEU & A(Ai, 1) & " Zeile " & Ai & "-"
Else
ODict1(A(Ai, 1)) = Ai
End If
Next Ai
B = Split(NEU, "-")
For Zeile = 1 To UBound(B)
.Cells(Zeile, 3) = B(Zeile - 1)
Next Zeile
Set ODict1 = Nothing
A = ""
B = ""
End With
End Sub

Anzeige
AW: Doppelte Werte in Array
20.08.2015 18:57:46
JoWE
HiJack :-)
ich war gar nicht der Fragesteller - vielleicht liest Tim ja doch irgendwann mal seine Antworten.
Gruß
Jochen

AW: Doppelte Werte in Array
20.08.2015 23:12:52
Jack_D
Hallo jochen,
Ja da hab ich wohl was übersprungen :-D
Man möge es mir vergeben :-)
Grüße

AW: Doppelte Werte in Array
20.08.2015 19:22:00
Daniel
Hi
bei kaum VBA-Kenntnisse vielleicht so:
1. sicherer in einer Hilfsspalte die aktuelle Zeilennummer.
schreibe hierzu in einer Hilfsspalte in alle Zellen bis zum Tabellenende die Formel =Zeile()
kopiere dann diese Spalte und füge sie an gleicher Stelle als wert ein.
2. lasse über die Bedingte Formatierung die doppelten farblich markieren
3. filtere in der Spalte mit dem Autofilter nach der Zellfarbe, der autofilter kann die Farben der bedingten Formatierung erkennen.
4. kopiere jetzt die Spalte A und die Hilfsspalte mit den fixierten Zeilennummern in ein neues Blatt.
die ausgeblendeten Zeilen werden nicht mit kopiert, so dass du in dem neuen Blatt nur die doppelten Werte hast
5. soritere in dem neuen Blatt die Liste nach den Werten, dann siest du sofort, welcher Wert sich wie oft wiederholt und in welchen Zeilen die Duplikate stehen.
das geht auch ohne VBA recht schnell, wenn du es mit VBA brauchst, sollte sich diese Methode relativ gut mit dem Recorder aufzeichnen lassen.
gruß Daniel
Anzeige

11 Forumthreads zu ähnlichen Themen

Doppelte Einträge in Zeile/Range finden
Holger,

Hallo liebes Forum,
die Forumssuche hat mir leider nicht geholfen.
Ich habe einen Range definiert und in diesem möchte ich nach doppelten
Einträgen finden. Zum Beispiel geht der Range von B19 bis Q19.
Der Code, den ich mir aus dem Forum rausgezogen habe, funktioniert nicht.
...
11.01.2011 14:06:23
Thread-ID: 1195007
5 Beiträge
Anzeige
Doppelte Eintrage finden bei bestimmten Kriterien
Tim

Hallo liebes Forum,
ich bin am verzweifeln. Suche seit 2 Tagen die passende Formeln aber immer stimmt irgendwas nicht.
Also ich habe eine riesen Exceltabelle und ich will das er Spalte A (von A2-A997) überprüft und mir die Anzahl der doppelten Einträge ausgibt. In Spalte A stehen Datums...
26.10.2012 12:08:47
Thread-ID: 1283986
10 Beiträge
Doppelte Einträge finden, zählen etc
Michael

Hallo Gemeinde,
Ich habe eine Tabelle, mit Artikeleinträgen über Spalten A bis G.
Die Anzahl der Zeilen variert von 10 bis 500. (Abhängig von Vorgaben)
Jetzt ist es so, dass ich bei z.B. 300 Zeilen 200 identische Einträge für Produkt A,
50 für Produkt B und 50 für Produkt C habe...
20.12.2014 12:37:06
Thread-ID: 1399145
6 Beiträge
Anzeige
Doppelte Einträge finden - bis auf die letzten ...
Günter

Doppelte Einträge finden - bis auf die letzten 7 Zeichen
ich versuche aus eine Liste mit mehreren Hundert Dateiversionen, die doppelten Einträge
(bis auf die letzten 7 Zeichen z.B. ".00.EXE") zu finden und zu markieren ...
die Fett dargestellten sollten gefunden werden:
000_XXX...
21.08.2015 12:00:30
Thread-ID: 1443633
4 Beiträge
Array Duplikate entfernen und transponieren
Bonduca

Hallo,
ich möchte gerne B4:B500 in einen Array einlesen, die darin enthaltenen Duplikate entfernen und dann in ein anderes Tabellenblatt in D11: SI11 einfügen.
Ich habe bisher eine Lösung mit dem Makrorekorder. Die ist aber etwas langsam und umständlich (ich kopiere den Inhalt von Spalt...
09.09.2015 17:12:12
Thread-ID: 1446778
3 Beiträge
Doppelte Einträge finden und in bel Spalte X setze
Michael

Hallo zusammen, ich habe eine Frage,
ich habe eine große Adressdatei und möchte alle Doppelten finden und dann in einer bestimmten Spalte soll ein X gesetzt werden, wenn dieser Eintrag mehr als einmal vorhanden ist. Dann kann ich später einfach den Filter auf X setzen und habe alle.
Mit...
09.11.2015 17:04:42
Thread-ID: 1457247
10 Beiträge
Duplikate aus 2-dimensionalem Array entfernen
Johannes

Hallo VBA-Profis,
das Problem ist relativ schnell beschrieben:
Ich müsste aus einem 2-dimensionalen Array in der Form Array(0 to 2, 0 to recount) alle Duplikate entfernen, sodass sich in den ersten zwei Ebenen der ersten Dimension, also 0 to 1 ausschließlich Werte befinden, die einmal v...
13.08.2018 12:07:32
Thread-ID: 1639079
7 Beiträge
VBA - doppelte Einträge finden und mark.
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
22.09.2022 14:07:50
Thread-ID: 1900054
18 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
1
9
5
6
3
2
9
6
17
3