Auf meinen obigen Betreff hat mir Piet am 01/10/19 geantwortet und einen Code zur Verfügung gestellt mit welchen ich es wieder weg bringe.
Da es aber immer wieder auftaucht, warum ist mir auch noch immer unbekannt, habe ich mir über Strg+Umsch+S festgelegt diesen Code aufzurufen um es zu entfernen und dann dazu mit Code
Sub SpeichernUnter()
Dim Datname As String
Dim Pfad As String, strSep As String
Rem strSep = Application.PathSeparator
Pfad = ActiveWorkbook.Path + "\" ' Sheets("Start").Range("Q25")
Rem If Right(Pfad, 1) strSep Then Pfad = Pfad & strSep
Datname = ActiveWorkbook.Name ' Worksheets("GundDaten").Range("A8") ' & ".xlsm"
ActiveWorkbook.SaveAs Pfad & Datname
End Sub
versehen um eine sofortige Speicherung des bereinigten VBA zu erreichen.
Hier stört mich das er immer mit der Abfrage "ob er überschreiben soll" kommt.
Wenn ich nur mit Strg + S sichere wird das nicht abgefragt, was muss/müsste ich daher im Code für "SpeichernUnter" ändern, bitte.
Gruß Siegfried