|
Hallo zusammen,
ich habe eine Problem mit einem Makro.
Es hat schon einmal funktioniert und ich bin total hilflos, warum es nun nicht mehr geht...
Der Code lautet:
Sub OrdnerErstellen()
Dim TWS As Worksheet
Set TWS = ThisWorkbook.ActiveSheet
With TWS
SaveNameFolder = Range("H7").Value
SaveNameFile = Range("H8").Value
Pfad = "\\ALLSTEIN1\Service\Kommissionen\"
ThisWorkbook.Save
If Dir(Pfad & SaveNameFolder, vbDirectory) <> "" Then
MsgBox "Ordner existiert bereits"
Else
MsgBox "Ordner wurde in Service\Kommissionen erstellt"
MkDir (Pfad & SaveNameFolder)
'Save Active Sheet(s) as Excel - hier bin ich noch nicht weiter gekommen
ActiveSheet.Copy
ActiveWorkbook.SaveAs Pfad & SaveNameFolder & "\" & SaveNameFile & ".xlsm"
'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat xlTypePDF, Pfad & SaveNameFolder & "\" & SaveNameFile & ".pdf"
End If
End With
Application.DisplayAlerts = True
End Sub
Und die Fehlermeldung die ich bekomme:
Diese Erweiterung kann nicht mit dem ausgewählten Dateityp verwenden werden.
Ändern Sie die Dateierweiterung in Textfeld "Dateiname", oder wählen sie inen anderen Dateityp aus indem Sie die Auswahl unter "Speichern unter" ändern.
Ich bin etwas ratlos, da ich irgendwie alles probiert habe, ich hab das xlsm durch xls ersetzt, unterschiedliche Dateinamen und auch einen lokalen Pfad probiert - nichts funktioniert.
Außerdem hat dieses Makro bereits einmal funktioniert - was natürlich eigentlich nicht geht, das weiß ich auch, aber was tun? Kann jemand von euch einen Fehler entdecken?
Danke für eure Unterstützung.
Viele Grüße
Stefanie
|