VBA Daten zählen wenn Datum im Datumsintervall

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Wenn es tatsächlich Datuminhalte sind, die nur anders formatiert sind, dann so..
(in Tabelle2 stehen 01.01.2015 und 01.02.2015)

Tabelle1

	A
1	Datum
2	2014-18-06
3	2014-19-06
4	2014-20-06
5	2014-21-06
6	2014-22-06
7	2014-23-06
8	2014-24-06
9	2014-25-06
10	2014-26-06
11	2014-27-06
12	2014-28-06
13	2014-29-06

Tabelle2

	A	B	C	D
1	Von	Bis		Anzahl
2	Januar 15	Februar 15		32

verwendete Formeln
Zelle	Formel	Bereich	N/A
D2	=ZÄHLENWENNS(Tabelle1!A:A;">="&A2;Tabelle1!A:A;"<="&B2)

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.03 einschl. 64 Bit

Hallo Crizz,
da ich leider nicht genug Informationen habe, wo genau die Daten stehen (also in welcher Mappe und welchem Blatt) müsstest du das folgende Makro noch selber etwas bearbeiten, damit es bei dir funktioniert. Hoffe aber, dass es dir trotzdem hilft:

Sub Zaehlen()
Dim lngI As Long
Dim lngJ As Long
Dim lngCounter As Long
For lngI = 1 To Workbooks("Mappe1").Sheets(1).Cells(Rows.Count, 3).End(xlUp).Row
For lngJ = 1 To Workbooks("Mappe2").Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
If Workbooks("Mappe1").Sheets(1).Cells(lngI, 3).Value = Workbooks("Mappe2").Sheets( _
1).Cells(lngJ, 2).Value Then
lngCounter = lngCounter + 1
End If
Next lngJ
Next lngI
Workbooks("Mappe1").Sheets(1).Cells(1, 1).Value = lngCounter
End Sub

Zu ersetzen ist:
- "Mappe1" durch den Mappennamen + Endung der Mappe, in welcher deine erste Tabelle steht.
- "Mappe2" durch den Mappennamen + Endung der Mappe, in welcher deine zweite Tabelle steht.
- Sheets(1) steht für das erste Blatt in der Mappe. Evtl. musst du das auch ändern.
- For lngI = 1 To Workbooks... bedeutet, dass er direkt in der ersten Zeile anfängt zu vergleichen. falls du ne Überschrift hast oder die Tabelle generell weiter unten anfängt muss du den Wert erhöhen.
- Workbooks("Mappe1").Sheets(1).Cells(1, 1).Value = lngCounter bedeutet, dass er dir die Anzahl an Daten aus Tabelle 1, welche auch in Tabelle 2 stehen in die Zelle A1 schreibt. Wenn er dir die Anzahl in eine andere Zelle schreiben soll, musst du auch dieses ändern.

Beliebteste Forumthreads (12 Monate)

VBA Daten zählen wenn Datum im Datumsintervall

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Daten zählen wenn Datum im Datumsintervall

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread