"Var1"= 1::Dim lngErr As Long::swApp.RunMacro2 "K:\SolidWorks\Bibliotheken\Makros\DT\SW Interne\Dateiname_als_Teilbenennung.swp", "Dateiname1", "Dateiname", swRunMacroDefault, lngErr