Clever-Excel-Forum

Hallo ich habe unten das Makro gepostet welches ich nutze.
ich versuche es so hinzubekommen das er automatisch vorgibt das als Arbeitsmappe mit Makros vorgibt was muss ich dafür verändern ?

Danke für eure Hilfe

Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "C:\Testpfad\"
datei = Worksheets("Tabelle2").Range("H3")
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad & datei
If .Show = -1 Then
   pfad = .SelectedItems(1)
   End If
End With

Hallo Berthic,

Sub aaa()

  Dim dialog As FileDialog

  Dim pfad As String

  Dim datei As String

  pfad = "C:\Testpfad\"

  datei = Worksheets("Tabelle2").Range("H3")

  Set dialog = Application.FileDialog(msoFileDialogSaveAs)

  With dialog

    .InitialFileName = pfad & datei

    .FilterIndex = 2

    If .Show = -1 Then

       pfad = .SelectedItems(1)

    End If

  End With

End Sub

Gruß Uwe

Oh so Simpel 

Danke für die schnelle Antwort klappt Perfekt  :19:

Gruß Karsten