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

Array Duplikate entfernen und transponieren

Forumthread: Array Duplikate entfernen und transponieren

Array Duplikate entfernen und transponieren
09.09.2015 17:12:12
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 Spalte B in eine andere Spalte, lösche mit Daten-Duplikate entfernen die Duplikate, kopiere es erneut und füge es dann transponiert in Zeile 11 ein.
Weiß jemand eine Lösung?
Vielen Dank!

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array Duplikate entfernen und transponieren
09.09.2015 17:36:15
Daniel
Hi
naja, langsam oder umständlich finde ich jetzt keine der beiden Lösungen:
hier mal beide Varianten im Vergleich, zu erst die Array-Variante, dann das von dir beschriebene kopieren und Transponieren:
Sub Transponieren1()
Dim arr, a
Dim dic
Set dic = CreateObject("scripting.dictionary")
arr = Range("B4:B500").Value
For Each a In arr
dic(a) = 1
Next
Range("D11").Resize(1, dic.Count) = dic.keys
End Sub

Sub Transponieren2()
Range("B4:B500").Copy
Range("C4").PasteSpecial (xlPasteValues)
With Selection
.RemoveDuplicates 1, xlNo
.Copy
Range("D12").PasteSpecial xlPasteValues, Transpose:=True
.ClearContents
End With
End Sub
klar ist die Arrayvariante etwas schneller, davor braucht die CopyPaste-Variante weder Variablen, noch Schleifen, noch ein Fortgeschrittenenkonstrukt wie Dictionarys, sprich das kann sich auch ein Anfänger mit dem Recorder zuammenbasteln und man ist im Ablauf nicht viel langsamer als das Array/Dictionary.
gerade dann wenn du deine Makros noch viel im Einzelstep testen musst, hat die zweite Variante ihren Charme, weil du diese einfach durchklicken kannst und nicht an der Schleife hängen bleibst.
Gruß Daniel

Anzeige
AW: Array Duplikate entfernen und transponieren
10.09.2015 08:35:13
Bonduca
Klasse, vielen Dank, Daniel.
So schön kurz und knapp war mein Code nicht ;).
Ich probier einfach beides aus :D
;

Forumthreads zu verwandten 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
Doppelte Einträge in Spalte finden
Martin

Hallo zusammen,
ich habe ein Makro, dass abgebrochen werden muss, wenn in einer Spalte mind. ein Eintrag doppelt auftritt.
Also z. B.
100
102
103
100
Ich bekomme es gelöst, wenn identische Einträge hintereinander stehen, nicht aber, wenn "irgendwo" irgendetwas dop...
12.07.2011 22:32:39
Thread-ID: 1221907
2 Beiträge
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
Anzeige
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
doppelte Einträge aus Spalte finden+löschen
peter

Hallo Mitglieder,
ich benötige dringend Hilfe bei einem arbeitstechnischem Problem,
ich arbeite in einer Spedition und ziehe mir Listen mit Container-Nummern
aus unserem System zur Weiterverarbeitung, systemtechnisch erscheint oftmals
die gleiche Container-Nummer mehrfach in der...
14.01.2015 11:20:16
Thread-ID: 1402723
7 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
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
Anzeige
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
vba - duplikate entfernen
Fred
Hallo Excel Profis,
ich habe in den Spalten A:B Werte und ich möchte die Duplikate entfernen.
Folgendes Makro habe ich bisher:
Sub ohneDuplikateHeim() Dim ws As Worksheet Set ws = Worksheets("Tabelle1") ' Bereich mit den Werten Dim rangeWithDuplicates As Range S...
26.03.2023 14:16:17
Thread-ID: 1925644
4 Beiträge
Aufgez. VBA "Duplikate entfernen" erzeugt Laufzeitfehler
Peter
Hallo an die Spezialisten,
habe folgendes Problem: Habe mit dem Makrorekorder einen simplen Schritt aufgezeichnet - entferne alle Dubletten in einer Tabelle mit dem Namen "p_matrix". Wenn ich nun dieses aufgezeichnete Makro starte erhalte ich die Fehlermeldung "Laufzeitfehler 1004" Anwendungs- o...
18.03.2024 16:04:58
Thread-ID: 1970071
5 Beiträge
VBA Array Parameter dynamisch Duplikate über mehrere Spalten
Eric
Guten Tag an alle,

Beispieldatei:
https://www.herber.de/bbs/user/170525.xlsm

Wie übergibt man einem Array dynamisch Anzahl und Inhalt der Werte für folgendes Beispiel?

Eine einfache Tabelle hat x Spalten.

Per VBA sollen alle Duplikate entfernt werden.
27.06.2024 06:33:11
Thread-ID: 1982612
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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