Office: Suche nach dem Datum (VBA)

Hallo!

Kann mir jemand bei dieser Aufgabe helfen? Bitte nicht über Sinn oder Unsinn dieses Problems diskutieren.

In A1 steht ein Datum und in B1 steht ein Datum (A1<B1). Nun soll über ein Makro folgendes gelöst werden:

Wie oft kommt in diesem Zeitraum z.B. Freitag der 13. vor (dabei steht der Wert "13" in A3 und das Wort "Freitag" in C3) vor. Soll natürlich auch mit anderen Tagen funktioneren.


Zusatz wäre, wie oft in diesem Zeitraum z.B. der 13. April ( "April" würde dann in B3 stehen) auf einem Freitag fällt.

Mal ein Beispiel:

Eingabe:
A1=1.1.1906
B1=31.12.2543

A3= 13
B3= April
C3= Freitag

Ausgabe:
A5 abwärts = alle 13. die auf einem Freitag fallen
B5 abwärts = alle 13. April die auf einem Freitag fallen


Kann man das überhaupt mittels VBA lösen?

Wäre sehr für eure Hilfe dankbar.


gruß

Nico

 

Hallo!

Meiner Meinung nach müsste das sogar OHNE VBA machbar sein.
Wie universell brauchst du's denn wirklich?

=Summenprodukt((Jahr(A1:A1000)=2007)*(Monat(A1:A1000)=3)*(Tag(A1:A1000)=13)*(Wochentag(A1:A1000)=6))

gibt dir die Anzahl aller Freitage, die auf einen 13. fallen im März 2007.
Das sind zugegebenermaßen nicht allzu viele...
Aber als Ansatz nicht schlecht, oder?

Für konkretere Lösungen bitte mehr Infos...

 

Hallo!

@schatzi

Danke schonmal! Aber wenn ich es so einfach gewollt hätte, hätte ich es wahrscheinlich selbst hinbekommen ;-) . Ich will ja das die Datums nach unten aufgelistet werden, nicht nur die Anzahl. Das im März nicht soviele Freitag der 13 gibt ist ja logisch. Deswegen ist im Beispiel ja auch ein Zeitraum von ein paar Jahrhunderten angegeben. Freitag der 13. ist übrigens NUR ein Beispiel. Könnte auch der 20. Mai bzw Donnerstag der 20. Mai sein.

Ich weiß nicht genau was du noch für Informationen brauchst. Ich bin eigentlich der Meinung alles relevante aufgeführt zu haben. Falls das nicht Fall sein sollte, einfach nochmal nachfragen :-)


@all

Bin weiterhin für alle Lösungen dankbar.

gruß

Nico

 

Hallo!

Du hast recht, ich habe deine Anfrage zu nachlässig gelesen...

Mit meinen spärlichen VBA-Kenntnissen habe ich jetzt dies zusammen geschustert:

Code:

Sub Datum_filtern()
Dim Start As Long, Ende As Long
Dim Jahr As Integer, Monat As Integer, Tag As Integer, Wochentag As Integer
Dim Zähler As Long, Treffer As Integer
Dim Beginn As Range
Start = Range("A1").Value 'Startdatum muss in A1 stehen
Ende = Range("A2").Value 'Enddatum muss in A2 stehen
Jahr = Range("A3").Value 'In A3 kann optional ein Suchjahr stehen
Monat = Range("A4").Value 'In A4 kann optional ein Suchmonat stehen
Tag = Range("A5").Value 'In A5 kann optional ein Suchtag stehen
Wochentag = Range("A6").Value 'In A6 kann optional ein Suchwochentag stehen
'Der Wochentag wird als Zahl angegeben:
'Montag = 1
'Dienstag = 2
'usw. bis Sonntag = 7
Set Beginn = Application.InputBox("Die Daten werden untereinander aufgelistet." & _
Chr(13) & "Bitte die Startzelle eingeben oder anklicken:", Type:=8)
For Zähler = Start To Ende
If (Jahr = 0 Or Jahr = DatePart("yyyy", Zähler)) And _
(Monat = 0 Or Monat = DatePart("m", Zähler)) And _
(Tag = 0 Or Tag = DatePart("d", Zähler)) And _
(Wochentag = 0 Or Wochentag = DatePart("w", Zähler, vbMonday)) Then
Beginn.Offset(Treffer, 0).Value = Zähler
Beginn.Offset(Treffer, 0).NumberFormat = "DDD, DD.MM.YYYY"
'Den Zellen wird das Format "So, 01.01.2007" zugewiesen
Treffer = Treffer + 1
End If
Next Zähler
End Sub

Und siehe da: Es scheint zu funktionieren!
Die Zellen mit den Eingabewerten kannst du auf deine Wünsche anpassen.
Während des Makros wirst du gefragt, ab wo die entsprechenden Daten aufgelistet werden sollen.

PS: Nur mal interessehalber: Wofür braucht man sowas?

 

alle 13. die auf einem Freitag fallen => 1097
alle 13. April die auf einem Freitag fallen => 93

*fg*

 

@schatzi

Vielen Dank für deine Hilfe. So scheint es tatsächlich zu funktionieren. :-D
Mit deiner Korrektur geht es noch besser(bequemer).

Wieso verbraucht schnake's Version soviele Ressourcen?

Das gehört zu einem Statistik-Projekt.

@schnake

Sehr schöne Aufmachung. Vielen Dank für deine Arbeit. ABER bei schatzi's Version wird bei weitem nicht soviel Rechenleistung gebraucht. Nichts für ungut.


Gruß und schönen Sonntag noch.

Nico

 

sorry...

 

Du brauchst dich doch nicht entschuldigen. Es ist doch schön zu sehen, das es verschiedene Lösungswege gibt.


Gruß

Nico