Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
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
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Unikats-Liste mit VBA erstellen

Unikats-Liste mit VBA erstellen
22.01.2018 11:34:06
Uwe
Hallo Zusammen,
ich bekomme folgende Aufgabe nicht mit VBA hin:
In Spalte A habe ich sehr viele Datums-Einträge (vom 01.01.2017 bis heute). Ein Datum kommt dabei immer mehrfach vor.
Ab einem bestimmten Datum benötige ich aus Spalte eine Unikats-Liste, die größer dem Ab-Datum sind. Das Ab-Datum steht in B1. Die Unikats-Liste soll dann in B2 eingefügt werden.
Vielen Dank für Eure Unterstützung
Uwe

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unikats-Liste mit VBA erstellen
22.01.2018 12:30:47
Rudi
Hallo,
wozu VBA?
=WENN(ISTZAHL(B1);WENNFEHLER(KKLEINSTE(A:A;ZÄHLENWENN(A:A;"&lt=" &B1)+1);"");"")
und runter kopieren.
Gruß
Rudi
AW: Unikats-Liste mit VBA erstellen
22.01.2018 12:43:31
Uwe
Hallo Rudi,
ich wollte das "neue" Makro in ein bestehendes Makro integrieren.
Dir Formellösung gefällt mir sehr gut, lieber wäre es mir via Makro
Gruß und vielen Dank
Uwe
AW: Unikats-Liste mit VBA erstellen
22.01.2018 12:54:07
Daniel
Hi
im Zweifelsfall kannst du ja auch im Makro die Formel in die Zellen einfügen und dann die Formeln durch die Werte ersetzen.
Formeln und Marko schließen sich nicht gegenseitig aus, sondern ergänzen sich:
With Range("B2:B" & Cells(Rows.Count, 1).end(xlup).Row)
.FormulaLocal = _
"=WENN(ISTZAHL(B1);WENNFEHLER(KKLEINSTE(A:A;ZÄHLENWENN(A:A;""
Gruß Daniel
Anzeige
AW: Unikats-Liste mit VBA erstellen
22.01.2018 12:48:38
Daniel
Hi
in VBA so 

dim Zelle as Range
dim Liste As Object
set Liste = CreateObject("Scripting.Dictionary")
for Each Zelle in Columns(1).SpecialCells(xlcelltypeconstants, 1)
if Zelle.Value > Range("B1").Value then Liste(Zelle.Value) = 0
Next
if Liste.count > 0 Then _
Range("B2").Resize(Liste.Count, 1).Value = Worksheetfunction.Transpose(Liste.Keys)
Gruß Daniel
Super!
22.01.2018 13:24:18
Uwe
Hallo Daniel,
läuft wie gewünscht!
Vielen Dank
Uwe
P.S: Dank auch an Ralf Anton
AW: Unikats-Liste mit VBA erstellen
22.01.2018 12:52:24
Ralf
Hi Uwe,
das geht im Wesentlichen in 2 Schritten.
1. Schritt: Datumswerte filtern, die > als B1 sind und (im Beispiel) in Spalte C schreiben
2. Schritt: daraus eine Unikatliste filtern und in Spalte B schreiben.

Dim lz&
Application.ScreenUpdating = False
With ActiveSheet
lz = .Cells.SpecialCells(xlCellTypeLastCell).Row
.Range("B2:B" & lz).Clear 'alte Werte löschen
.Range("$A$1:$A$" & lz).AutoFilter Field:=1, Criteria1:=">" & CLng(Cells(1, 2)), Operator:= _
xlAnd
.Range("A2:A" & lz).Copy Destination:=.Cells(2, 3)
.Range("$A$1:$A$" & lz).AutoFilter
.Range("C2:C" & lz).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
.Range("C2:C" & lz).Copy Destination:=.Cells(2, 2)
.ShowAllData
.Range("C1:C" & lz).Clear
End With
Application.ScreenUpdating = True

Anzeige

83 Forumthreads zu ähnlichen Themen

Tabelle mit Filter als Webseite
Torsten

Hallo zusammen!
Ich habe eine kleine Excel-Tabelle erstellt, in welcher folgende Funktionen vorhanden sind:
- die erste Zeile fixiert ist (Fenster fixieren)
- die Autofilter-Funktion für alle Spalten gesetzt ist.
Ich möchte diese Tabelle auf einer Webseite darstellen. Dabei soll...
09.10.2008 13:51:59
Thread-ID: 1015342
2 Beiträge
Anzeige
Pivot-Tabellen mit gefilterten Werten möglich?
Andreas

Hallo Forum,
ich habe mal eine Frage bezüglich Pivot-Tabellen. Kann eine solche Tabelle schon vorher gefilterte Werte auswerten, ohne dass die herausgefilterten Zellen beachtet werden?
MFG Andreas
10.11.2008 11:29:00
Thread-ID: 1023155
5 Beiträge
Button mit Filterfunktion erstellen! aber wie ?
Richi

Hallo Zusammen,
wie kann man im Excel ein Button erstellen, das wenn man drauf klickt, ein Bestimter Filter ausgeführt wird ?
06.02.2009 09:35:00
Thread-ID: 1047622
2 Beiträge
Anzeige
Pivot Tabelle mit Daten neue Spalte erstellen
Carsten

Ich brauche mal Eure Hilfe.
Ich habe eine Pivot Tabelle die immerwieder aktualisiert und durch Selektionen geändert wird.
Nun ist es erforderlich eine Spalte anzufügen die die erhaltenen Daten dividiert und sich nach einer anderen Selektion automatich den neuen Daten anpasst.
Ich br...
29.12.2009 12:21:11
Thread-ID: 1126181
7 Beiträge
Arbeitsblätter erstellen mittels Liste
Sven

Hallo Excel-Könner,
ich komme nicht weiter und hoffe Ihr könnt mir weiterhelfen:
In Tabelle4 habe ich eine Liste einer Agenda. In Spalte A sind die Themennummerierungen (TOP 1, TOP 1.1, usw.) untereinander geschrieben, in Spalte B die Themen., die Spalte C ist komplett frei, Spalte D be...
16.03.2010 12:26:26
Thread-ID: 1146033
9 Beiträge
Tabellenblätter aut. aus Filterelementen erstellen
Helmut

Hallo liebe VBA’ler,
ich bräuchte bitte wieder Hilfe von euch. Ich habe folgende Aufgabenstellung mit einem Makro zu automatisieren:
Ich habe ein Excel-File, das ein Tabellenblatt hat. In diesem befinden sich mehrere ausgefüllte Spalten. Die ersten beiden Zeilen im 1.Tabellenblatt sind...
19.03.2010 12:25:50
Thread-ID: 1147101
4 Beiträge
Pivot-Tabelle mittels VBA-Makro erstellen
Volker

Hallo,
ich habe auf einem Blatt "A_Tabelle3" zwischen A1 und U147 Daten stehen und will auf einem anderen, bereits existierenden Blatt derselben Arbeitsmappe aus diesen Daten eine Pivot-Tabelle erzeugen.
Mit dem Makro-Rekorder habe ich folgendes aufgenommen:
Sub Pivot_drei() ' Pivot...
10.04.2010 09:01:13
Thread-ID: 1150882
5 Beiträge
Filter mit Tabellen
finaleternity

Guten Tag,
beim Unterfangen mehrere Texte in einer Spalte nach dem selben Typ zu filtern und gleichzeitig zu zählen erweist sich als knifflig. Worum geht es?
Es stellt sich die Frage nach einem Verfahren, wonach alle Textanteile einer Spalte einer PivotTabelle zugwiesen werden. Ausserde...
20.04.2011 20:01:07
Thread-ID: 1211250
2 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
1
6
4
1
2
6
8
3
4
1
4
5
5
2
8
1
5
9
1
1
13
7
1
3
8