Einstellungen Excel?
25.08.2003 11:38:59
Florian
Habe ein (seltsames) Problem, wäre klasse wenn Ihr mir helfen könntet. Ich beschreibe es mal ausführlich: In einem Programm werden die Herstellkosten berechnet. Dann speichere ich die HK als Infoseite und erstelle auf dieser Infoseite ein Makro (bezieht sich auf HK - Programm) welches bei Betätigung eines Buttons bestimmte Werte an ein SZENARIO - Programm übergibt. Dies funktioniert auf einigen Rechnern, auf anderen wieder nicht.
DER CODE FÜR DAS SPEICHERN DES INFOBLATTES
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'Übergabe Szenarioprogramm
Application.CommandBars("Forms").Visible = True
ActiveSheet.Buttons.Add(630, 12, 200.25, 30.75).Select
ActiveSheet.Shapes("Button 6").Select
Selection.Characters.Text = "Szenario erstellen"
With Selection.Characters.........(UND SO WEITER)
ActiveSheet.Shapes("Button 6").Select
Selection.OnAction = _
"'KALKULATIONSPROGRAMM.xls'!Szenarioübergabe_Makro_zuordnen"
Range("a1").Select
ActiveWorkbook.SaveAs Filename:=[A1].Value & ".xls"
DER CODE FÜR DAS AUFRUFEN DES SZENARIOPROGRAMMES:
Sub Szenarioübergabe_Makro_zuordnen()
Filename = [A1].Value
Workbooks.Open Filename:= _
"C:\Dokumente und Einstellungen\F R\Desktop\ÜBERGABE 1-2\SZENARIO 1.1.xls"
Windows(Filename).Activate
Cells.Select
Selection.Copy
Windows("SZENARIO 1.1.xls").Activate
ActiveSheet.Paste
Windows("KALKULATIONSPROGRAMM.xls").Activate
ActiveWindow.Close
End Sub
Die Fehlermeldung erscheint bei einigen Computer in der Zeile "Windows(Filename).Activate" (im 2.Code), bei anderen läuft es tadellos. Leider finde ich um`s verrecken die Einstellung nicht an der es liegen könnte. Wer sich schon mal bis hierher durch den Text gequält hat vielen Dank;-), wäre über einen Tip sehr glücklich!
Schöne Grüße,
Florian