Hallo Forum,
ich speiche mit Code
Rem Speicherpfad und Dateiname anfordern
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", fileFilter:="Excel-Arbeitsmappe (*.xlsm)
eine neue Datei ab.
Mit Code ordne ich einer Schaltfläche ein Makro zu
ActiveSheet.Activate
datei = ActiveWorkbook.Name
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = datei & "!Drucken"
Range("C2").Select
Application.CutCopyMode = False
Leider steigt mir mein Makro bei Selection.OnAction... aus, wenn ich die xlsm Datei mit leerzeichen abspeichere. Z.B,. 123 456.xlsm. Bei 12346.xslm läuft das Makro.
Hat jemand eine Idee was ich wie, wo ändern muss?
Vielen Dank und Gruß
Andre