Makro einer Schaltfläche zuordnen

Bild

Betrifft: Makro einer Schaltfläche zuordnen
von: Andre
Geschrieben am: 14.08.2015 10:34:23

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

Bild

Betrifft: AW: Makro einer Schaltfläche zuordnen
von: selli
Geschrieben am: 14.08.2015 10:57:40
hallo andre,
wenn das mit leerzeichen nicht funktioniert, nimm doch zur abgrenzung im dateinamen einen unterstrich.
gruß
selli

Bild

Betrifft: AW: Makro einer Schaltfläche zuordnen
von: Andre
Geschrieben am: 14.08.2015 11:09:17
Hallo Selli,
gute Idee. Funktioniert!
Schön wäre aber trotzdem, auch mit Leerzeichen arbeiten zu können. Makro nutzen halt mehrere User,
die die Dateien unterschiedlich abspeichern.
Wenn noch jemand einen Vorschlag hat, gerne angeben.
Schönen Gruß
Andre

Bild

Betrifft: AW: Makro einer Schaltfläche zuordnen
von: Rudi Maintaire
Geschrieben am: 14.08.2015 12:02:27
Hallo,
datei = "'" & ActiveWorkbook.Name & "'"
Gruß
Rudi

Bild

Betrifft: AW: Makro einer Schaltfläche zuordnen
von: Andre
Geschrieben am: 14.08.2015 13:17:48
Super Rudi,
vielen Dank. Es funzt

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro einer Schaltfläche zuordnen"