08.12.2017, 12:10
Hallo an Alle,
in einer Excel Datei werden bestimmte Daten aktualisiert, wenn die Datei geöffnet wird. Wie könnte man dieses VBA einmal am Tag (z.B. um 23:55 Uhr) automatisch laufen lassen? Der Rechner ist immer an und die Datei immer offen.
Vielen herzlichen Dank :)
Peter
(Diese Arbeitsmappe)
Private Sub Workbook_Open()
Dim dblSpalte As Double
Dim dteDatum As Date
Dim intZeile As Integer
dblSpalte = WorksheetFunction.Match(Worksheets("Monat").Range("L4"), Worksheets("Monat").Range("M4:AQ4"), 0) + 12
On Error GoTo Fehler
With Worksheets("Monat")
If .ProtectContents = True Then .Unprotect "Passwort"
For intZeile = 6 To 218
.Cells(intZeile, dblSpalte) = .Cells(intZeile, "K")
Next intZeile
.Protect "Passwort"
End With
MsgBox "Daten wurden aktualisiert!"
Exit Sub
Fehler:
Worksheets("Monat").Protect "Passwort"
MsgBox "Bei der Aktualisierung ist ein Fehler aufgetreten!"
End Sub
End Sub
in einer Excel Datei werden bestimmte Daten aktualisiert, wenn die Datei geöffnet wird. Wie könnte man dieses VBA einmal am Tag (z.B. um 23:55 Uhr) automatisch laufen lassen? Der Rechner ist immer an und die Datei immer offen.
Vielen herzlichen Dank :)
Peter
(Diese Arbeitsmappe)
Private Sub Workbook_Open()
Dim dblSpalte As Double
Dim dteDatum As Date
Dim intZeile As Integer
dblSpalte = WorksheetFunction.Match(Worksheets("Monat").Range("L4"), Worksheets("Monat").Range("M4:AQ4"), 0) + 12
On Error GoTo Fehler
With Worksheets("Monat")
If .ProtectContents = True Then .Unprotect "Passwort"
For intZeile = 6 To 218
.Cells(intZeile, dblSpalte) = .Cells(intZeile, "K")
Next intZeile
.Protect "Passwort"
End With
MsgBox "Daten wurden aktualisiert!"
Exit Sub
Fehler:
Worksheets("Monat").Protect "Passwort"
MsgBox "Bei der Aktualisierung ist ein Fehler aufgetreten!"
End Sub
End Sub