Hallo liebe VBA Freunde,

ich hoffe ich habe nur ein ganz kleines Problem .)

Aus der "großen" Exeldatei "extahiere" ich mit:

    Sheets("Bxxxxxxxxxxxxx").Copy

ein Blatt. Das kommt in eine neue Datei - meist  Mappe1

Diese Datei möchte ich dann mit:

Sub S_S_CLEANER()

Const SpeicherPfadZxxxxxxxxxxxx = "C:XXXX"
Dim SpeicherBxxxxxxxx As String
SpeicherBxxxxxxxx = Format(Now - 0.5, "ddmmmyy")

Diaplayalerts = False

ActiveWorkbook.SaveAs (SpeicherPfadZXxxxxxxxxxxx & "\" & "Bxxxxxxxxx " & SpeicherBuchungsbeleg & ".xlsx")

DisplayAlerts = True

End Sub

speichern.

Obwohl

".xlsx angegeben ist, erschein die "Info" "Die folgenden Features können in Arbeitsmappen ohne Makros nicht gespeichert werden. - VBA Projekt ...................... "

Aber .xlsx ist doch mit Makro? Was ist denn da los?

Danke für eure Hilfe.

lg  Tom