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
ü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 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.