Hallo Excelprofis!
Ich habe ein Problem mit einem bestehenden VBA-Code.
Normalerweise soll folgender Code meine Arbeitsmappe im gleichen Pfad als "Auswertung_Datum" abspeichern, das Blatt "Eingabe" und einige UserForms entfernen und nochmals speichern.
Komischerweise wird die Datei aber unter dem Aktuellen Namen gespeichert, also überschrieben.
Kann mir bitte Jemand sagen was in meinem Code geändert werden muß, damit es Funktioniert.
Option Explicit
Private Sub CommandButtonBlattAuswSich_Click()
Dim strPfad As String
strPfad = ThisWorkbook.Path & "\Auswertung_" & Format(Date, "yymmdd") & ".xls"
ThisWorkbook.SaveCopyAs strPfad
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Workbooks.Open strPfad
Application.EnableEvents = True
ActiveWorkbook.Worksheets("Eingabe").Delete
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("UserForm1")
.VBComponents.Remove .VBComponents("UserformBlattAuswSicher")
With .VBComponents("DieseArbeitsmappe").CodeModule
.DeleteLines 1, .CountOfLines
End With
End With
ActiveWorkbook.Save
ThisWorkbook.Close Savechanges:=False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Danke für die Hilfe!
mfg Andreas