Script funzt nich!
25.08.2003 17:15:46
Joachim
ich komm nicht mehr weiter! Er sagt "Subscript out of Range" in der Zeile 6. Aber meiner Erfahrung (nich sehr groß) nach habe ich hier alles klar und deutlich definiert. Klappt aber trotzdem nich. Hier mal das Script:
Sub Oeffenundkopieren()
Dim file
file = Application.GetOpenFilename
If file = False Then Exit Sub
Workbooks.Open file
Workbooks(file).Worksheets("Datenbank").Copy Destination:=Workbooks _("EBR_PDB.xls").Worksheets("DBExp")
End Sub
Vielleicht könnt ihr mir ja weiterhelfen. Wahrscheinlich ieht einer von euch den Fehler auf den ersten Blick. Ich bin jedenfalls mit meinem Latein am Ende.
Vielen Dank schon mal im Vorraus und schönen Gruß, Joachim
P.S.:Mir ist bewusst, das die Überschrift nicht sonderlich aussagekräftig ist, aber wie hätt ichs denn nennen sollen?