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 geschlossen.
Wird die Userform über das Kreuz geschlossen, geht es im ersten Code weiter und WB A wird geschlossen.
Wird die Userform über eine Schaltfläche verlassen oder ähnliches, geht es dort weiter und WB A bleibt noch ewig offen. Das ist mir zu unübersichtlich. Ich möchte WB A gern zu haben. Deswegen die Versuche mit der Variablenübergabe über die Registry. Die rem-Zeilen in Workbook_Open funktionieren auch, allerdings bleibt der Workbook_Open Code danach stehen uns Userform1 wird nicht gezeigt.
Das scheint daran zu liegen, dass im WB A noch ein Before_Close-Ereignis durchlaufen werden muß, aber das würde ich gern lassen.
Komme mit dem Problem nicht weiter.
Danke
TF