ich benötige mal Eure Hilfe bei dem folgenden VBA-Code, welches ich mir zusammen gebastelt habe.
Ich möchte eigentlich, dass die Tabellenblätter aus einer Arbeitsmappe in eine neue Arbeitsmappe geschrieben werden, und diese neue Arbeitsmappe soll dann in ein variables Verzeichnis gespeichert werden, also über Speichern unter.
Nun erstellt er nur die neue Arbeitsmappe, Speichern unter geht auf und wenn ich den Pfad eingegeben habe, ist die gespeicherte Arbeitsmappe leer und es ist noch eine Arbeitsmappe da ....
Ausserdem wäre es noch schön, wenn zum Schluß eine Checkbox kommen würde, die dann besagt, dass die neue ARbeitsmappe erstellt und gespeichert wurde. Diese checkbox dann einfach mit OK bestätigen oder so :)
Wäre super, wenn man mir helfen könnte, ich quäle mich durch zig Seiten, finde aber keine Lösung.
Danke für Eure Hilfe.
Gruß Kai
Sub Speichernunter2()
Dim wkbMappe As Workbook
Dim VarPfad As Variant
Dim strOrdner As String
Dim vntBlattName As Variant
Application.DisplayAlerts = False
vntBlattName = Array("PR Master Header", "PR Master Recoveries", "PR Master Prepayments", "PR _
_
Master Accounting", "PR Master Interest")
Sheets(vntBlattName).Copy
Set wkbMappe = Workbooks.Add
Set VarPfad = Application.FileDialog(msoFileDialogSaveAs)
With VarPfad
.Title = "Wählen Sie das Verzeichnis aus"
.ButtonName = "Speichern..."
.InitialFileName = ThisWorkbook.Path & "\" & wkbMappe.Name
If .Show -1 Then
Exit Sub
End If
strOrdner = .SelectedItems(1)
End With
wkbMappe.SaveAs strOrdner
wkbMappe.Close
Application.DisplayAlerts = True
End Sub