Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Laufzeitfehler 1004 in Excel 2003





Frage

In Excel 2003 programmiere ich gerade ein relativ simples Datenbanksystem, was bei mir bislang sehr gut funktionert. Bei einigen Kollegen erzeugt es aber folgende Meldung 'Laufzeitfehler 1004 Die Methode 'Open' für das Objekt 'Workbooks' ist fehlgeschlagen' Das Makro lautet: Option Explicit Sub DataEntryGo() ' ' DataEntryGo Macro ' Macro recorded 2008-05-22 by Me ' 'Select workbook based on entry in B19 'If BrSA is chosen in B19 then open "Quality Data Br.xls" If Range("B19").Text = "Br" Then Application.Workbooks.Open Filename:="http://portal/Quality Data Br.xls" Sheets("Start").Select Range("B1").Select 'If ChSA is chosen in B19 then open "Quality Data Cn.xls" ElseIf Range("B19").Text = ("Cn") Then Application.Workbooks.Open Filename:="http://portal/Quality Data Cn.xls" Sheets("Start").Select Range("B1").Select 'If DeSA is chosen in B19 then open "Quality Data De.xls" ElseIf Range("B19").Text = ("De") Then Application.Workbooks.Open Filename:="http://portal/Quality Data De.xls" Sheets("Start").Select Range("B1").Select 'If FrSA is chosen in B19 then open "Quality Data Fr.xls" ElseIf Range("B19").Text = ("Fr") Then Application.Workbooks.Open Filename:="http://portal/Quality Data Fr.xls" Sheets("Start").Select Range("B1").Select 'If InSA is chosen in B19 then open "Quality Data In.xls" ElseIf Range("B19").Text = ("In") Then Application.Workbooks.Open Filename:="http://portal/Quality Data In.xls" Sheets("Start").Select Range("B1").Select 'If Mx is chosen in B19 then open "Quality Data Mx.xls" ElseIf Range("B19").Text = ("Mx") Then Application.Workbooks.Open Filename:="http://portal/Quality Data Mx.xls" Sheets("Start").Select Range("B1").Select 'If nothing is chosen or something not in the list is typed in B19 then go back to B19 Else Range("B19").Select End If End Sub Wie könnte ich dieses Problem beheben und es so einrichten, daß dieses Makro bei allen läuft?

Antwort 1 von Pausenfueller

Hallo,

über die Ursachen kann ich dir nichts sagen, dazu müsste man die Unterschiede zwischen den Excel-Installtionen der Rechner kennen, aber im (Klick-->) Microsoft Support gibt es einige Artikel zu diesem Laufzeitfehler.

Gruß
Pausenfüller

Antwort 2 von surprise

Hey danke!

ich glaube, ich hab den Fehler gefunden. Dumme aber auch komische Sache: Der Link, den ich rumgeschickt habe, damit die Tabelle getestet werden kann, war fehlerhaft. Keine Ahnung, wieso.

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: