Speichern Datei als xlsx mit Makro Funktion

[Pikzero]

Hallo zusammen, ich habe leider keine Erfahrung mit Makros.

Ich bekomme von einem Programm eine Auswertung und wenn ich speichern unter gehe, muss ich jedes mal das Format auf xlsx ändern.
Der Name wird aus der Zeile A1 vorgegeben und ist auch in Ordnung.

Jetzt habe ich mit Makro aufzeichnen folgenden Makro erhalten:

Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+m
'
    ChDir "C:\Users\mal\Desktop\Übersicht"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\ma\Desktop\Übersicht\Ansicht104.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub


Mein Problem ist, dass sich der Name (Ansicht104) ändert und wenn ich STRG+M drücke,  er immer wieder die Datei unter Ansicht104 abspeichern möchte.

Excel soll einfach immer den Vorschlag nehmen oder den Titel aus der Zeile A1.

Wenn mir jemand die zwei Möglichkeiten  zeigen könnte, wäre das super!

VG

[Klaus-Dieter]

Hallo,

wenn da ein Makro drin ist, kannst du das nicht als *.xlsx abspeichern, dann geht das Makro verloren. Du musst *.xlsm wählen.

[Steffl]

Auch Hallo,

Code:

Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+m
'
    'Tabellennamen bitte anpassen!!!!!!!
    ChDir "C:\Users\pl\Desktop\KAs"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\ma\Desktop\Übersicht\" & _
        Worksheets("Tabellenname").Range("A1").Value & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

[Pikzero]

Kein Makro enthalten

---

Danke Dir!

[Pikzero]

Ich habe das jetzt so ähnlich zum Laufen gebracht aber war leider nicht abgespeichert und jetzt funktioniert das nicht mehr... 

Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+m
'
    ChDir "C:\Users\ma\Desktop\Übersicht"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\ma\Desktop\Übersicht\" & Range("A1").Value & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

[Steffl]

Hallo,

es fehlt das Worksheet

Code:

Sub Makro1()
'
' Makro1 Makro
'
' Tastenkombination: Strg+m
'
    ChDir "C:\Users\ma\Desktop\Übersicht"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\ma\Desktop\Übersicht\" & Worksheets("Tabellenname").Range("A1").Value & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

[Pikzero]

Ich bekomme immer folgenden Fehler: -> siehe Bild

Der Bereich wird gelb markiert:

ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\ma\Desktop\Übersicht\" & Worksheets("Tabellenname").Range("A1").Value & ".xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

[Case]

Hallo,  

hier - (Worksheets("Tabellenname")) - musst du innerhalb der Anführungszeichen den richtigen Tabellenblattnamen schreiben.