Tabelle in eine neue Arbeitsmappe kopieren?
16.12.2016 08:25:29
MichaelP
Ich versuche (als VBA-Anfänger) ein Makro zusammenzubauen, wo über meine Ursprungs-Arbeitsmappe FALLCONTROLLING.xlsm eine neue Arbeitsmappe "BW.xlsx" angelegt bzw. die vorhergehende überschrieben werden um dort zwei Tabellen "1002_DATENPRÜFLISTE2" und "1005_AUSGABE" zu sichern (Grund: Diese Datei soll zur einmaligen Nutzung weitergereicht werden).
Ich eine VBA hier editiert:
Sub TABinBOOKKop()
Dim vntBlattName As Variant
Dim strWkbName As String
Dim strPfad As String
strPfad = "H:\Eigene Dateien\Darle" 'HIER MÖCHTE ICH EIGENTLICH DIE NEUE ARBEITSMAPPE IN _
DENSELBEN ORDNER WIE DIE URSPUNGS-ARBEITSMAPPE ANLEGEN, das war ein Zwischenlösung
strWkbName = "BW.xlsx"
vntBlattName = Array("1002_DATENPRÜFLISTE2", "1005_AUSGABE")
Sheets(vntBlattName).Copy
ActiveWorkbook.SaveAs strPfad & strWkbName
'ActiveWorkbook.Close
End Sub
Leider funkt es nicht so, wie ich es mir wünsche :-(
1. Die Datei landet nicht in meinem gewünschten und angegebenen Pfad. Eigentlich sollte er aber im selben Pfad wie die Ursprungs-Arbeitsmappe landen.
2. Der Name stimmt nicht.
3. Da die Datei ursprünglich ein Makro über *.xlsm hatte, meckert Excel bei *.xlsx. Aber die Arbeitsmappe soll definitiv ohne Makro in *.xlsx laufen.
4. Ist mir nicht klar, ob es überhaupt (ohne Fehler) funkt?
Vielleicht weiß hier jemand Rat?