Warum funktioniert folgender Code nicht?
aus diesem Workbook geht es mit diesem Code
awn = ActiveWorkbook.Name
SaveSetting("blabla", "blibli", "blublu", awn)
Workbooks.Open ("Pfad\muster.xls")
Workbooks(awn).Close Saved = True
End Sub
zu diesem, wo es so weitergeht
Private Sub Workbook_Open()
rem wbo = GetSetting("blabla", "blibli", "blublu")
rem Workbooks(wbo).Close Saved = True
UserForm1.show
Soweit scheinbar kein Problem, WB B wird geöffnet, WB A...