Hallo,
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
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
Visual Basic-Quellcode
- 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
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „EaranMaleasi“ ()