Office: (Office 2010) Fehler beim Kompilieren nach Systemwechsel

moses64 · 30. Mai 2015

Hallo an alle,

Nach einem Systemwechsel von XP auf W7 kommt es beim Ausführen von einem CommandButton zu einem Kompilierungsfehler in der Zeile:
.Sheets(1).Name = "Wochenarbeitszeit KW " & Format(varAntwort, "00")
Bei den Verweisen hab ich keinen Fehler gefunden

Danke schon mal für die Hilfe und

bis später

Code:

Private Sub CommandButton1_Click()

On Error Resume Next

Dim strMsg As String
Dim varAntwort
Dim Speicherpfad As String
Dim WS As Worksheet
Dim WB_neu As Workbook

Set WS = ThisWorkbook.Sheets("Vorlage")
Speicherpfad = "D:\MTGP\Wochenberichte und Serviceabrechnungen\aktuelle Berichte"
strMsg = "Für welche KW soll der Bericht erstellt werden?"

GoSub Eingabe
Prüfung:
If varAntwort < 1 Or varAntwort > 52 Then
strMsg = "Die Eingabe wahr ungültig." & vbLf & vbLf _
& "Für welche KW soll der Bericht erstellt werden?"
GoSub Eingabe
End If

If varAntwort "" Then
Err.Clear
Application.ScreenUpdating = False
With WS
.Visible = xlSheetVisible
.Copy
Set WB_neu = ActiveWorkbook
.Visible = xlSheetVeryHidden
End With

With WB_neu
.Sheets(1).Name = "Wochenarbeitszeit KW " & Format(varAntwort, "00")
.Sheets(1).Range("B4") = Format(varAntwort, "00")
.Sheets(1).Tab.ColorIndex = 46
.Sheets(1).Activate
End With

WB_neu.SaveAs Filename:=Speicherpfad & "\" & "KW " & Format(varAntwort, "00") & " Stunden und Montagebericht" & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Set WB_neu = Nothing
Set WS = Nothing
If Err.Number > 0 Then
strMsg = "Die Vorlage wurde nicht gefunden."
GoSub Fehler1
Else
ActiveSheet.Name = "Wochenarbeitszeit KW " & Format(CInt(varAntwort), "00")
If Err.Number > 0 Then
strMsg = "Das Tabellenblatt 'KW " & Format(CInt(varAntwort), "00") & "' ist bereits vorhanden."
GoSub Fehler2
End If
Application.Workbooks("Vorlage Wochenbericht.xlsm").Close False
ThisWorkbook.Save
End If

End If

Exit Sub

Eingabe:

varAntwort = InputBox(strMsg)
GoTo Prüfung
Return

Fehler1:

MsgBox strMsg
Err.Clear

Return

Fehler2:

MsgBox strMsg & Format(CInt(varAntwort), "00") _
& vbLf & "Das Programm wird beendet.", vbCritical + vbOKOnly, "Abbruch"

Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

Return

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Hajo_Zi · 31. Mai 2015

Du hast nicht zufällig ein Makro mit dem Namen "Format"

Luschi · 1. Juni 2015

Hallo moses64,

in diesem Fall dürfte
Dim pdfjob As PDFCreator.clsPDFCreator
eine Ursache sein; denn dieser Verweis fehlt total.
Sollte es dann nach dem Hinzufügen trotzdem weiter zu diesem Fehler kommen, dann hat die Arbeitsmappe wahrscheinlich einen schleichenden Plattfuß. Dem kann man noch eine Weile durch 'Vba.Format(...)' begegnen, aber bald wird es dann total kritisch, daß ein Neuaufbau der AM erforderlich wird.
Auch kann dann immer noch Hajo's Hinweis richtig sein.

Gruß von Luschi
aus klein-Paris

moses64 · 1. Juni 2015

nein, habe ich nicht

moses64 · 1. Juni 2015

danke luschi, das war der Fehler

super und bis zum nächsten Problem ;-)

Office: (Office 2010) Fehler beim Kompilieren nach Systemwechsel

Fehler beim Kompilieren nach Systemwechsel

Fehler beim Kompilieren nach Systemwechsel

Fehler beim Kompilieren nach Systemwechsel

Fehler beim Kompilieren nach Systemwechsel - Similar Threads - Fehler Kompilieren Systemwechsel

VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)

Warum Fehler beim Kompilieren (VBA)???

Fehler beim kompilieren sub oder Function nicht definiert

Fehler beim Kompilieren

Fehler beim Kompilieren: Mehrdeutiger Name

Kontrollkästchen haken wird nicht gesetzt bzw fehlermeldung "fehler beim kompilieren"

VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)