Thema Datum  Von Nutzer Rating
Antwort
Rot Makro: "absolute Werte" eines Tabellenblattes in neue Datei mit Dateinamen
20.05.2020 17:35:23 Patrick
Solved

Ansicht des Beitrags:
Von:
Patrick
Datum:
20.05.2020 17:35:23
Views:
38
Rating: Antwort:
 Nein
Thema:
Makro: "absolute Werte" eines Tabellenblattes in neue Datei mit Dateinamen

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

 

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro: "absolute Werte" eines Tabellenblattes in neue Datei mit Dateinamen
20.05.2020 17:35:23 Patrick
Solved