Code funktioniert nicht unter Win8
23.11.2013 08:58:21
Thomas
Ich bin auf Win8 gezwungener maßen umgestiegen und nun funktioniert mein Abrechnungsprogramm für Miete und NK nicht mehr. Über rechte Maus (Kontextmenü) rufe ich zb. das ich die Tabelle als PDF Speichen möchte. So weit so gut. Es wird gefragt ob ich die Tabelle Speichern möchte und ich klicke auf ja dann kommt die Fehlermeldung "Ungültiger Prozeduraufruf oder ungültiges Argument".
Es wird mir nichts angezeigt wo der Fehler liegt daher bin ich an meiner Grenze.
~Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
'
Private Sub CommandButton2_Click()
Sub Pdf()
Dim ArrDruck() As String
Dim Spstg As String, strFilename
Dim i As Integer
Dim Range As Long
'Sheets("Brief").Range("B28") = InputBox("Bitte Hinweistext eingeben", _
"Hinweis!", , 0)
ArrDruck = Split("Rechnung,Brief,Anpassung_NK,Mahnung", ",")
For i = 0 To UBound(ArrDruck)
With ThisWorkbook.Sheets(ArrDruck(i))
'.PrintOut copies:=0
If .Name = "Rechnung" Or .Name = "Brief" Or .Name = "Anpassung_NK" Or .Name = "Mahnung" _
Then
If .Name = "Rechnung" Then
Spstg = "I:\Benutzer\Das ist mein\Documents\Miete und NK\" 'Users
ElseIf .Name = "Brief, Anpassung_NK" Then
Spstg = "I:\Benutzer\Das ist mein\Documents\Miete und NK\Post\"
Else
Spstg = "I:\Benutzer\Das ist mein\Documents\Miete und NK\Mahnungen\"
End If
'Blatt ggf. als PDF-Datei speichern und anzeigen
If MsgBox(Prompt:="Blatt """ & .Name & """ als PDF-Datei exportieren?", _
Buttons:=vbQuestion + vbYesNo, Title:="PDF-Datei erstellen") = vbYes Then
strFilename = Spstg & ActiveSheet.Range("L1") & "\" & ActiveSheet.Range("B4") & "_" & _
_
ActiveSheet.Range("B5").Text & "-" & Format(Now, "YYYY-MM-DD hh-mm-ss") & " " & . _
Name & " PDF.pdf"
If MakeSureDirectoryPathExists(strFilename) 0 Then
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strFilename, Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False 'True zum Anzeigen und False zum _
nicht Anzeigen der PDF
Else
MsgBox "Verzeichnis konnte nicht erstellt werden!", vbExclamation, "Hinweis"
End If
End If
End If
End With
Next
'Sheets("Brief").Range("B28").ClearContents
End Sub
~Ich hoffe es kann mir da jemand helfen, vielen Dank im voraus.
Gruß Thomas