Makro nicht vor 6:00 Uhr
30.09.2022 19:46:28
Bernd_hat
Ist es möglich bei einem Makro was über einen Button gestartet wird etwas einzubauen damit es nie vor 6:00 Uhr Morgens ausgelöst werden kann ?
Leider habe ich keine Ahnung von VBA - Habe einen Haufen Dateien von einem entlassenen Kollegen geerbt und muss nun sehen wie ich klar komme.
Es handelt sich dabei um dieses Makro:
Sub textdatei_senden()
Dim f As Integer
Dim c As Variant
Dim DateiName As String
f = FreeFile
DateiName = "XXXXXXXXXXXXXXXXXXXXXXXXXX"
On Error GoTo Fehler
If Dir(DateiName) "" Then '*
Open DateiName For Append As f '*
Print #f, vbCrLf '*
Print #f, Format(Now, "dd.mm.yyyy hh:mm:ss") '*
Else '*
Open DateiName For Output As f
End If '*
For Each c In Worksheets("Tabelle1").Range("D36:K41")
Print #f, c
Next
Fehler:
If Err.Number 0 Then
MsgBox Err.Description, vbCritical + vbOKOnly, "Fehler:" & Err.Number
Err.Clear
End If
Close f
On Error GoTo 0
End Sub
Danke und Gruß Bernd