Speichern unter VBA mit Bezug auf eine Zeile und Button

[Stevensplash]

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

[gmg-cc]

Moin,

nun ja, dazu gibt es mehr als reichlich Fundstellen bei Mr. Goo  . Aber zugegeben, die Frage ist schwer Goo-gerecht zu formulieren. - Da ein Forum prinzipiell Hilfe zur Selbsthilfe sein soll: Erstelle erst einmal eine Muster-Datei mit einem Button und stelle diese hier als *.xls* zur Verfügung. Dann ist es für uns (normalerweise) auch kein riesiger Aufwand, den Rest zu machen.

[Stevensplash]

Da ist Sie.
Das Makro ist schon drin. bekomme es aber nicht mit dem Button verknüpft und der Dateiname passt auch nicht

[gmg-cc]

Moin,

also: Im Entwurfs-Modus (Entwicklertools) ein Doppelklick auf die Schaltfläche und es wird automatisch der Rumpf der passenden Prozedur erstellt. Dort verschiebst du dann den Inhalt des bisherigen Makros hinein.

In Sachen Dateinamen habe ich deinen Code etwas auskommentiert und durch dein Ziel ersetzt.

Code: [Auswählen]

Sub Speichern_unter_aufrufen()
   'Inhalte verschoben
End Sub

Private Sub CommandButton1_Click()
   Dim Dateiname As String
   
   'Dateiname aus 2 Zellen basteln
   Dateiname = Cells(3, 2) & Format(Cells(4, 2), "_YYYY-MM-DD")
   '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

[Stevensplash]

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

Code: [Auswählen]

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?

[Stevensplash]

Habe gerade mal ein bisschen rumgespielt. Es hat doch was damit zu tun. Keine Ahnung warum er mir da vorher nichts angezeigt hat. Jetzt habe ich alles so wie ich es brauche.

um was muss ich ergänzen wenn ich einen bestimmten Pfad angeben möchte?

Code: [Auswählen]

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_") & "Gagenverteilung_" & Cells(5, 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

Das ist der jetzige Code

[maninweb]

Hallo,

versuche es mal so...

Code: Visual Basic

1. Private Sub CommandButton1_Click()
2.    Dim Dateiname As String
3.    Dim Pfad As String
4.  
5.   'Dateiname aus 2 Zellen basteln
6.   Dateiname = Format(Cells(4, 2), "YYYY-MM-DD_") & "Gagenverteilung_" & Cells(5, 2)
7.   'Dateiname basteln - Jahr Monat Tag
8.  'Dateiname = Format(Date, "yyyy-mm-dd")
9.  
10.    Pfad = "C:\Hallo Welt\"
11.   'Dialog "Speichern unter" aufrufen und Dateinamen vorgeben
12.   Application.Dialogs(xlDialogSaveAs).Show Pfad & Dateiname
13. End Sub

Gruß

[Stevensplash]

Nee er gibt den Pfad nicht vor.

[gmg-cc]

Nee er gibt den Pfad nicht vor.

... weil es den Pfad nicht gibt!

Code: [Auswählen]

Private Sub CommandButton1_Click()
   Dim Dateiname As String
   Dim Pfad As String
 
  'Dateiname aus 2 Zellen basteln
   Dateiname = Format(Cells(4, 2), "YYYY-MM-DD_") & "Gagenverteilung_" & Cells(5, 2)
   
   Pfad = "C:\Hallo Welt\"
  'Dialog "Speichern unter" aufrufen und Dateinamen vorgeben
   If Dir(Pfad) = "" Then MkDir (Pfad)
   Application.Dialogs(xlDialogSaveAs).Show Pfad & Dateiname
End Sub

[Stevensplash]

Das weiß ich  hatte dort auch einen anderen eingegeben. Mehrere sogar. Es passierte trotzdem nichts

[gmg-cc]

Dann weiß ich auch nicht weiter ...
Bei mir läuft es jedenfalls so.