VBA Speichern unter mit Vorgabe als Arbeitsmappe mit Makro

[Berthic]

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

[Kuwer]

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

[Berthic]

Oh so Simpel 

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

Gruß Karsten