Makro Datei speichern
14.01.2013 19:03:19
Willi
ich hab ein Problem mit einem Makro. Jahrelang hat es gut funktioniert, nur irgendwie gibts jetzt ein Problem.
Das Makro sieht folgendermaßen aus:
Sub Speichern()
' Speichern Makro
' Makro am 03.09.2007 aufgezeichnet
'Option Explicit
Const strPath As String = "C:\"
Dim strFile As String
strFile = Sheets("Preisliste").Range("G2")
ActiveWorkbook.SaveAs Filename:=strPath & strFile & Format(Date, "_ddmmyy") & ".xls"
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Es soll lediglich das Workbook auf C speichern und als Dateinamen einen Wert aus einem Feld und das aktuelle Datum übernehmen. Bei mir funktioniert das auch völlig einwandfrei. Meine Windows Version ist WIN 7 Ultimate, mein Office 2010 Pro. Datei wird im Kompatibilitätsmodus gespeichert als xls. Jetzt habe ich die Datei an einen Freund weiter gegeben. Er hat die exact gleichen Voraussetzungen. Bei ihm funktionieren alle anderen Makros aus der Datei einwandfrei. Nur der speichern Befehl führt zu einem "1004 Laufzeitfehler". Ich kann den Grund dafür nicht finden.
Ich dachte das C:/ bei jedem verfügbar ist.
Hat jemand eine Idee?
Gruß Willi