Hey Ho,

ich bin bisher relativ gut alleine durchs Suchen im Internet fündig geworden und hab jetzt aber folgendes Anliegen.

Ich würde gerne eine einmalige Abfrage (Speichern Unter) haben die dann den Speicherort und den generellen Namen festlegt. 
dh. der User kriegt die übliche Eingabemaske - gibt den Namen der Export Datei und wählt den Speicherort - fertig.

Aktuell kann ich leider nur einzelne Sheets nach dem Prinzip exportieren, hierbei ist es übrigens sehr wichtig dass das Format .txt strikt ist und keine andere Auswahl möglich ist, der aktuell funktionierende Code (leider nur einzelne Sheets):

Sub FinalExp_3()
    
   Sheets("Export-ShippingMark").Select
   Sheets("Export-ShippingMark").Copy
    Dim Name
    Name = Application.GetSaveAsFilename("Z:\Info Alle - Public\Semerang\Verpackung\Shipping_Design_App\Exports\" & "ShippingM_" & ".txt", fileFilter:="Text (Tabstopp-getrennt) (*.txt), *.txt")
    If Name <> False Then
        ActiveWorkbook.SaveAs Name, FileFormat:=xlText, CreateBackup:=False
            ActiveWorkbook.Close False
            Sheets("Eingabe").Select
    End If
    
    
End Sub