Speichern unter Pfad und Datei klappt nicht

[RudiRüssel]

Hallo,
ich bräuchte mal wieder einen Tip.
Ich möchte eine Tabelle meiner Mappe über einen CommandButton speichern, 
Auf Laufwerk "G" unter einen bestimmten Namen und Bezug auf eine Zelle der Tabelle.

Im Prinzip funktionierts, nur nicht mit dem Laufwerk. Es wird immer nur das "C" Laufwerk angesprochen.

Hier wäre mein Code, 

Code:

Private Sub CommandButton1_Click()

Dim Dateiname As String
Dim Pfad As String

Pfad = "G:\Test\"
Dateiname = "unsinn" & " " & Range("D13")



   VBA.ChDrive Pfad 'verzeichnis
    If Application.Dialogs(xlDialogSaveAs).Show(Pfad & Dateiname, 57) = False Then
   
      MsgBox "Auftrag wurde  NICHT  gespeichert"
    Else
      MsgBox "Auftrag wurde gespeichert"
    End If

End Sub

Ich finde im Netz nichts was ich entsprechend umsetzen kann, da ich zu wenig auskenne.

Vielleicht hat ja jemand den Passenden Vorschlag für mich, wo ich was ändern müßt.


Vielen Dank schon mal

[Kuwer]

Hallo,
ich bräuchte mal wieder einen Tip.
Ich möchte eine Tabelle meiner Mappe über einen CommandButton speichern, 
Auf Laufwerk "G" unter einen bestimmten Namen und Bezug auf eine Zelle der Tabelle.

Im Prinzip funktionierts, nur nicht mit dem Laufwerk. Es wird immer nur das "C" Laufwerk angesprochen.

Hier wäre mein Code, 

Code:

Private Sub CommandButton1_Click()

Dim Dateiname As String
Dim Pfad As String

Pfad = "G:\Test\"
Dateiname = "unsinn" & " " & Range("D13")



   VBA.ChDrive Pfad 'verzeichnis
    If Application.Dialogs(xlDialogSaveAs).Show(Pfad & Dateiname, 57) = False Then
   
      MsgBox "Auftrag wurde  NICHT  gespeichert"
    Else
      MsgBox "Auftrag wurde gespeichert"
    End If

End Sub

Ich finde im Netz nichts was ich entsprechend umsetzen kann, da ich zu wenig auskenne.

Vielleicht hat ja jemand den Passenden Vorschlag für mich, wo ich was ändern müßt.


Vielen Dank schon mal

Hallo,

teste es mal so:

Code:

Private Sub CommandButton1_Click()
  Dim Dateiname As String
  Dim Pfad As String

  Pfad = "G:\Test\Unsinn" & " " & Range("D13")
  Dateiname = Application.GetSaveAsFilename(Pfad, "PDF-Dateien (*.pdf), *.pdf")
  If CVar(Dateiname) = False Then
    MsgBox "Auftrag wurde  NICHT  gespeichert"
  Else
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=Dateiname, FileFormat:=57
    Application.DisplayAlerts = True
    MsgBox "Auftrag wurde gespeichert"
  End If
End Sub

Gruß, Uwe

[RudiRüssel]

Hat geklappt,

Vielen Dank