Hallo an alle Excel Profis,
ich habe mal eine Frage bezüglichs eines Laufzeitfehlers. Ich habe eine Excel Mappe die auf zwei Windows7 und auf einen Windows XP Rechner laufen. Funktioniert auch alles Prima.
Jetzt wollte ich die Excel Mappe auf einen anderen Windows7 Rechner ablegen und mit ihr Arbeiten. Jetzt bekomme ich aber lustiger weise einen Laufzeitfehler 5 Ungültiger Prozeduraufruf oder ungültiges Argument angezeigt.
Wie kann die Arbeits Mappe auf anderen Rechnern ohne Probleme laufen und bei den einen PC nicht?
Dieser Code wird jetzt Gelb Makiert
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Der obere Code stammt aus den unteren Kommpletten Code
'************************************************************************************
'Dialog für Speichern unter wird geöffnet und Datei wird als PDF Datei gespeichert *
'************************************************************************************
Dim pdfName As String
With Sheets("Tabelle1")
pdfName = Application.GetSaveAsFilename(Environ("C:\MJ\Angebote") & _
.Range("J6") & " " & .Range("R5") & ".pdf", "PDF-Dateien (*.pdf), *.pdf") 'Verzeichnis-Vorschlag und Speichername aus zelle wird aus J6 und R5 erstellt
End With
If pdfName = "Falsch" Then Exit Sub
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", _
"Tabelle4", "Tabelle5")).Select
Sheets("Tabelle1").Activate
ChDir "C:\MJ-Solar\Angebote" 'Verzeichnis Path Merken
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Tabelle1").Select
könnte jemand von den Excel Profis bitte mal rüberschauen?
Ich Danke und verbleibe mit freundlichen Gruß
Andreas