Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Nee er gibt den Pfad nicht vor.

Hallo Günther,
vielen Dank dafür.
Das hat soweit alles geklappt. Doch wenn ich jetzt auf den Button drücke steht nur das Datum. In der Muster.xls geht alles. Aber bezogen auf meine eigentliche Tabelle geht es nicht.

In meiner eigentlichen Tabelle sollen B4 (Datum) und B5 (Produkt) vorgegeben sein.
Ich habe da Datum schon nach vorne Verschoben.
Bei den zahlen dachte ich erst das ist der Bezug zu den Zellen z.B.

Format(Cells(4, 2)

4 Zeilen nach unten und 2 nach rechts. Aber das hat auch nicht geklappt diese zu ändern

Sub Speichern_unter_aufrufen()
   'Inhalte verschoben
End Sub

Private Sub CommandButton1_Click()
   Dim Dateiname As String
   
   'Dateiname aus 2 Zellen basteln
   Dateiname = Format(Cells(4, 2), "YYYY-MM-DD_") & Cells(3, 2)
   'Dateiname basteln - Jahr Monat Tag
   'Dateiname = Format(Date, "yyyy-mm-dd")
   
   'Dialog "Speichern unter" aufrufen und Dateinamen vorgeben
   Application.Dialogs(xlDialogSaveAs).Show Dateiname
End Sub

Ist das mit dem nach vorne setzen des Datums denn so korrekt?

Hallo zusammen, ich habe schon google gefragt doch finde nichts was zu meiner Sache passt.

Ich würde gerne ein Steuerelemnt auf einem Blatt einfügen auf dem steht "Speichern unter"
Klickt mann da drauf soll sich das Speichern unter Fenster öffnen und der Dateiname soll sich aus 2 bestimmten Zeilen (B3 und B4) zusmmen setzen.

ich finde einfach keine Lösung