bei diesem miesen Wetter brüte ich gerade über meine Userform:
Ein CommandButton ist mit folgendem Code belegt:
Private Sub cmd_EWO_Eingabe_Click()
Dim sFile As String, sPath As String
sFile = "EWO.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbExists("Ewo.xls") = False Then
If Dir(sPath) = "" Then
MsgBox "Datei " & sPath & " wurde nicht gefunden!"
Else
frm_Parameter.Hide
Workbooks.Open sPath
End If
Else
frm_Parameter.Hide
Workbooks(sFile).Activate
End If
End Sub
Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function
Was leider nicht funktioniert: die USERFORM schließt sich nicht "frm_Parameter.Hide". Wie kann ich erzwingen, dass sich die USERFORM schließt und die gesuchte Datei aktiviert wird?
Danke für Eure Hilfe.
Gruss
Werner