Application.Run-Problem
31.03.2008 13:00:57
Rolf
mein Makro:
Sub Makro1()
Sheets("Calc").Select
Application.Run "Kopie von MKPL Preise - Prices_Rev51"
Sheets("PD").Select
ActiveSheet.Unprotect
ActiveSheet.Scenarios("daten-deutsch").ChangeScenario ChangingCells:= _
"R1C9,R3C3:R8C3,R3C10:R8C10,R10C1,R11C2:R13C2,R11C10:R14C10", Values:=Array( _
"Pumpendatenblatt", "CP-Nr.", "Datum", "Revision", "Erstellt von", "Anzahl", _
"Pumpen Nr.", "Kunde", "Ansprechperson", "Anfrage/Bestell Nr.", "Datum", "Projekt", _
"Pos. Nr.", "Mediums- und Betriebsdaten", "Fördermedium", "Feststoffe", _
"Feststoffgehalt", "Betriebstemperatur", "Dichte", "Kin. Viskosität", _
"Dampfdruck bei T max.")
...
Ist in einem Modul in Personal.xl gespeichert.
Hat bisher super funktioniert.
Nun plötzlich, als wir das auf die Datei "Kopie von MKPL Preise - Prices_Rev51" anwenden wollten, bringt er je nach veränderung 2 Fehler: 1. Laufzeitfehler 5: Argument falsch (Kann an dem Gleichheitszeichen leigen, das da nach Applikation.Run drinn war, nun aber weg ist). Dann bringt er danach auch noch den Fehler, dass er die Datei nicht finden kann, obwohl wir sie ja geöffnet haben, sie also zweifellos vorhanden ist...
Wo liegt der Fehler, oder kann man das auf eine andere Art lösen?
Gruss
Rolf