Kalender Funktion

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,

Probier mal dieses Makro.


Private Sub WTageZaehlen()
Dim startDat As Date
Dim endDat As Date
Dim tag As Date
Dim iCnt As Integer
Dim Mon As Integer, Die As Integer, Mit As Integer, _
Don As Integer, Fre As Integer, Sam As Integer, Son As Integer
startDat = Cells(1, 1)  'Anfangsdatum "A1"
endDat = Cells(2, 1)    'Enddatum "A2"
For iCnt = 0 To DateDiff("d", startDat, endDat, vbMonday)
tag = Weekday(startDat + iCnt, vbMonday)
Select Case tag
Case 1
Mon = Mon + 1
Case 2
Die = Die + 1
Case 3
Mit = Mit + 1
Case 4
Don = Don + 1
Case 5
Fre = Fre + 1
Case 6
Sam = Sam + 1
Case 7
Son = Son + 1
End Select
Next
MsgBox Mon & " mal Montag" & vbLf & _
Die & " mal Dienstag" & vbLf & _
Mit & " mal Mittwoch" & vbLf & _
Don & " mal Donnerstag" & vbLf & _
Fre & " mal Freitag" & vbLf & _
Sam & " mal Samtag" & vbLf & _
Son & " mal Sontag"
End Sub

Code in ein allgemeines Modul kopieren und laufen lassen.

Startdatum in Zelle A1, Enddatum in A2.

Gruß Sepp

Function AnzahlWochentage(AnfDatum As Date, EndDatum As Date, _ WelcherWoTag As Long, Optional WelcherMonat) As Long Dim Anzahl As Long Dim Datum As Date If AnfDatum < EndDatum Then If IsMissing(WelcherMonat) Then For Datum = AnfDatum To EndDatum If Weekday(Datum, vbMonday) = WelcherWoTag Then Anzahl = Anzahl + 1 End If Next Datum Else For Datum = AnfDatum To EndDatum If Weekday(Datum, vbMonday) = WelcherWoTag And _ Month(Datum) = WelcherMonat Then Anzahl = Anzahl + 1 End If Next Datum End If End If AnzahlWochentage = Anzahl End Function

Hallo Daniel,

das ist ein guter Grund in VBA einzusteigen! Also ...

1. Zuerst den Editor aufrufen:
Extras - Makro - Visual Basic-Editor

2. Du siehst jetzt links ein Fenster 'VBA-Projekt', falls nicht dann über
Ansicht - Projekt-Explorer dieses Fenster einblenden.

3. Im Projekt-Fenster deine Mappe anklicken, dann ...
rechte Maustaste - Einfügen - Modul ein neues Fenster geht auf.

4. In dieses Fenster jetzt den Code aus dem Forum hineinkopieren!

5. Zurück zu Excel (Excel-Icon ganz links in der Symbolleiste)

6. Die benutuzerdefinierte Funktion steht jetzt in Excel zur Verfügung.
Einfügen - Funktion (oder Icon fx)
Funktionskategorie 'benuterdefiniert'
Funktion AnzahlWochentage auswählen und wie andere Excelfunktionen verwenden!

Viel Erfolg!

Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread