Hallo,
Ich habe jetzt die ganze Zeit im Netz gegoogelt, und habe für die Codes im Sheet folgende Lösung gefunden,
Application.EnableEvents = False
Das funktioniert prima das Makro läuft jetzt durch bis zur zum speichern da habe ich immer noch das Problem das die Codes im Sheet stehen und VBA sagt die Daten kann mit oder ohne Features gespeichert werden.
Also genau das Prolem das mit Makro Datei und xlsx, ich habe auch schon hier Lösungen gefunden

ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name & "_" & Format(Now(), "DD.MM.YYYY") ,51 das soll laut Netz das Format xlsx erzwingen, funktioniert nur leider so nicht bei mir.
Also der nachfolgende Code sollte so angepasst werde das das Sheet Daten in eine Neue Datei kopiert wird dann im Ordner TEMP als xlsx gepeichert werden. die Mailfunktion (Also das die Datei dann automatisch ins Mail gezogen wird, und danach die Datei im TEMO Ordner gelöscht wird habe ich hier rausgenommen.


'xxxx senden
Sub xxxx_senden()
Dim strBlatt As String
Dim strDatei As String
Dim strPfad As String
Dim outObj As Object
Dim Mail As Object
Dim strBodyText As String
''Set outObj = CreateObject("Outlook.Application")
''Set Mail = outObj.CreateItem(0)
strPfad = "C:\Temp"
strBlatt = ActiveSheet.Name
Sheets(strBlatt).Copy
Application.EnableEvents = False
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name & "_" & Format(Now(), "DD.MM.YYYY") & ".xlsx"
 
Application.ScreenUpdating = False
  
Call Blattschutz_Admin_aufheben
 
  
strDatei = ActiveWorkbook.FullName
Application.EnableEvents = True
  
        ''strbody = "<font face=Arial>Sehr geehrter Damen und Herren,</font><br><br>" & _
        ''"<font face=Arial>ixxxxm Anhang finden Sie die aktuelle FO Liste."
 
''With Mail
''.GetInspector.Display
''.To = Worksheets("DDDD").Range("D24")
''.CC = Worksheets("DDDD").Range("D25")
''.Subject = "xxxx_" & Format(Date, "DD.MM.YYYY") 'Betreff
''.HTMLBody = strbody & "<br>" & .HTMLBody
''.Attachments.Add strDatei
 
''End With
  
''Workbooks(Dir(strDatei)).Close
''Kill (strDatei)
'Mail.send
 
Application.ScreenUpdating = True
 
End Sub

Ich hoffe es richtig erklärt zu haben.

Wenn in dem Sheet keinerlei Code hinterlegt ist funktioniert der Code alsos das speichern als xlsx im TEMP Ordner einwandfrei.

Danke nochmals

Jolanda