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

Ereignisse automatische auf Tage verteilen

Forumthread: Ereignisse automatische auf Tage verteilen

Ereignisse automatische auf Tage verteilen
11.07.2024 19:08:02
Zaza
Hallo liebes Forum, obwohl ich glaube, dass sich mein Problem einfach lösen lasst, bin ich nicht fündig geworden und brauche eure Hilfe.
Ich möchte gerne ein Ereignis, dass in jedem Monat unterschiedlich häufig auftritt automatisch und gleichmäßig auf die Tage im jeweiligen Monat verteilten. Also in Tabelle A steht die Häufigkeit eines Ereignisses je Monat z.B. für Januar 3 Ereignisse mit Stärke 4, für Feb. 2 Ereignisse der Stärke 5 usw. In Tabelle B sind die einzelnen Tage der Monate von Jan. Bis Dez aufgelistet. Nun sollen sich die Ereignisse automatisch und in regelmäßigen Abständen auf die Tage des jeweiligen Monats verteilen.
Wie könnte das klappen?
Vielen Dank im Voraus.

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ereignisse automatische auf Tage verteilen
11.07.2024 19:13:26
SF
Hola,
und Ergebnisse und Stärke stehen in weichem Verhältnis zueinander?
Eine Exceldatei mit Wunschergebnis wäre hilfreich.
Gruß,
steve1da
AW: Ereignisse automatische auf Tage verteilen
11.07.2024 21:26:01
Zaza
Dank dir für deine Antwort. Ich habe mal ein Beispiel hochgeladen. Es geht einfach darum, dass die Region per Dropdown ausgewählt werden kann und daher relativ viele Daten hinterlegt sind, die sich immer automatisch und gleichmäßig auf die jeweiligen Monate verteilen sollen.
In Region x findet 9 mm beispielsweise im Januar 3-mal statt, (31/3), also an Tag 10; 20; 30
In Region Y findet 9 mm beispielsweise im Januar 5-mal statt, (31/5), also an Tag 1; 7; 13; 18; 25
usw.

Viele Grüße
Anzeige
AW: Ereignisse automatische auf Tage verteilen
12.07.2024 01:15:51
Zaza
Hey,

ich habe das mit dem Hochladen missverstanden.
Hier ist der Link zu einem Beispiel
https://www.herber.de/bbs/user/170868.xlsx

sonst habe ich noch ein anderes etwas vereinfachtes Beispiel:
Für 2025 habe ich eine Summe von 200 €, die ich im Januar an 2 Tagen ausgeben darf, im Februar an vier Tagen, im März an 5 Tagen und im April an 3 Tagen usw.
2026 habe ich 400 € die ich wieder nur an einer beschränkten Anzahl an Tagen ausgeben darf. Im Januar an 4 Tagen, im Februar an 6 Tagen usw.

Nun möchte ich, dass die Tage an denen ich das Geld ausgeben darf gleichmäßig über den Monat verteilt werden und die Summe an den Tagen gleich hoch ist, also z.B. für Januar: 100 € am 15.1 und 100 € am 30.1., wenn ich das Jahr 2025 auswähle.
Wenn ich 2026 wähle, wären es für Januar jeweils 100 € z.B. am 7.1, 14.1; 21.01 und 28.1.

Wie es sich am Ende verteilt ist nicht so entscheidend. Am wichtigsten ist, dass es sich immer nach dem gleichen Schema verteilt und vor allem automatisch, sobald ich das Jahr auswähle und die Häufigkeit des Ereignisses feststeht.

Ich hoffe, es jetzt etwas klarer.
Gruße und vielen Dank!
Anzeige
AW: Ereignisse automatische auf Tage verteilen
11.07.2024 19:14:05
Oberschlumpf
Hi,

mir fällt diese Idee ein:

Anzahl der Monatstage, in denen die Ereignisse stattfinden geteilt durch die Anzahl Ereignisse

Januar = 31 Tage
Ereignisse = 3

31/3 = 3 (auf ganze Zahl abrunden!)

Und dann eben gleichmäßig verteilen, z Bsp

10. Januar
20. Januar
30. Januar

Und so halt auch für die anderen Monate/Ereignisse.

Ciao
Thorsten
Anzeige
AW: Ereignisse automatische auf Tage verteilen
11.07.2024 21:00:46
Rebbecca Träger
Danke für deine Antwort. Genau so, nur wäre es toll, wenn das automatisch ginge und die Ereignisse sich gleichmäßig auf die Anzahl der Tage verteilen. Ich habe viele verschiedene Regionen mit unterschiedlichen Häufigkeiten je Monate, die sich per Dropdown auswählen lassen.
Grüße
AW: Ereignisse automatische auf Tage verteilen
11.07.2024 19:18:40
daniel
Hi
mach bitte mal eine Beispieldatei, in welcher du auch zeigst, wie du dir das Ergebnis vorstellst und wünschst (dh Ergebnis von Hand erstellt, passend für gezeigten Ausgangsdaten, und vielleicht mehr als 2 Monate, berücksichtige auch Sonderfälle)
hat die Stärke irgendeinen Einfluss auf die Verteilung?
soll jeder Monat für sich eigenständig betrachtet werden?
wie ist der Abstand zum Monatsanfang und Ende zu betrachten:
gleicher Abstand wie zwischen den Ereignissen oder halber Abstand?
muss das Ergebnis des vormonats irgendwie berücksichtigt werden?
Gruß Daniel
Anzeige
AW: Ereignisse automatische auf Tage verteilen
11.07.2024 21:36:16
Zaza
Hey, vielen Dank für deine Antwort. Ich habe mal ein Beispiel hochgeladen. Es geht einfach darum, dass die Region per Dropdown ausgewählt werden kann und daher relativ viele Daten hinterlegt sind, die sich je ausgewählte Region immer automatisch und gleichmäßig auf vollen Tage des jeweiligen Monats verteilen sollen.
In Region x findet 9 mm beispielsweise im Januar 3-mal statt, (31/3), also an Tag 10.1; 20.1; 30.1
In Region Y findet ... mm beispielsweise im Januar 5-mal statt, (31/5), also an Tag 1.1; 7.1; 13.1; 18.1; 25.1
usw.

Viele Grüße
Anzeige
AW: Ereignisse automatische auf Tage verteilen
11.07.2024 22:41:15
daniel
Hi
Hochladen reicht nicht
Du musst den Link kopieren und in deinen Beitrag einfügen, der Link sollte eine eigene Zeile sein.

Was legt den fest, ob die Reihe am 1. (Februar) oder später (Januar) beginnt?

Gruß Daniel
AW: Ereignisse automatische auf Tage verteilen
12.07.2024 01:12:36
Zaza
Hey,

ah ok danke, hier ist der Link:

https://www.herber.de/bbs/user/170868.xlsx

Wann die Reihe beginnt ist nicht festgelegt, ich würde es frei wählen. Es geht vor allem darum, dass die gleiche Anzahl an Ereignissen immer möglichst gleich verteilt werden, und zwar gleichmäßig über den Monat.

Vielleicht ein etwas einfacheres Beispiel.
Für 2025 habe ich eine Summe von 200 €, die ich im Januar an 2 Tagen ausgeben darf, im Februar an vier Tagen, im März an 5 Tagen und im April an 3 Tagen usw.
2026 habe ich 400 € die ich wieder nur an einer beschränkten Anzahl an Tagen ausgeben darf. Im Januar an 4 Tagen, im Februar an 6 Tagen usw.

Nun möchte ich, dass die Tage an denen ich das Geld ausgeben darf gleichmäßig über den Monat verteilt werden und die Summe an den Tagen gleich hoch ist, also z.B. für Januar: 100 € am 15.1 und 100 € am 30.1., wenn ich das Jahr 2025 auswähle.
Wenn ich 2026 wähle, wären es für Januar jeweils 100 € z.B. am 7.1, 14.1; 21.01 und 28.1.

Wie es sich am Ende verteilt ist nicht so entscheidend. Am wichtigsten ist, dass es sich immer nach dem gleichen Schema verteilt und vor allem automatisch, sobald ich das Jahr auswähle und die Häufigkeit des Ereignisses feststeht.

Ich hoffe, es jetzt etwas klarer.
Gruße und vielen Dank!

Anzeige
AW: Ereignisse automatische auf Tage verteilen
12.07.2024 08:42:27
Sigi.21
Hallo Zaza,

mit Formeln wird das ein Gewürge! M.E. ist da VBA besser geeignet. (s. Mappe mit VBA-Fkt.)

Gruß Sigi
https://www.herber.de/bbs/user/170870.xlsm
AW: Ereignisse automatische auf Tage verteilen
12.07.2024 15:23:51
Zaza
Oh super,
vielen, vielen Dank, das muss ich aber noch mal länger anschauen, bis ich es richtig anwenden kann.
Könntest du mir vielleicht den VBA-Code des Makros in den Chat kopieren.

Grüße

Anzeige
AW: Ereignisse automatische auf Tage verteilen
12.07.2024 19:23:17
Sigi.21
Hallo Zaza,

der Code befindet sich eigentlich in der Mappe. Aber ich kann ihn auch hier posten. (von etwas Ballast bereinigt)
Gruß Sigi 

Function PrecipitationPerMonth(Precipitation As Double, DaysOfRain As Long, _

                                    Month_ As Long, Day_ As Long) As Variant

Dim TgD As Double, wrt As Double, rw1 As Double, rw2 As Double, tt As Long, df As Long

    Application.Volatile

    If DaysOfRain  29 Then

            wrt = Round(Precipitation / DaysOfRain, 5)

            df = Choose(Month_, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

            rw1 = WorksheetFunction.RoundDown(df / DaysOfRain, 8): rw2 = Round(rw1 / 2, 8)

            TgD = 1 + rw2

            For tt = 1 To df

                If tt = Int(TgD) Then

                    If tt = Day_ Then

                        PrecipitationPerMonth = wrt

                        Exit Function

                    Else

                        TgD = TgD + rw1

                    End If

                End If

            Next tt

            PrecipitationPerMonth = ""

    Else

        PrecipitationPerMonth = "#WERT!"

    End If

End Function
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige