So, hab den ersten Kaffee des Tages mal deinem Programm gewidmet.
Folgendes kannst/ solltest du ändern:
1. Richtige Verdrahtung der ActiveX Methoden/Eigenschaften in der Reihenfolge die du willst mit dem Errorcluster
2. Das Workbook wird ja schon geöffnet, daher brauchst du es nicht nochmal öffnen (das ist übrigens die Fehlermeldung die du bekommst: XL fragt ob es das wkb speichern soll -> ist also noch offfen, dann versuchst du im Case "zelle auslesen" das offene wkb erneut zu öffnen.)
-> im XL öffnen Case nimmst du die Ref. die aus Workbook.open kommt und legst die in ein Shiftregister, im Zelle lesen Case nimmst du die Ref. und gibst die anstelle der dortigen Workbook.open Ref. in den Eigenschaftenknoten Workbook.Worksheets rein.
Muss weg, die arbeit ruft
Gruß SeBa