Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
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
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!

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

303 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
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
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
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
9
6
17
3
4
1
2
4
5
3
1
2
3
4
3
3
5
2
10