ich habe den Code den du mir geschickt hast in meiner Userform (Klassenmodul der UserForm) eingebunden. Der Rücksprung zur Ursprungsform bekomme ich aber nicht hin. Es wird zwar eine Dialogbox zur Auswahl einer Datei angeboten und diese auch geöffnet, aber der Rücksprung nach dem schließen bleibt mir versagt. Hast du nicht vielleicht Beispielmappe?
(Aus einer Userform öffne ich per ComnandButton ein anderes Excelfile. Was muss ich nun anstellen, das ich zu meiner Ursprungs-Userform zurückspringen kann wenn das zuvor geöffnete Excelfile wieder geschlossen wurde? Der Befehl z.B.
frmuserform1.show funktioniert nicht. Falls jemand eine Idee hat, so last es mich Wissen.)
Private Sub cmdSelectFile_Click()
Dim vFile As Variant
vFile = Application.GetOpenFilename("Arbeitsmappe (*.xls), *.xls")
If vFile = False Then Exit Sub
Workbooks.Open vFile
SetForegroundWindow GetHandle
End Sub
Private Declare Function FindWindow Lib "user32.dll" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Function GetHandle() As Long
Dim sFormClassName As String
If Application.Version < 9 Then
sFormClassName = "ThunderXFrame"
Else
sFormClassName = "ThunderDFrame"
End If
GetHandle = FindWindow(sFormClassName, Me.Caption)
End Function
Hat vielleicht sonst jemand im Forum eine Idee für mein Problem?
Gruß...Richard