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.
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
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
Application.ScreenUpdating = True
End Sub