Problem bei Start mit Aufgabenplanung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Workbook_Open() If Dir(ThisWorkbook.Path & "\automatisch.txt") = "" Then MsgBox "händisch gestartet" Else Kill ThisWorkbook.Path & "\automatisch.txt" MsgBox "via .BAT gestartet" End If End Sub

Private Sub Workbook_Open() If Dir(ThisWorkbook.Path & "\automatisch.txt") = "" Then MsgBox "händisch gestartet" Else Kill ThisWorkbook.Path & "\automatisch.txt" MsgBox "via .BAT gestartet" End If End Sub

Hi
das verwirrt mich jetzt aber etwas.
ich dachte du arbeitest schon mit der Aufgabenplanung.
aber wenn ich dich richtig verstehe, dann ist die eigentliche Aufgabenschtellung eine etwas andere.
du möchtest, dass wenn du die Datei im neuen Monat das erste mal öffnest, ein bestimmtes Makro läuft bevor du anfängst zu arbeiten. Später soll das Makro nicht mehr ausgeführt werden, sodern erst wieder im neuen Monat.
das lässt sich einfach realiseren:
suche dir auf einer Tabelle eine freie Zelle z.B. Tabelle1!A1
in diese Zelle schreib dein Makro, wenn es ausgeführt wird, das aktuelle Datum:

Tabelle1.Range("A1").Value = Now

Im WorkbookOpen-Event fragst du dann einfach den Monat dieses Datums ab und vergleichst ihn mit dem aktuellen Monat. Unterscheiden sie sich, führst du das Makro aus:

If Month(Tabelle1.Range("A1").Value)  Month(Date) Then Call DeinMakro

Gruß Daniel

und noch ne Idee:
Im Workbook_Open-Event startest du das Makro über application.Ontime mit einer verzögerung von 30 sekunden. Die Startzeit merkst du dir in einer Projektweit gültigen Variablen
(muss in einem allgemeinen Modul mit Public oberhalb der Makros deklariert werden)
dann startets du ebenfalls über Application.OnTime eine weitere Userform mit einem OK-Button.
bei Klick auf den OK-Button rufst du dann das Application.Ontime für das Makro zurück, so daß es nicht ausgeführt wird und startest die eigentliche Userform.
sieht als Code so aus:
im Modul DieseArbeitsmappe:

Private Sub Workbook_Open()
StartZeit = Now + TimeSerial(0, 0, 30)
Application.OnTime StartZeit, "DeinMakro"
Application.OnTime Now, "UserForm1Zeigen"
End Sub

im Modul 1

Option Explicit
Public StartZeit As Date
Sub UserForm1Zeigen()
UserForm1.Show 0
End Sub
Sub DeinMakro()
Unload UserForm1
'...hier dein Code
ThisWorkbook.Save
ThisWorkbook.Close
End Sub

in der Userform1

Private Sub CommandButton1_Click()
Application.OnTime StartZeit, "DeinMakro", schedule:=False
Unload Me
UserForm2.Show
End Sub

du musst dann innerhalb von 30 Sekunden (oder je nachdem) bestätigen, dass du die Datei manuell geöffnet hast, ansonsten wird das Makro ausgeführt und die Datei geschlossen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Problem bei Start mit Aufgabenplanung

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem bei Start mit Aufgabenplanung

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread