wochenenden finden

Forumthread: wochenenden finden

wochenenden finden

28.04.2008 21:41:48

Friedemann

Anfage an die Gemeinde,
wie kann ich aus einer Datumsspanne die Anzahl der Sonntage ermitteln.
Beispiel, ich habe als Anfangsdatum in A1 den 1. April 2008 und als Enddatum in A2 den 3. Mai 2009. Nun benoetige (als Ausgabe zB in A4) ich die Anzahle der Sonntage (und/oder Sonnabende) die dazwischen liegen.
Irgendwie habe ich noch keine Erleuchtung und hoffe auf Hilfe.
Danke
Friedemann

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: wochenenden finden

28.04.2008 22:27:30

Peter
AW: wochenenden finden

28.04.2008 22:31:02

Peter
AW: wochenenden finden

28.04.2008 22:33:00

WalterK
AW: wochenenden finden

28.04.2008 23:08:32

Friedemann

AW: wochenenden finden

28.04.2008 22:27:30

Peter

Hallo Friedemann,
Aufruf der Function =Sonntage(A1;A2)
Public Function Sonntage(Strt_Dat As Date, Ende_Dat As Date) As Integer Dim dDatum As Date For dDatum = Strt_Dat To Ende_Dat If Weekday(dDatum) = 1 Then Sonntage = Sonntage + 1 Next dDatum End Function

Die Function in ein allgemeines Modul kopieren.
Gruß Peter

AW: wochenenden finden

28.04.2008 22:31:02

Peter

Hallo Friedemann,
nach gleichen Muster für Sonnabende bzw, Wochenenden


Public Function Samstage(Strt_Dat As Date, Ende_Dat As Date) As Integer
Dim dDatum  As Date
For dDatum = Strt_Dat To Ende_Dat
If Weekday(dDatum) = 7 Then Samstage = Samstage + 1
Next dDatum
End Function


Public Function Wochenende(Strt_Dat As Date, Ende_Dat As Date) As Integer
Dim dDatum  As Date
For dDatum = Strt_Dat To Ende_Dat
If Weekday(dDatum) = 1 Or Weekday(dDatum) = 7 Then Wochenende = Wochenende + 1
Next dDatum
End Function

Gruß Peter

AW: wochenenden finden

28.04.2008 22:33:00

WalterK

Hallo,
oder so:
Tabelle1

	A	B
1	01.04.2008
2	03.05.2009
3
4	57	Sonntage
5	57	Samstage

Formeln der Tabelle

Zelle	Formel
A4	=WENN((A2-A1+1-(7-WOCHENTAG(A1;2))-WENN(WOCHENTAG(A1;2)>7;7;0))/7<0;0;AUFRUNDEN((A2-A1+1-(7-WOCHENTAG(A1;2))-WENN(WOCHENTAG(A1;2)>7;7;0))/7;0))
A5	=WENN((A2-A1+1-(6-WOCHENTAG(A1;2))-WENN(WOCHENTAG(A1;2)>6;7;0))/7<0;0;AUFRUNDEN((A2-A1+1-(6-WOCHENTAG(A1;2))-WENN(WOCHENTAG(A1;2)>6;7;0))/7;0))

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
aus: http://www.excelformeln.de/formeln.html?welcher=251
Servus, Walter

AW: wochenenden finden

28.04.2008 23:08:32

Friedemann

Danke recht herzlich an beide. Es funktioniert.
Gruss aus California,
Friedemann

Beliebteste Forumthreads (12 Monate)

Forumthread: wochenenden finden

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread