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