Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

2 Functionen zusammenführen

2 Functionen zusammenführen
30.09.2006 17:51:16
IngoH
Hallo allerseits,
ich habe hier eine nette Formel für die Errechnung
von Wochentagen gefunden. Das ganze habe ich in zwei
Funktionen gepackt. Bei der einen gebe ich Anfang und Ende variabel an,
bei der anderen wird anhand des Datum
Anfang und Ende des aktuellen Monats automatisch gesetzt.
Da die eigentliche Berechnung aber identisch ist...kann man die
beiden Teile irgendwie zusammenführen ? Ich habe mal etwas von
Optional bei der Werteübergabe an Funktionen gehört.
Evtl. gibts es ja generell eine kürzere Variante ?
Wäre nett, wenn jemand 'mal einen Blick in Mappe wirft.
Danke und Gruß
Ingo
https://www.herber.de/bbs/user/37103.xls

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

Betreff
Datum
Anwender
Anzeige
AW: 2 Functionen zusammenführen
30.09.2006 20:44:59
MichaV
Hallo,


Option Explicit
Function Wochentage(Datum As Date, Optional Ende)
Dim Anfang
    If IsMissing(Ende) Then
        Anfang = DateSerial(Year(Datum), Month(Datum), 1)
        Ende = DateSerial(Year(Datum), Month(Datum) + 1, 1) - 1
   Else
        If Not VarType(Ende) = vbDate Then MsgBox "2. Wert muß ein Datum sein": End
        Anfang = Datum
   End If
   Wochentage = _
      Ende + 1 - Anfang - _
      Fix((Weekday(Anfang, vbMonday) + Ende - Anfang) / 7) - _
      Fix((Weekday(Anfang, vbSunday) + Ende - Anfang) / 7)
End Function
Sub tt_z()
   MsgBox Wochentage(Date, "s" & Date + 10)
End Sub
Sub tt_m()
   MsgBox Wochentage(Date)
End Sub


Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: 2 Functionen zusammenführen
30.09.2006 23:48:52
MichaV
Hallo,

Sub tt_z()
MsgBox Wochentage(Date, Date + 10)
End Sub

is besser...
Gruß- Micha
AW: 2 Functionen zusammenführen
01.10.2006 22:55:11
IngoH
Hallo Micha,
Danke für Deine Hilfe.
Das hilft mir weiter.
Gruß, Ingo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige