Makro läuft in Schleife bis zum Absturz

Hallo
Wieder einmal lande ich mit einem Problem, bei dem ich nicht weiter komme in diesem Forum.
Vermutlich wurde diese oder eine ähnliche Lösung schon genannt, ich konnte aber auch nach langer Suche nichts finden.
Mein VBA Code ist zusammengestückelt und abgeändert (alles aus diesem Forum - danke). Vermutlich nicht sehr elegant, aber es läuft irgendwie...
Das Makro, kopiert die Zellen "A13:G19" aus Tabelle 1 und fügt diese in Tabelle 2 ein (erste frei Zeile). Das funktioniert so lang ich das Datum in A3 manuell ändere.
Das Makro soll aber bei Monatswechsel automatisch ausgeführt werden. Sobald ich =heute() zur Automatisierung als Datum nehme, schreibt es die zu kopierenden Zellen endlos in Tabelle 2, bis Excel automatisch schliesst.
- Ich habe ein Calculate() und nicht ein Change() Ereignis gewählt, damit es bei Änderung (ohne zu klicken) automatisch läuft.
- Die daten in ("A13:G19" aus Tabelle 1) nach dem Ereignis nicht gelöscht werden, die bleiben immer gleich.
Frage:
Wie kann ich das Makro nach einmaligem Kopieren stoppen / beenden?
Eine Musterdatei hier:
https://www.herber.de/bbs/user/138023.xlsm
Danke für die Hilfe
Grüsse Reto

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

... habe vergessen den Beitrag als "noch nicht beantwortet / noch offen" zu kennzeichnen ...
Hallo Onur
Danke fürs einbringen.
Ich denke die Lösung von Hajo funktioniert, wenn ich es denn begreifen würde
Das Makro soll folgendes tun:
Wenn der Monat wechselt soll es automatisch ohne in eine Zelle oder auf einen Button zu klicken die Zellen ("A13:G19" aus Tabelle 1) kopieren und in die erste leere Zeile in Tabelle zwei einfügen.
Das soll es an jedem Monatsende tun. Das nächste Mal also am 30.6.20
Ob ein paar Stunden vor Monatsende oder ein paar Stunden danach spielt keine Rolle (30.6. oder 1.7.)
Das alles sollte automatisch laufen, wenn ich =heute() in A3 eintrage. Aber damit hängt sich das Makro auf
In Zelle A3 steht das aktuelle Datum. Solange es nicht mit =heute() generiert wird, funktioniert das Ganze.
In Zelle A2 wird das Ende des Monats ermittelt. Bezieht sich auf A3
In Zelle A1 schreibt das Makro das Datum wann es ausgeführt wurde, damit es nur einmal pro Monat läuft. Das funktioniert aber auch nur solange das Datum keine Formel ist.
Aufgrund der Formel habe ich ein Calculate() und kein Chance() Ereignis umgeschrieben.
Danke für die Hilfe
Grüsse Reto

Beliebteste Forumthreads (12 Monate)

Makro läuft in Schleife bis zum Absturz

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread