Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ohne Spezialfilter die vorhandenen Einträge finden

ohne Spezialfilter die vorhandenen Einträge finden
{mskro}
Hallo Excel Freunde,
ich habe noch ein kleines Problem beim Finden einer Lösung.
Ich kann zwar mittels des Spezialfilters doppelte Einträge in einer Spalte finden, aber wer hat eine Lösung für mich, das gleiche Ergebnis zu finden und es in einer separaten Spalte untereinander aufzulisten, ohne das ich den Spezialfilter benutzen muß?
Freundlichen Gruß
Manfred

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

Betreff
Benutzer
Anzeige
AW: ohne Spezialfilter die vorhandenen Einträge finden
01.07.2010 09:03:47
Tino
Hallo,
schau mal hier
http://www.excelformeln.de/formeln.html?welcher=194
oder mit VBA. 
Public Sub doppelte_raus()
Dim oDic As Object, meAr As Variant
Dim A As Long
Set oDic = CreateObject("Scripting.Dictionary")
'Tabelle anpassen
With Sheets("Tabelle1")
'Bereich anpassen, hier ohne Überschrift
meAr = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
For A = 1 To UBound(meAr)
oDic(meAr(A, 1)) = 0
Next
'in Zelle Beispiel
.Range("B2").Resize(oDic.Count) = Application.Transpose(oDic.keys)
End With
End Sub
Gruß Tino
Anzeige
Danke
01.07.2010 09:54:47
{mskro}
Hallo Tino,
vielen Dank
Gruß Manfred

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige