04.04.2022, 11:40
Hallo zusammen,
ich habe ein Problem: sämtliche Makros werden nicht ausgeführt wenn man aktiv in einer Zelle ist und dgerade etwas reinschreibt (der Curser blinkt dann).
Habe beispielsweise per VBA bestimmt dass sich die Datei nach 1min automatisch schliesst (viele Kollegen greifen auf diesselbe Tabelle zu).
Oder ich habe eingebaut dass alle 10sek gespeichert werden soll:
Arbeitsblatt:
Option Explicit
Private Sub Workbook_Open()
Call AutoSpeichernEinschalten
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call AutoSpeichernAusschalten
End Sub
Modul:
Option Explicit
Dim ZeitZuSpeichern As Date
Sub Speichern()
ThisWorkbook.Save
Call AutoSpeichernEinschalten
End Sub
Sub AutoSpeichernEinschalten()
ZeitZuSpeichern = Now + TimeSerial(0, 0, 10) 'hier Intervall einstellen (h, m, s)
Application.OnTime ZeitZuSpeichern, "Speichern"
End Sub
Sub AutoSpeichernAusschalten()
On Error Resume Next
Application.OnTime ZeitZuSpeichern, "Speichern", , False
End Sub
Auch dieses wird nicht ausgeführt wenn man aktiv in einer Zelle ist und gerade reinschreibt. Könnt ihr mir helfen?
Danke Euch!
ich habe ein Problem: sämtliche Makros werden nicht ausgeführt wenn man aktiv in einer Zelle ist und dgerade etwas reinschreibt (der Curser blinkt dann).
Habe beispielsweise per VBA bestimmt dass sich die Datei nach 1min automatisch schliesst (viele Kollegen greifen auf diesselbe Tabelle zu).
Oder ich habe eingebaut dass alle 10sek gespeichert werden soll:
Arbeitsblatt:
Option Explicit
Private Sub Workbook_Open()
Call AutoSpeichernEinschalten
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call AutoSpeichernAusschalten
End Sub
Modul:
Option Explicit
Dim ZeitZuSpeichern As Date
Sub Speichern()
ThisWorkbook.Save
Call AutoSpeichernEinschalten
End Sub
Sub AutoSpeichernEinschalten()
ZeitZuSpeichern = Now + TimeSerial(0, 0, 10) 'hier Intervall einstellen (h, m, s)
Application.OnTime ZeitZuSpeichern, "Speichern"
End Sub
Sub AutoSpeichernAusschalten()
On Error Resume Next
Application.OnTime ZeitZuSpeichern, "Speichern", , False
End Sub
Auch dieses wird nicht ausgeführt wenn man aktiv in einer Zelle ist und gerade reinschreibt. Könnt ihr mir helfen?
Danke Euch!