VBA Code wird nicht gespeichert

Moin Moin,
bräuchte mal kurz eure Hilfe, ich erstelle per VBA ein neues Workbook und speicher das als .xlsm. Dann mache ich einiges in der Mappe und erstelle einen Befehlsbutton samt VBA Code der in die neue Mappe geschrieben wird, den Code dafür habe ich auch hier aus dem Forum.
Nun zu meinem Problem, mache ich das alles und lasse das Workbook anschließend geöffnet ist alles gut, dann speicher ich manuell und alles ist wie es sein soll.
Speicher ich ich aber am ende meines Codes mit .save und nutze anschließend .close um die erstellte Arbeitsmappe zu schließen speichert er den Code der zu dem Befehlsbutton eingefügt wurde nicht. Wenn ich dann die Datei öffne ist der Befehlsbutton da, aber ohne Code.
Woran kann das leigen?
hiermit erstelle ich die Mappe:

    Set wb = Workbooks.Add
wb.Activate
Tabelle_save = UserForm2.ComboBox1.Value & "_" & UserForm2.Part_Nummer.Value & "_" &  _
UserForm2.Part_Name.Value & "_" & UserForm2.Werkzeugnummer_Housing.Value & "+" & UserForm2. _
Werkzeugnummer_Lever.Value & "_" & UserForm2.MB_Nummer_System.Value & "_" & Year(UserForm2.Date_of_measurement.Value) & "-" & Monat & "-" & Tag
Tabelle_save = InputBox("Dateiname:", "Datei speichern", Tabelle_save) 'Abfrage Dateinamen
Tabelle_save = Tabelle_save & ".xlsm"  'Tabelle_save = "Name Deiner Wahl.xlsx"
ActiveWorkbook.SaveAs Filename:=Tabelle_save, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

dann kommt wie gesagt alles mögliche, sollte aber hierfür uninteressant sein,
hier der Code für Button und Code, natürlich erstmal nur Test (hier aus dem Forum)


Dim strCode As String
Dim myButton As OLEObject
Dim Zelle2 As Range
Set Zelle2 = Range("H6:H7")
With Zelle2
Set myButton = ActiveSheet.OLEObjects.Add(ClassType:="Forms. _
CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=. _
Width, Height:=.Height)
End With
strCode = _
"Private Sub " & myButton.Name & "_Click()" & Chr(10) & _
" MsgBox ""test erfolgreich bestanden""" & Chr(10) & _
"End Sub"
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName). _
CodeModule
.InsertLines .CountOfLines + 1, strCode
End With

wie gesagt funktioniert alles einwandfrei, genau wie es soll solange ich die Datei geöffnet lasse, da aber mehr Dateien erzeugt werden wäre das eine nicht zielführende möglichkeit.
Gibt es eventuell noch einen Befehl der den Code nochmal extra abspeichert, abgesehen von der normalen .Save funktion?
Gruß
Sven

Hallo Tor,
das kann ich leider nicht komplett wegen der Arbeit.
Aber ich habe da jetzt einiges rausgelöscht und den Grob vereinfacht. Und es funktioniert auch hier nicht. Den Code kann ich komplett hier reinstellen.
Nicht wundern ich bin kein VBA Profi ;-)


Sub Arbeitsblätter_erstellen()
Dim i, h, l, d As Integer    'zählvariable For/Next i=Arbeitsbläter h=housing zähler; l=lever zä _
hler; d=Datenfeld zähler
Dim wksNeu As Worksheet 'Variable für die zu erstellenden Tabellenblätter
Dim wb As Workbook
Dim currentWorkbook As String
Dim currentWorkbookDir As String
Dim Tabelle_save As String
Dim Zelle As Range
Dim Tag, Monat As String
Dim shp As Shape
'Schalten die Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'Sprungmarke zum ErrorHandler
On Error GoTo Fehler
' 1. aktuelles Workbook - merken für spätere aktionen
currentWorkbook = ActiveWorkbook.Name
currentWorkbookDir = ActiveWorkbook.Path
ChDir currentWorkbookDir
' 2. Name festlegen und Speichern
'Monat und Tag bei einstellig eine 0 vorweg setzen
Monat = Month(Date)
Tag = Day(Date)
If Len(Tag) > 1 Then
Tag = Tag
Else
Tag = "0" & Tag
End If
If Len(Monat) > 1 Then
Monat = Monat
Else
Monat = "0" & Monat
End If
'Neue Arbeitsmappe erstellen und Speichern
Set wb = Workbooks.Add
wb.Activate
Tabelle_save = "Test2"
Tabelle_save = InputBox("Dateiname:", "Datei speichern", Tabelle_save) 'Abfrage Dateinamen
Tabelle_save = Tabelle_save & ".xlsm"  'Tabelle_save = "Name Deiner Wahl.xlsm"
ActiveWorkbook.SaveAs Filename:=Tabelle_save, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
With ActiveWorkbook
'Tabellenblätter erstellen
Set wksNeu = Sheets.Add(After:=Sheets(Sheets.Count))
wksNeu.Name = "Test"
With wksNeu
'                    'Command Button einfügen
Dim strCode As String
Dim myButton As OLEObject
Dim Zelle2 As Range
Set Zelle2 = Range("H6:H7")
With Zelle2
Set myButton = ActiveSheet.OLEObjects.Add(ClassType:="Forms. _
CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=. _
Width, Height:=.Height)
End With
strCode = _
"Private Sub " & myButton.Name & "_Click()" & Chr(10) & _
" MsgBox ""test erfolgreich bestanden""" & Chr(10) & _
"End Sub"
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName). _
CodeModule
.InsertLines .CountOfLines + 1, strCode
End With
'Arbeitsblatt schützen ausser Bemerkungen und Werte eintragen
Dim rng As Range
Dim rng2 As Range
Set rng = .Range(Cells(16, 3), Cells(16 + m - 1, 3))
Set rng2 = .Range(Cells(11, 5), Cells(14, 8))
.Unprotect
rng.Locked = False
rng2.Locked = False
.Protect
End With
Sheets("Tabelle1").Delete
.Save
.Close savechanges:=True
End With
'    Next i
Workbooks(currentWorkbook).Sheets("Tabelle1").Activate
MsgBox "Datei wurde erstellt"
'Schaltet die Bildschirmaktualisierung wieder ein
Application.ScreenUpdating = True
Exit Sub
'ErrorHandler
Fehler:
Application.ScreenUpdating = True
MsgBox Err.Description
End Sub

Aber wenn es hier dann irgendwie klappt wird es beim komplett Code auch klappen denke ich.
Danke für die Hilfe.
Gruß
Sven

Forumthread: VBA Code wird nicht gespeichert

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

VBA Code in Excel richtig speichern

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)