Hallo M.O.,
ich bewundere ja wirklich Deinen Ehrgeiz, aber ich denke an der Stelle sollten wir nun schließen, da meine Lösung mit dem Button nach der Umwandlung von varGruppe(0) und (1) in die Zellen G1 und H1 funktioniert und mir die richtigen Wochengruppenblätter öffnet.
Mit der letzten Umstellung auf Private Sub Worksheet_SelectionChange(ByVal Target As Range) wurde zwar der Vorgang beim Zellenanklicken ausgelöst, lief dann aber immer wieder auf Fehlermeldungen. Auch der Pfadname ist jetzt nicht mehr stimmend, wenn die Gruppe kleiner 10 ist. Da fehlt dann die 0 als Vorgabe, wie Du sie in einem der vorhergehenden Threads bereits mal eingebaut hattest. Aber man kann ja auch wirklich durcheinander kommen, wenn man das Ganze so aus dem Kopf heraus macht und nicht selber vor der tatsächlichen Datei sitzt und immer wieder mal zwischendurch was testen kann. Von daher echt mein Respekt, was Du da drauf hast.
Eine abschließende Frage hätte ich aber dennoch...
MsgBox "Die Datei " & strDateiname & " ist nicht vorhanden!", 16, "Datei nicht vorhanden"
Was hat es mit der 16 auf sich... steht die für oder? - aber durch welche Aussage wird die denn ausgelöst?
Vielen lieben Dank und LG Helmut