Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum von - bis eintragen, nur falls vorhanden

Datum von - bis eintragen, nur falls vorhanden
-
Guten Abend
Ich werte mit Hilfe einer Excel Datei jeweils grössere Datenmengen (ca. 20'000 Zeilen) aus. Im Range "xDatum" ist das jeweilige Datum pro Zeile enthalten.
Bisher habe ich das älteste und das neuste Datum ermittelt und dann alle Daten in die Tabelle "Auswertung" Spalte 1 eingetragen.
Bisheriger Code:
...
startDate = Application.Min(Range("xDatum"))
endDate = Application.Max(Range("xDatum"))
lngRow = 26
Worksheets("Auswertung").Activate
For lngC = startDate To endDate
Sheets("Auswertung").Cells(lngRow, 1) = CDate(lngC)
lngRow = lngRow + 1
Next
Nun gibt es viele Daten, an denen keine Transaktionen stattgefunden haben (und somit das entsprechende Datum im Range "xDatum" nicht existiert).
Deshalb möchte ich aus dem Range "xDatum" nur noch diejenigen Daten eintragen, die tatsächlich auch vorkommen.
Ich nehme an, dass ich die vorkommenden Daten (Mehrzahl von Datum?) in eine Variable schreiben kann, diese sortieren und dann die doppelten eliminieren kann und dann letztendlich die verbleibenden Daten am gewünschten Ort eintragen kann. Mir ist allerdings nicht klar, wie das anzustellen ist. Kann mir jemand helfen?
Vielen Dank und Gruss, Peter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
ohne Dubletten mit Dictionary
14.10.2009 19:00:09
Erich
Hi Peter,
probier das mal aus: 

Sub aaTest()
Dim arrD, objDic As Object, lngZ As Long, lngRow As Long
arrD = Application.Transpose(Range("xDatum"))
Set objDic = CreateObject("Scripting.Dictionary")
For lngZ = 1 To UBound(arrD)                             ' ohne Dubletten
objDic(arrD(lngZ)) = 0
Next lngZ
lngRow = 26
With Worksheets("Auswertung")
With .Cells(lngRow, 1).Resize(UBound(objDic.keys) + 1)
.Value = Application.Transpose(objDic.keys)        ' Ausgabe und Sortierung
.Sort Key1:=.Cells(26, 1), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
.NumberFormat = "m/d/yyyy"                         ' Format Datum
End With
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: ohne Dubletten mit Dictionary
15.10.2009 08:15:16
Peter
Hallo Erich
Das hat auf Anhieb geklappt, super!
Wo kann ich mich in die Thematik selber weiter einarbeiten (Arrays und Scripting.Dictionary)?
Vielen Dank und
Gruss, Peter
Dictionary
15.10.2009 10:32:47
Erich
Hi Peter,
zu scripting.dictionary hab ich nur mal kurz gegoogelt:
http://www.office-loesung.de/ftopic223175_0_0_asc.php
darin zwei Links:
http://www.office-loesung.de/ftopic281248_0_0_asc.php
http://www.html-world.de/program/fso_12.php
http://www.aspheute.com/artikel/19990806.htm
Das Feld "Arrays" ist seeehr weit. Schau doch z. B. mal bei
http://www.online-excel.de/excel/singsel_vba.php?f=152
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Dictionary
15.10.2009 12:23:00
Peter
Vielen Dank!
Peter

303 Forumthreads zu ähnlichen Themen

von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Tage aus (Datum von/bis)
gseibold@phocus-marketing.de

Hallo,
nach Eingabe der Datumswerte von/bis, sollen die Tage in Spalte A1-An,
und daneben in Spalte B1-Bn der Wochentag ausgegeben werden.
also z.B:
01.12.2008 Montag
02.12.2008 Dienstag
u.sw
gibt es ggf. bereits ein Bsp./Funktion die das schon erledigt.
LG
01.12.2008 10:05:38
Thread-ID: 1029175
3 Beiträge
Zeitraum Datum von bis in Spalte auslesen
bis

Hallo zusammen,
weis jemand wie ich das Datum einer Spalte ab A6 bis zum letzten Eintrag auslesen kann?
Gruß
Lemmi
18.09.2009 08:56:15
Thread-ID: 1103759
4 Beiträge
Anzeige
Suchkriterien Datum von-bis
sam
15.04.2002 11:15:15
Thread-ID: 113322
4 Beiträge
Zählen von Datum x bis Datum Y
Datum

Hallo,
ich möchte gerne Umsatzzahlen zwichen einen bestimmten Datum x bis zu einem bestimmten Datum y in einer Tabelle zählen lassen. Z.b Wie ist der Umsatz in Summe vom 01.03.2010 bis zum 01.10.2010

Dann noch eine weiter Frage: Wenn z.B. Tag, Monat und Jahr in jeweils einer Zelle...
21.02.2011 19:08:39
Thread-ID: 1202194
6 Beiträge
Datum von-bis auslesen
Chris

Hallo an alle
als VBA-Neuling komm ich mit meinem Problem nicht weiter. Deshalb die Frage an Euch Experten.
In Spalte A (Zellen A6-A370) des Datenblattes habe ich im Datumsformat TT.MM.JJJJ das gesamte Jahr 2011. In Spalte B bis max IV sind in den ersten 4 Zeilen für das Makro irreleva...
09.03.2011 14:16:41
Thread-ID: 1204993
5 Beiträge
Summenprodukt mit Datum von-bis
Andreas

Hallo,
Summenprodukt funktioniert ohne Datumseinschränkung.
Hat jemand einen Tipp, wie ich eine Datumseinschränkung einbauen kann, wenn die Daten in Zelle C2(von) und C3(bis) stehen. Die Spalte dazu ist in einem weiteren Blatt (N:N)
Gruß, Andreas
19.04.2011 10:36:20
Thread-ID: 1211021
2 Beiträge
ListBox befüllen Datum von bis
bis

Hallo Zusammen!
In Spalte D10 - D2009 steht immer Datum. Es kann aber das gleiche Datum mehrfach vorkommen.
Ich möchte gern das wenn ich auf einer UF in zwei TextBoxen ein Datum eingebe, dass er mir in der ListBox die Daten von Datum aus 1. TextBox bis zum Datum aus 2. TextBox listet....
10.06.2012 16:00:37
Thread-ID: 1266815
10 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
7
6
2
3
1
3
5
4
1
9
4
10
6
9
3
1
5
5
5
2
8
4
2
5
11