HERBERS Excel-Forum - die Beispiele

Thema: Wieviel Wochen hat ein Monat?

Home

Gruppe

UDF

Problem

Wie ermittle ich die Wochen eines Monats? Als Woche zählen mindestens 4 Tage am Anfang und am Ende des Monats.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain

Function Weeks(iYear As Integer, iMonth As Integer)
   Dim iDay As Integer, iCounter As Integer, iWeek As Integer, iPart As Integer
   Dim lDay As Long
   Dim bln As Boolean
   For lDay = DateSerial(iYear, iMonth, 1) To DateSerial(iYear, iMonth + 1, 0)
      iPart = iPart + 1
      If WeekDay(lDay) = 1 Then
         If iPart >= 4 Then iWeek = iWeek + 1
         iPart = 0
      End If
   Next lDay
   If iPart >= 4 Then iWeek = iWeek + 1
   Weeks = iWeek
End Function

Beiträge aus dem Excel-Forum zu den Themen UDF und DatumUndZeit

Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Ergebnis UDF ändert, wenn Tabelle deaktiviert wird
UDF soll nicht auf Daten anderer Dateien zugreifen vor Ausführung einer UDF Zwischenspeicher "retten&
UDF - Argument ohne " " übergeben möglic UDF- Beschreibung
Berechnungsdauer einer UDF messen Hintergrudfarbe ändern??? Finde keine Lösung :-(
Probleme mit IsNumeric, Code per UDF UDF mittels Ereignis aktualisieren?
UDF, Minuszeichen vor Zahl auswerten nach Worksheet_Change werden UDF nicht ausgewertet
Excel anhalten bei UDF UDF
UDF, Rückgabewert Text anstelle Zahl Aufruf einer UDF, Fehler Objekt erforderlich
SQL in UDF Werte einer UDF werden nicht aktualisiert
Aufruf von UDF mit Array UDF: Semikolon vs Komma
UDF, erkennen in welcher Zelle die UDF steht Probleme mit UDF und Worksheet Ereignissen
Formeln über UDF vergleichen UDF Verweis checken
UDF Intellisense bei User defined functions (UDF)
VBA "Find" in UDF UDF-Funktionen in eigener Kategorie
UDF Function Variable Info erstellen UDF, optionaler Parameter als Range, IsEmpty?
UDF verschiedene Bereiche ändern Makro aus UDF starten
Reihenfolge von UDF's UDF/ Berechnung Zuschlagszeiten
AddIn UDF in anderem VBA-Project verwenden UDF und Array bzw. Matrix
UDF die Texte in Zahlen umwandelt Summewenns UDF über mehrere Tabellenblätter
Funktionsargumente für UDF's UDF Reihenfolge Übergabeparamter führt zu #WERT
Neuberechnung einer UDF VBA - UDF anpassen
UDF liefert kein Ergebnis UDF anpassen
UDF stößt an ihre Grenze (Alternative?) Bereichsname in UDF verwenden
UDFs zeigen falsche Ergebnisse oder starten nicht Fragen zu UDF, die Texte verkettet
UDF: Kontextbezogene Hilfe anzeigen UDF funktioniert bei Aufruf per Sub, sonst Fehler