Excel stürzt regelmäßig ab.
14.10.2024 10:56:24
xcom
wie schon erwähnt, Excel stürzt regelmäßig ab. Ich kann gar nicht sagen ab welchem Schritt das passiert. Irgendwann lässt sich das nicht mehr abspeichern und schmiert ab. Wenn man das Modul einsehen will kommt eine Fehlermeldung: Fehler beim Laden einer DLL
Es sind zwei Module eingefügt, eins damit sich dass nach 9 Minuten schließt und abspeichert und eins kopiert ein paar Zeilen im Bezug auf das Datum von einer Tabelle auf die andere. Für mich ist das nur Bahnhof, aber irgendwie habe ich das mit Hilfe dieses Forums hinbekommen, vielleicht klappt es auch diesmal.
Modul1:
Option Explicit
Public dteCloseTime As Date, blnCloseNow As Boolean
Public Sub DoClose()
Dim strMsg As String
If blnCloseNow = False Then
blnCloseNow = True
dteCloseTime = Now + TimeSerial(0, 9, 0)
Application.OnTime dteCloseTime, "DoClose"
Else
If Workbooks.Count = 1 Then
If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
Application.Quit
Else
ThisWorkbook.Close True
End If
End If
End Sub
>
Modul2:
Sub Tagesplan_einfügen()
Application.Goto Reference:="Tageseinsatz"
Application.CutCopyMode = False
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.ClearContents
Dim Wochentag As String
Wochentag = WeekdayName(Weekday(Tabelle2.Cells(23, 2).Value, vbMonday))
Tabelle5.Range(Wochentag).Copy
Range("D23").Select
ActiveSheet.Paste
End Sub
>
Arbeitmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime dteCloseTime, "DoClose", , False
End Sub
Private Sub Workbook_Open()
dteCloseTime = Now + TimeSerial(0, 9, 0)
Application.OnTime dteCloseTime, "DoClose"
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime dteCloseTime, "DoClose", , False
dteCloseTime = Now + TimeSerial(0, 9, 0)
blnCloseNow = False
Application.OnTime dteCloseTime, "DoClose"
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
On Error Resume Next
Application.OnTime dteCloseTime, "DoClose", , False
dteCloseTime = Now + TimeSerial(0, 9, 0)
blnCloseNow = False
Application.OnTime dteCloseTime, "DoClose"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime dteCloseTime, "DoClose", , False
dteCloseTime = Now + TimeSerial(0, 9, 0)
blnCloseNow = False
Application.OnTime dteCloseTime, "DoClose"
End Sub>
Tabelle2
Private Sub Worksheet_Activate()
Call Tagesplan_einfügen
End Sub
>
Anzeige