Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
972to976
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
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
AW: wochenenden finden
28.04.2008 22:33:00
WalterK
Hallo,
oder so:
Tabelle1

 AB
101.04.2008 
203.05.2009 
3  
457Sonntage
557Samstage

Formeln der Tabelle
ZelleFormel
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

Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige