AW: Daten kopieren
06.03.2008 00:42:00
Daniel
Hi
der letzte Tag im Monat ist schwierig, denn wenn das zufällig ein Sonntag oder Samstag ist, wird niemand die Datei öffnen und dann passiert nichts.
du müsstest vielmehr beim Öffen der der Datei prüfen, ob der Aktuelle Monat grösser als der Monat der letzen Speicherung ist, und dann die Daten kopieren.
Dann hast du auch keine Probleme, wenn mal mehrere Tage über nen Monatswechsel nichts mit der Datei gemacht wird. Das Makro müsste halt laufen, bevor die Datenaktualsierung stattfindet.
der Code dazu könnte im Prinzip so aussehen, er müsste ins Modul "DieseArbeitsmappe" kopiert werden.
Private Sub Workbook_Open()
Dim Datum1 As Date
Dim Datum2 As Date
With ThisWorkbook.BuiltinDocumentProperties("Last save time")
Datum1 = DateSerial(Year(.Value), Month(.Value), 1)
Datum2 = DateSerial(Year(Date), Month(Date), 1)
End With
If Datum1
Wenn du aber so tief einsteigst, würde ich empfehlen, mal auf ne VBA-Schulung zu gehen, um dir die Grundkenntisse anzueignen. Die Basics nur aus dem Forum hier zu lernen, wird für beide Seiten anstrengend.
Gruß, Daniel