|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.03.2020 16:29:11 |
Sarah K. |
|
|
|
25.03.2020 16:38:01 |
UweD |
|
|
|
25.03.2020 17:13:30 |
Gast61007 |
|
|
|
25.03.2020 17:25:45 |
Gast46683 |
|
|
|
25.03.2020 17:27:15 |
Gast72763 |
|
|
|
25.03.2020 17:55:07 |
Sarah |
|
|
|
26.03.2020 08:18:34 |
UweD |
|
|
 Makro nachts automatisch ausführen lassen |
26.03.2020 09:17:39 |
Sarah |
|
|
|
26.03.2020 10:05:38 |
UweD |
|
|
Von:
Sarah |
Datum:
26.03.2020 09:17:39 |
Views:
761 |
Rating:
|
Antwort:
|
Thema:
Makro nachts automatisch ausführen lassen |
|
Public NextInst As Date
----
Public Sub StartAutocopy()
Autocopy
End Sub
---
Public Sub Autocopy()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim fso As Object
Dim Datei As Object
'Pfad
datPfad = "C:::::::::"
Set fso = CreateObject("Scripting.filesystemobject")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Datei In fso.getfolder(datPfad).Files
'Datei öffnen
Set wkb = Workbooks.Open(pfad & Datei, local:=True)
'Kopieren
wkb.Worksheets(1).Copy After: ThisWorkbook.Worksheets(3)
Application.DisplayAlerts = False
wkb.Close
Application.DisplayAlerts = True
Next Datei
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
'Soll alle 24 Stunden wiederholen
NextInst = NOW + TimeValue("12:00:00")
Application.OnTime NextInst, "Autocopy"
End Sub
---
Public Sub StopAutocopy()
On Error Resume Next
Application.OnTime NextInst, "Autocopy", , False
End Sub
Was mache ich denn falsch? Möchte dass der Code (Autocopy) alle 24 Stunden ausgeführt wird? Danke
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.03.2020 16:29:11 |
Sarah K. |
|
|
|
25.03.2020 16:38:01 |
UweD |
|
|
|
25.03.2020 17:13:30 |
Gast61007 |
|
|
|
25.03.2020 17:25:45 |
Gast46683 |
|
|
|
25.03.2020 17:27:15 |
Gast72763 |
|
|
|
25.03.2020 17:55:07 |
Sarah |
|
|
|
26.03.2020 08:18:34 |
UweD |
|
|
Makro nachts automatisch ausführen lassen |
26.03.2020 09:17:39 |
Sarah |
|
|
|
26.03.2020 10:05:38 |
UweD |
|
|