Application.Run Probleme
30.07.2007 15:12:54
Markus
habe folgendes Makro, welches auch bis zu einem bestimmten Punkt alles macht (siehe Ende Makro). Ab diesem Punkt macht es leider nichts mehr, außer aufhören, als wäre es fertig. (auch keine Fehlermeldung)
Wenn ich Application.Run deaktiviere läuft alles bestens. Wer kann mir helfen?
Gruß und Danke
Markus
Sub DateiInformation()
'Öffnet vorgegebene Datei "x"
Workbooks.Open Filename:="N:\GROUPS\PRAEMIE\" _
& ActiveWorkbook.Sheets("Kalender").[K3] & "\AnwV3-" _
& ActiveWorkbook.Sheets("Kalender").[K2] & "-" _
& ActiveWorkbook.Sheets("Kalender").[K2] & ".xls"
'Startet 1. Makro in Datei "x"
Application.Run "'AnwV3-" _
& ActiveWorkbook.Sheets("Kalender").[F1] & "-" _
& ActiveWorkbook.Sheets("Kalender").[F1] & ".xls'" & "!Abfragegesamt"
'Startet 2. Makro in Datei "x"
Application.Run "'AnwV3-" _
& ActiveWorkbook.Sheets("Kalender").[F1] & "-" _
& ActiveWorkbook.Sheets("Kalender").[F1] & ".xls'" & "!Closing"
'Speichert und schließt Datei "x"
ActiveWorkbook.Save
ActiveWorkbook.Close
'Sollte Datei, in der dieses Makro steht, speichern und schließen, tut es aber _
nicht !!!
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Anzeige