Hallo an alle!
Bislang konnte ich automatisiert ein Excelfils an einem bestimmten Ort speichern.
Das geht seit heute überraschend nicht mehr.
Das File ist eine Vorlage mit Macro: .xltm
Der Speicherort steht unter im File: i1
Der Speichername wird durch die Felder: F9, B1 und B17 festgelegt
Der Filename sieht dann so aus: XY1-123-456
Der Speichertyp des Files ist .xlsx
Das ist das Makro:
Sub Speichen()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("I1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in I1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
Exit Sub
Else
If Right(lw_pfad, 1) > "\" Then lw_pfad = lw_pfad & "\"
ActiveSheet.Range("I1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("F9").Value & Range("B1").Value & Range("B17").Value & ".xlsx"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("F9").Value & ActiveSheet.Range("B1").Value & ActiveSheet.Range("B17").Value & ".xlsx gespeichert.", , "OK"
End If
End Sub

Der Angezeigte Fehler sagt: Die Methode ‚SaveAs‘ für das Objekt ‚_Workbook‘ ist fehlgeschlagen
Im Debugg Modus wird die 4. Zeile von unten gelb markiert
Das hat bislang gut funktioniert, was am Wochenende passiert ist, dass das so nicht mehr geht ist unklar?!
Vielleicht habt ihr eine Idee was sein könnte.
Danke & Gruß
DocKo