Hallo
Mit diesem Makro konnte ich mit Excel 2010 einer Datei, mit Daten aus einer Zelle, der ich den Namen “DatName“ gegeben habe, als Dateiname abspeichern.
Unter Datei speichern war der Dateiname gleich vorgegeben.
Mit Excel 2016 funktioniert das nicht mehr.
Könnt ihr mir bitte dabei weiterhelfen.
Gruß Wolfgang Virnich
Code:
Datei = ActiveSheet.Range("DatName")
Filter = "Excel Files (*.xlsm), *.xlsm"
speichern = Application.GetSaveAsFilename(Datei, Filter)
If speichern <> False Then
ActiveWorkbook.SaveAs Filename:=speichern, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If
Hallöchen,
mache mal aus Filter --> sFilter
Hallo Andre
vielen Danke für deine Hilfe.
sFilter hilft da auch nicht, die Zeile "Datename" bleibt leer
Gruß Wolfgang
Hallöchen,
die Zelle DatName wird ja auch nicht gefüllt, sondern da holst Du den Dateinamen raus. Und den musst Du schon rein schreiben. Du bekommst im Code jedoch ein Problem mit Filter, weil das Wort eine Funktion im VBA hat.
Hallo Andre
DatName steht für B39, und in der steht der Dateiname
=VERKETTEN(E1;"_"&TEXT(B21;"JJMMTT");"_";B13&"_";B8&"_";B10)
ich verstehe nicht, der Code läuft und funktioniert unter 2010, was ist denn bei 2016 anders?
Gruß Wolfgang
Hallo Wolfgang,
mit der Änderung sFilter läuft der bei mir auch in 2016. In einer Zelle DatName hab ich mal nur eine 1 reingeschrieben, was steht denn bei Dir?
Bist Du bei der Codeausführung auch auf dem richtigen Blatt?
… und wenn alles nix hilft stell ich auch noch die Frage, was eigentlich "Mit Excel 2016 funktioniert das nicht mehr." genau bedeutet.
Guten Morge Andre
Vielen Dank für dein Hilfe.
Mit dem Makro erreiche ich folgendes:
Dateiname soll vorgeschrieben sein.
Unter 2010
Befehl „Datei speichern unter“ geht das Fenster auf und in der Zeile „Dateiname:“ stand der Inhalt aus der Zelle den ich DatName genannt habe, das wurde dann der Dateiname.
Unter 2016 bleibt die Zeile „Dateiname:“ leer.
Gruß Wolfgang
Hallo Wolfgang,
so geht's bei mir unter Excel2016:
z.B. in A1 steht der Dateiname "Grillfestliste"
Die Zelle A1, hat den Namen DatName.
Code:
Sub DateiSpeichern()
Dim Datei As String
Dim Filter As String
Dim speichern As Variant
Datei = ActiveSheet.Range("DatName")
Filter = "Excel Files (*.xlsm), *.xlsm"
speichern = Application.GetSaveAsFilename(Datei, Filter)
If speichern <> False Then
ActiveWorkbook.SaveAs Filename:=speichern, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End If
End Sub
Hallo hddiesel
und vielen Dank für deine Mühe
Das Fenster "Speichern unter" geht auf, aber die Zeile bleibt leer?
Gruß Wolfgang