Makro jeden Montag ausführen, allerdings nur 1mal!
02.02.2015 09:48:27
Herman
wie im Titel beschrieben, muss beim öffnen einer Arbeitsmappe überprüft werden ob heute Montag ist, wenn ja, soll ein Makro aufgerufen werden. Allerdings soll dieses Makro nur beim erstmaligen öffnen am Montag ausgeführt werden und dann nicht mehr. Dies soll aber natürlich fortlaufend, jeden Montag so geschehen.
Da ich mich nicht als VBA-Profi bezeichnen würde, habe ich jetzt folgenden Code geschrieben. Würde dies so funktionieren, oder ist irgendwo ein Denkfehler drin?
Es wird zuerst überprüft ob heute Montag ist.
Wenn ja, wird überprüft ob in der Zelle P1 das heutige Datum drin steht (weil das Script ja nur 1 mal pro Montag ausgeführt werden soll)
Wenn ja, dann ist die Überprüfung damit beendet.
Wenn nicht, dann rufe das Makro "Copy" auf und schreibe in P1 das heutige Datum.
Bei einem ersten Testlauf hat es funktioniert. Da ich aber nächsten Montag nicht in der Firma bin, das Makro aber funktionieren muss, wollte ich euch VBA-Excel-Profis fragen, ob irgendwo ein Denkfehler drin ist oder der Code nach meinen Vorstellung funktionieren wird.
Danke
Private Sub Workbook_Open()
If Weekday(Now, vbMonday) = 1 Then
If Not Sheets("Archiv").Range("P1").Value = Date Then
Call Copy
Sheets("Archiv").Range("P1").Value = Date
End If
End If
End Sub