Hallo zusammen,
seit kurzem habe ich an einem PC einen Kompilierungsfehler in einem Modul.
Text:
Dieser Fehler tritt normalerweise auf, wenn Code mit der Version oder Architektur dieser Anwendung nicht kompatibel ist (z. B. bei Code in einem Dokument, der auf Microsoft Office-Anwendungen mit 32 Bit ausgerichtet ist und mit dem versucht wird, Office 64 Bit auszuführen).
Excel kann den Projekt- oder Bibliotheksfehler nicht finden.
Der Fehler soll wohl im Code AutoClose stecken
angezeigter Fehler wäre: Format
Option Explicit
Public Const ciIntervall As Integer = 1
Public Const dsMacro As String = "AutoClose"
Public gdNextTime As Double
Private iWait As Integer
Const cMax = 120
Public bolAutoClose As Boolean
Dim Zeit As Date
Sub AutoClose()
iWait = iWait + 1
If cMax - iWait > 0 Then
Application.StatusBar = Format(Zeit - TimeSerial(0, 0, iWait), "hh:mm:ss")
gdNextTime = Now + TimeSerial(0, 0, ciIntervall)
Application.OnTime gdNextTime, dsMacro
Else
Application.WindowState = xlMinimized
Application.DisplayFullScreen = False
bolAutoClose = True
Call DateiCloseAktionen
ThisWorkbook.Close SaveChanges:=True
End If
End Sub
Hat jemand eine Idee was ich dort abändern muß?
Warum tritt der Fehler nur an einem Rechner auf drei andere laufen einwandfrei?
Vielen Dank und Gruß
Erik