Speichern unter
06.07.2015 20:20:14
Tommy241
Ich benutze ein Makro welches per Button die Excel Mappe Speichert.
Es soll die Mappe (Excel-Vorlage mit Makros) (xltm) in eine Mappe ohne Makros speichern. Den Namen der zuspeichernden Tabbel entnimmt er aus der Zelle G6.
Jetzt zum Problem:
1. Wenn ich im Laufwerk D: einen Ornder anwähle speichert er diesen nicht in diesem
Ordner sonder einfach unter D:
2. Wenn ich die Datei öffne, bekomme ich folgende Fehler bzw. Information angezeigt:
"Sie versuchen eine Datei zu öffnen.....deren Format von dem in der Dateierweiterung angegebenen abweicht...."
Was ist an dem Makro falsch?
Dieses Makro nutze ich:
Sub Schaltfläche2_Klicken()
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.ButtonName = "Speichern unter"
.InitialFileName = "D:\"
.Title = "Ordner auswählen"
.Show
If .SelectedItems.Count = 1 Then _
ActiveWorkbook.SaveAs Range("G6").Value & ".xls"
End With
End Sub