Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 1004
13.08.2018 14:26:39 Stefanie
Solved
13.08.2018 17:02:17 Gast54651
NotSolved

Ansicht des Beitrags:
Von:
Stefanie
Datum:
13.08.2018 14:26:39
Views:
577
Rating: Antwort:
 Nein
Thema:
Laufzeitfehler 1004

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

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler 1004
13.08.2018 14:26:39 Stefanie
Solved
13.08.2018 17:02:17 Gast54651
NotSolved