ich hätte den Betreff gern informativer gestaltet, leider passen nicht so viele Zeichen rein.
Das ist die Ausgangslage.
Ein Mitarbeiter erzeugt aus einer xlsm-Datei diverse Auswertungen für diverse Abteilungen.
Diese jeweilige Auswertung kann sie dann unter dem Abteilungsnamern(oder wie auch immer) speichern.
Das mache ich so:
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
Private Sub aktuelles_Tabellenblatt_speichern()
Dim vFile As Variant
'Dim obcCell As Object, objRange As Object
On Error Resume Next
SetCurrentDirectory Worksheets("suchen").Range("H3")
vFile = Application.GetSaveAsFilename(InitialFileName:=Range("A2"), FileFilter:="Excel Dateien (*.xls), *.xls")
If vFile = False Then Exit Sub
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveSheet.Shapes("Schaltfläche 1").Select 'Schaltfläche zum Abteilungen ändern entfernen
Selection.Cut 'Schaltfläche entfernen
Range("C2") = Range("C2").Value 'Formel in C2 durch absoluten aktuellen Wert ersetzen
ActiveWorkbook.Queries("xxx").Delete 'Abfragen im neuen Excel-Blatt löschen
ActiveWorkbook.Queries("xxx1").Delete 'Abfragen im neuen Excel-Blatt löschen
ActiveWorkbook.Queries("xxx2").Delete 'Abfragen im neuen Excel-Blatt löschen
ActiveWorkbook.SaveAs vFile, xlNormal
'ActiveWorkbook.SaveAs vFile, xlOpenXMLWorkbook
Application.DisplayAlerts = True
ActiveWorkbook.Close
End Sub
Im Tabellenblatt selbst (nicht Modul) habe ich noch 1, 2 Makros hinterlegt, damit die ABteilung sich die Arbeit beim Filtern der Tabelle erleichtert.
Außerdem habe ich in der Vorlage eine UserForm hinterlegt die für jede Abteilung angezeigt werden kann bzw. soll.
Diese wird aber beim speichern nicht in das neue Tabellenblatt übernommen.
Ich habe gedacht das das evtl. am Format liegt (siehe oben auskommentiert), aber da bin ich mit diversen Einstellungen nicht weitergekommen.
Hat da jemand eine Idee wie ich die USerForm aus der Ausgangs-Datei in die neue übernehmen kann.
Danke für Eure Hilfe.