✔ Nur ein Tabellenblatt in neuer Mappe speichern

[PhoenixDH]

Ich habe eine Tabelle mit 3 Blättern, damit will ich nur das 3. Blatt in einer neuen Mappe speichern, will das aber im Hintergrund machen, sprich nicht gleich in der neuen Datei sein, wie mache ich das ? Hier mein Code bisher, der aber nicht geht:

Sub DateiSpeichernUnter()
Dim Dateiname As Variant
Dateiname = Application.GetSaveAsFilename( _
InitialFileName:="", _
Filefilter:="Excel Dateien (*.xls),*.xls", _
FilterIndex:=1, _
Title:="Speichern unter...", _
ButtonText:="Abspeichern")
If Dateiname <> False Then
ThisWorkbook.Worksheets(3).SaveAs Filename:=Dateiname
MsgBox "Datei wurde gespeichert: " & vbCrLf & vbCrLf & Dateiname & vbCrLf & vbCrLf & " Liste " & _
      "erfolgreich erstellt!", vbOKOnly + vbInformation, _
      Title:="Datei speichern"
Else
MsgBox "Datei wurde nicht gespeichert", vbOKOnly + vbInformation, _
      Title:="Datei speichern"
End If
End Sub

 

[Orakel]

Hi,

probiere doch mal folgendes

    Dim oFileDialog             As FileDialog

    Set oFileDialog = Application.FileDialog(MsoFileDialogType.msoFileDialogSaveAs)

    With oFileDialog
        If .Show = 0 Then
            Exit Sub
        End If
        ActiveSheet.Copy
        ActiveWorkbook.SaveAs .SelectedItems(1)
        ActiveWorkbook.Close False
    End With

Gruß
Das Orakel

 

[PhoenixDH]

Da bekomme ich schon nen Fehler beim Compilieren !
Hab durch Einbau in meinen Code hinbekommen, danke !