Sequenz mit Zeitverzögerung

Hallo Zusammen,

in der Zelle A2 ist eine Dropdown Auswahl mit den Jahreszahlen wie 2023, 2024 usw. Ab der Zelle I3 beginnt eine Sequenz, um abhängig von der aktuellen Jahreszahl, das Datum und in der Zelle darunter den dazugehörigen Wochentag zu ermitteln. Dies nutze ich um eine Urlaubsplanung zu erstellen.
Wenn nun der User die Jahreszahl ändert, wird auch ein Makro gestartet, welches die Urlaubstage in ein separates Blatt speichert. Nun ist so, dass wenn der User die Jahreszahl ändert, die Sequenz so schnell auslöst, dass das Makro natürlich die neuen Daten verwendet, da ja bereits durch die Sequenz die neuen Tage drin stehen.
Also zum Beispiel: Der 10.12.2024 ist ein Montag, aktuelle Jahreszahl 2024. Nun ändert der User auf 2023, dann speichert das Makro den 10.12.2023 ab, ist aber ein Sonntag.
Nun die Frage: Wie kriege ich es hin, dass ich bei der Sequenz eine Zeitverzögerung drin habe, damit das Makro Zeit hat, die Urlaubstage abzuspeichern?
Für das jeweilige Datum schaut die Sequenz in der Zelle wie folgt aus:
=SEQUENZ(;DATUM($A$2;12;31)-DATUM($A$2;1;1)+1;DATUM($A$2;1;1))
Danke für eure Hilfe.
Vielen Dank.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi

Warten hilft da nichts, das dauert nur länger, ändert aber nicht am Ablauf.
Wenn du hier über das Change-Eventmakro gehst, dann ist die Reihenfolge festgelegt:
1. Zellwert ändert sich
2. Abhängige Formen werden neu berechnet
3. Change-Makro wird ausgeführt.

Mögliche ansätze um das Problem zu lösen wären folgende:

a) automatisch Neuberechnung aus
Du stellst um auf manuelle Neuberechnung der Formeln. Wenn der Zellwert geändert wird, bleiben die abhängigen Formeln auf dem alten Stand, du könntest jetzt die Einträge kopieren und danach erst die Formeln aktualisieren (application.Calculate)
Hier solltest du aber prüfen, ab das nicht unerwünschte Auswirkungen auf die sonstige Funktion deiner Datei hat.

b) Eingabe rückgangig machen
Du sichert die aktuelle Jahreszahl in einer Variablen und führst den Befehl Application.Undo aus. Damit hast du wieder den vorherigen Stand und kannst die Eingaben kopieren. Danach schreibst dann wieder das gespeicherte Jahr in die Zelle.
Dass du hier Application.EnableEvents gekonnt einsetzten musst, sollte klar sein.

c) Combobox statt Eingabeüberprüfung
Lass den Anwender die Jahresauswahl in einer ActiveX-Combobox machen und führe das Makro in deren Click-Event aus.
Dann kannst du im Code zuerst die Urlaubsplanung kopieren, bevor du das neue Jahr in die entsprechende Zelle schreibst.

Gruß Daniel

dim Speicher as Variant If Target.Address(0, 0) = "C3" Then Speicher = Target.Value Application.EnableEvents = false Application.Undo ... hier der Code zum kopieren und sichern der Urlaubsplanung ... Target.Value = Speicher Application.EnableEvents = True end if

Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Application If Target.Address(0, 0) = "C3" Then .Calculation = xlCalculationManual Else If .Calculation > xlCalculationAutomatic Then .Calculation = xlCalculationAutomatic End If End With End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sequenz mit Zeitverzögerung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread