Wie per VBA .xlsm aus einer Vorlagendatei .xltm erstellen lassen?
05.12.2019 14:40:41
AleXSR700
ich grüble gerade über ein neues Problem nach und finde noch nicht den richtigen Ansatz.
Ich würde gerne per VBA Code Exceldateien mit Makrounterstützung aus Excelvorlagen erzeugen lassen. Normalerweise müsste man diese ja öffnen und dann speichern unter neuem Dateinamen.
Ist dies auch per VBA möglich?
Vorgehen wäre:
1. Button klicken
2. Dateiexplorerfenster öffnet sich in im VBA definierten Pfad (kann man dabei bei "Dateiname = Application.GetOpenFilename()" einen Defaultpfad mitgeben?)
3. Vorlage auswählen
4. Definierter Inhalt wird in bestimmte Zellen der neuen xlsm eingetragen
5. Die Datei wird als xlsm im Pfad der Exceldatei in der der VBA Code aufgerufen wird, abgespeichert
Meine ersten Versuche bringen einen Laufzeitfehler. Bisher versuche ich erstmal Datei auszuwählen, dann einen Zellinhalt von der Quelldatei in die Vorlage zu kopieren und dann abzuspeichern.
Kann es daran liegen, dass Voragen mit Makros erst aktiviert werden müssen? ODer habe ich _ irgendwo einen groben Fehler übersehen?
Sub Vorlage_Anlegen()
Dim LIMS As String
Dim Vorlagendateiname As String
Dim Dateiname As String
Dim LIMSwb As Workbook
Dim Vorlagenwb As Workbook
Set LIMSwb = ActiveWorkbook
Vorlagendateiname = Application.GetOpenFilename()
Set Vorlagenwb = Workbooks.Open(Filename:=Vorlagendateiname)
LIMSwb.Worksheets("Probeninformationen").Cells(5, 2).Copy
Vorlagenwb.Worksheets("Probe").Cells(1, 1).PasteSpecial
LIMS = LIMSwb.Worksheets("Probeninformationen").Cells(5, 2).Value
LIMS = Replace(LIMS, "/", "-")
Dateiname = LIMSwb.Path & "\" & LIMS & "_" & Vorlagendateiname & ".xlsm"
Vorlagenwb.SaveCopyAs Dateiname
Set Vorlagenwb = Nothing
Set LIMSwb = Nothing
End Sub
Viele Grüße