Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

2 Functionen zusammenführen

Forumthread: 2 Functionen zusammenführen

2 Functionen zusammenführen
30.09.2006 19: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: 2 Functionen zusammenführen
30.09.2006 22: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
01.10.2006 01:48:52
MichaV
Hallo,

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

is besser...
Gruß- Micha
AW: 2 Functionen zusammenführen
02.10.2006 00:55:11
IngoH
Hallo Micha,
Danke für Deine Hilfe.
Das hilft mir weiter.
Gruß, Ingo
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum