Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

KKLEINSTE kein Problem! Aber ohne Doppelte???

Forumthread: KKLEINSTE kein Problem! Aber ohne Doppelte?

KKLEINSTE kein Problem! Aber ohne Doppelte?
01.07.2016 15:32:32
Nilo
Hallo alle zusammen,
ich wollte mal fragen ob Ihr mir die angehängte Datei und den VBA Code so ändern könnt dass er die KKLEINSTE Werte ohne Duplikate ins neue Tabellenblatt schreibt.
https://www.herber.de/bbs/user/106687.zip
Vielen Dank und Gruß
Nilo

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: KKLEINSTE kein Problem! Aber ohne Doppelte?
01.07.2016 15:54:07
Daniel
Hi
da könnten die Formeln aufwendig werden.
ich würde da mit Sortieren und Duplikatentfernen pro Zeile arbeiten.
da das Duplikate-Entfernen nur für Spalten und nicht für Zeilen funktioiniert, müssen die Daten in einer Zwischentabelle transponiert werden.
Füge also ein neues leeres Blatt ein, nenne es Tabelle1 (oder ändere die Bezeichnung im Code entsprechend ab) und lasse dieses Makro laufen:
Sub Listen_ohne_Duplikate()
Dim Spalte As Range
With Sheets("Tabelle1")
.Cells.Clear
Sheets("E-Kette").UsedRange.Offset(1, 0).Copy
.Cells(1, 1).PasteSpecial xlPasteValues, Transpose:=True
For Each Spalte In .UsedRange.Columns
Spalte.RemoveDuplicates 1, xlNo
Spalte.Sort key1:=Spalte, Order1:=xlAscending, Header:=xlNo
Next
Sheets("E-Kette-aufsteigend").UsedRange.Offset(1, 0).Clear
.Cells(1, 1).CurrentRegion.Copy
Sheets("E-Kette-aufsteigend").Cells(2, 1).PasteSpecial xlPasteValues, Transpose:=True
.Cells.Clear
End With
End Sub
gruß Daniel

Anzeige
Daniel / Nilo -vielen Dank nochmal, läuft super!
06.07.2016 08:18:51
Nilo
...
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige