Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dekadenberechnung

Forumthread: Dekadenberechnung

Dekadenberechnung
02.10.2006 08:41:07
Holger
Hallo zusammen,
für den Einen oder anderen eine sicherlich einfache Frage, ich bekomme es nicht gelöst.
Ich möchte über Eingabe des Kalenderjahres die Berechnung von Dekadentagen ausführen, heißt wann beginnt die Dekade, wann endet die Dekade.
Bsp der Dekade: 01.01.2006 - 10.01.2006 (DEK1) // 11.01.2006 - 20.01.2006 (DEK2) // 21.01.2006 - Monatsende (DEK3). Dann fortlaufend für das Jahr.
Daraus möchte ich die effektiven Arbeitstage berechnen (Feiertage werden automatisch berücksichtigt, dafür habe ich die Lösung).
Kann mir jemand helfen ?
Gruß in die Gemeinde
Holger
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachfrage
02.10.2006 09:50:34
Reinhard
Hi Holger,
ist dann der 31.1 der 11te. Tag in DEK3 oder der erste Tag von DEK4?
Wie soll die Ausgabe aussehen?
Gruß
Reinhard
AW: Nachfrage
02.10.2006 13:41:16
Holger
Hallo Reinhard,
Nein die ersten 2 Dekaden sind immer jeweils vom 1ten - 10ten und 11ten - 20ten. Die Dekade 3 ist dann jeweils vom 21ten - bis Monatsende (also 30ten oder 31ten). Das ganze jeweils je Monat. Die Ausgabe soll so aussehen, daß z.B. in Zelle A1 der erste Tag der Dekade steht und in Zelle A2 dann der letzte Tag der Dekade (jeweils im Datumsformat).
HILFE !!! HILFE !!! HILFE !!!!
Gruß Holger
Anzeige
AW: Dekadenberechnung
02.10.2006 16:08:48
rlenz
Hallo Holger, sieh mal hier:
https://www.herber.de/bbs/user/37134.xls
Die Nettoarbeitstage kannst du ja selbst problemlos errechnen.
Für die Funktionen MONATSENDE und auch falls du sie verwendest die Funktion NETTOARBEITSTAGE muss das Add-In "Analyse-Funktion" installiert und aktiviert sein.
MfG
Rüdiger Lenz
Anzeige
AW: Dekadenberechnung
02.10.2006 21:11:04
Holger
Hallo Rüdiger Lenz,
genial, genau das ist es, was ich brauche. Super klasse.
Ganz herzlichen Dank und alles Liebe und Gute für die Zukunft.
Diesem Forum und seinen "Mitstreitern" ein Megalob - kann man nur weiter empfehlen.
Gruß
Holger Ruppert
;
Anzeige

Infobox / Tutorial

Dekadenberechnung in Excel


Schritt-für-Schritt-Anleitung

Um die Dekadenberechnung in Excel durchzuführen, folge diesen Schritten:

  1. Kalenderjahr eingeben: Trage in Zelle A1 das Jahr ein, für das du die Dekaden berechnen möchtest.

  2. Dekadenstart und -ende berechnen:

    • In Zelle A2 schreibe die Formel für den Start der ersten Dekade:
      =DATUM(A1;1;1)
    • In Zelle A3 berechne das Ende der ersten Dekade mit:
      =A2+9
    • Für die zweite Dekade in Zelle A4:
      =A2+10
    • In Zelle A5 berechne das Ende der zweiten Dekade:
      =A4+9
    • Für die dritte Dekade in Zelle A6:
      =A4+20
    • In Zelle A7 berechne das Ende der dritten Dekade:
      =MONATSENDE(A1;0)
  3. Wiederhole die Schritte: Du kannst die Formeln in die nachfolgenden Zeilen kopieren, um die Dekaden für die restlichen Monate des Jahres zu erhalten.


Häufige Fehler und Lösungen

  • Problem: Die Formel gibt ein Fehlerdatum zurück.

    • Lösung: Stelle sicher, dass das Jahr in Zelle A1 korrekt eingegeben wurde und dass die Formeln korrekt verschachtelt sind.
  • Problem: MONATSENDE-Funktion funktioniert nicht.

    • Lösung: Überprüfe, ob das Add-In "Analyse-Funktion" in Excel aktiviert ist. Gehe zu "Datei" > "Optionen" > "Add-Ins" und aktiviere es gegebenenfalls.

Alternative Methoden

Eine alternative Möglichkeit zur Dekadenberechnung ist die Verwendung von VBA (Visual Basic for Applications). Hier ist ein einfaches Skript, das du verwenden kannst:

Sub DekadenBerechnung()
    Dim Jahr As Integer
    Dim Monat As Integer
    Dim Dekade As Integer
    Dim StartDatum As Date
    Dim EndDatum As Date

    Jahr = InputBox("Gib das Jahr ein:")

    For Monat = 1 To 12
        For Dekade = 1 To 3
            Select Case Dekade
                Case 1
                    StartDatum = DateSerial(Jahr, Monat, 1)
                    EndDatum = StartDatum + 9
                Case 2
                    StartDatum = DateSerial(Jahr, Monat, 11)
                    EndDatum = StartDatum + 9
                Case 3
                    StartDatum = DateSerial(Jahr, Monat, 21)
                    EndDatum = DateSerial(Jahr, Monat + 1, 0) ' Monatsende
            End Select
            ' Ausgabe der Dekade
            Debug.Print "Dekade " & Dekade & ": " & StartDatum & " bis " & EndDatum
        Next Dekade
    Next Monat
End Sub

Praktische Beispiele

Hier sind einige Beispiele, wie die Dekaden für das Jahr 2023 aussehen würden:

  • Januar:

    • DEK1: 01.01.2023 - 10.01.2023
    • DEK2: 11.01.2023 - 20.01.2023
    • DEK3: 21.01.2023 - 31.01.2023
  • Februar:

    • DEK1: 01.02.2023 - 10.02.2023
    • DEK2: 11.02.2023 - 20.02.2023
    • DEK3: 21.02.2023 - 28.02.2023 (oder 29.02. in Schaltjahren)

Durch die Anwendung der oben genannten Formeln kannst du diese Werte automatisch berechnen.


Tipps für Profis

  • Automatisierung: Überlege, ob du die Daten in ein Dropdown-Menü integrieren möchtest, um die Auswahl des Jahres zu erleichtern.
  • Formatierung: Nutze die bedingte Formatierung, um die Dekaden farblich zu kennzeichnen, was die Übersichtlichkeit erhöht.
  • Feiertage berücksichtigen: Verwende die Funktion NETTOARBEITSTAGE, um die effektiven Arbeitstage innerhalb jeder Dekade zu berechnen.

FAQ: Häufige Fragen

1. Wie kann ich die Dekaden für mehrere Jahre berechnen?
Du kannst die oben beschriebenen Formeln in eine Schleife einbauen oder VBA verwenden, um die Berechnung für mehrere Jahre durchzuführen.

2. Was mache ich, wenn ich die Feiertage manuell eingeben möchte?
Du kannst eine Liste der Feiertage erstellen und die NETTOARBEITSTAGE-Funktion anpassen, um diese in die Berechnung einzubeziehen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige