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
|