Speichern unter

Bild

Betrifft: Speichern unter
von: Tommy241
Geschrieben am: 06.07.2015 20:20:14

Hallo
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

Bild

Betrifft: AW: Speichern unter
von: Sepp
Geschrieben am: 06.07.2015 20:42:14
Hallo Tommy,
du hast erstens nicht den ausgewählten Ordner übernommen, zweitens musst du das Dateiformat angeben und drittens solltest du das entsprechende Tabellenblatt angeben, in dem sich der Dateiname befindet.

Sub Schaltfläche2_Klicken()
  Dim strPath As String
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    .AllowMultiSelect = False
    .ButtonName = "Speichern unter"
    .InitialFileName = "D:\"
    .Title = "Ordner auswählen"
    If .Show = -1 Then strPath = .SelectedItems(1)
    If Len(strPath) Then
      With ActiveWorkbook
        strPath = strPath & "\" & .Sheets("Tabelle1").Range("G6").Text & ".xls"
        .SaveAs Filename:=strPath, FileFormat:=xlWorkbookNormal
      End With
    End If
  End With
End Sub


Gruß Sepp


Bild

Betrifft: AW: Speichern unter
von: Tommy241
Geschrieben am: 07.07.2015 16:25:51
Danke, klappt wunderbar.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Speichern unter"