AddIns - Öffnen/Schließen von Dateien

Hallo, liebe VBA-Gurus!
Das ist mein erster Beitrag in diesem Forum - bis dato konnte ich zu meinen Problemen hier immer eine passende Lösung finden!
Bei folgendem Problem allerdings beiße ich mir die Zähne aus:
Über ein AddIns-Makro (xlam) können in einer Userform bestimmte xlsm-Dateien aufgerufen werden.
In diesen Dateien müssen Einträge vorgenommen werden, welche wiederum mittels ADODB-Connection in einer MSSQL-Datenbank gespeichert werden.
Damit ich den Fokus auf der geöffneten Datei habe, muss ich die Userform mit .Hide ausblenden.
Das funktioniert alles ganz prima!
Ich schaffe es allerdings nicht, dass ich nach der Bearbeitung der Datei diese schließe und gleichzeitig wieder das Addins-Userform anzeige (für den Aufruf einer anderen Datei). Sobald ich nämlich die geöffnete Datei schließe, ist Feierabend - sämtlicher Code, der danach folgt, wird nicht mehr ausgeführt.
Ich hab's auch schon damit probiert, vor dem Schließen (in Workbook_BeforeClose) das AddIns-Userform mit Application.Run wieder anzuzeigen und dann erst die Datei zu schließen - aber dann ist auch die Userform wieder weg!
Hat jemand eine Idee, wie's geht?
lG, CHRiSi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo René,
anbei eine zusammengefasste Abfolge des Codes:
1) ADDINS.xlam: Beim Öffnen des Addins wird das Flag userform_initial versorgt
userform_initial = True
2 + 6) ADDINS.xlam: Beim Initialize der Userform wird abhängig vom Flag die aufgerufene Datei geschlossen


Private Sub AddIns_Userform_Initialize()
If userform_initial = False then
Workbooks(Testdatei.xlsm).Close False
End if
End Sub

3) ADDINS.xlam: Im Userform AddIns_Userform wird die Datei beim Klick auf Button OK geöffnet


Private Sub cmdOK_Click()
Workbooks.Open Testdatei.xlsm
End Sub

4) TESTDATEI.xlsm: Beim Schließen der Datei mit dem OK-Button wird die Addins-Prozedur ShowUserform aufgerufen:


Private Sub cmdClose_Click()
Application.Run "'AddIns.xlam'!ShowUserform"
End Sub

5) ADDINS.xlam: Das Flag wird auf False gesetzt und die Userform wieder aufgerufen:


Public Sub ShowUserform
userform_initial = False
AddIns_Userform.Show
End Sub

Hoffentlich kannst du damit was anfangen!
lG, CHRiSi

Beliebteste Forumthreads (12 Monate)

AddIns - Öffnen/Schließen von Dateien

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

157 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

AddIns - Öffnen/Schließen von Dateien

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

157 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread