Makro: "absolute Werte" eines Tabellenbl
20.05.2020 17:41:37
Patrick
Ich bin - leider - blutiger Anfänger, was die Erstellung & Implementierung von Makros angeht. Ich habe versucht, mich über Tutorials und Foren einzufuchsen, allerdings klappt es immer noch nicht.
Mein Anliegen:
Ich möchte ein bestimmtes Tabellenblatt einer mehrblättrigen Excel über einen "Button-Klick" in eine neu anzulegende und automatisch zu speichernde Datei kopieren.
Die neue Datei soll dabei einen spezifischen Dateinamen bekommen, den ich gerne aus einer Zelle (bspw.A1=Text +Heute()) mitgeben möchte.
Ziel ist ein Dateiname, bestehend aus einem "Text" und dem aktuellen Datum; bspw. "IST_Stand_20.05.2020"
Ich habe bisher diesen Codeschnipsel.
Problem; der Button generiert zwar eine neue Datei mit den Werten meines angepeilten Tabellenblattes(auch wenn ich im Testcode einen Speichernamen mitangebe, gibt er bei der neuen Datei als Dateinamen: Mappe[] aus, und nicht Test[]), aber er legt diese neue Datei nicht in meinen angegebenen Zielordner ab.
Zudem habe ich keine Ahnung, wie ich meine Anforderung für meinen spezifischen Dateinahmen einbetten kann.
Ich würde mich tierisch freuen, wenn ihr mir genialerweise in diesem Dilemma weiterhelfen könntet.
LG
Sub Speichern()
Dim wksExportTabelle As Worksheet
Dim wbkNeu As Workbook
Set wksExportTabelle = ActiveWorkbook.Worksheets("IST_Stand")
wksExportTabelle.Copy
Set wbkNeu = ActiveWorkbook
With wbkNeu.Worksheets("IST_Stand").UsedRange
.Value = .Value
End With
wbkNeu.SaveAs wksExportTabelle.Parent.Path & "E:\[
]\" & "TEST.xls", FileFormat:=-4143 '*.xls
Set wbkNeu = Nothing
Set wksExportTabelle = Nothing
End Sub
Anzeige