17.11.2015, 15:39
So:
Zusätzlich in DieseArbeitsmappe:
Microsoft Excel Objekt DieseArbeitsmappe
Datei überarbeitet, jetzt darfst Du öffnen.
Gruß Ralf
Zusätzlich in DieseArbeitsmappe:
Microsoft Excel Objekt DieseArbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime StartTime, "Rechnen", , False
On Error GoTo 0
End Sub
Private Sub Workbook_Open()
Tabelle1.Activate
Call Rechnen
End Sub
Datei überarbeitet, jetzt darfst Du öffnen.
Gruß Ralf