was mache ich verkehrt?
Wolfgang
Beim Öffnen eines UF habe ich eine Abfrage eingebaut, ob noch eine andere Mappe geöffnet ist (siehe auch vorherige Thread); nun würde ich gerne über die Abfrage erreichen, dass das UF sich schließt, wenn noch eine andere Mappe geöffnet ist. Der Code macht aber nicht das, was ich möchte. Was muß ich da verändern? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Private Sub UserForm_Initialize()
Dim objshell As Object
Application.ScreenUpdating = False
If Workbooks.Count > 1 Then _
MsgBox "Bitte die anderen Mappen schliessen.", vbExclamation, "Hinweis"
' Exit Sub
'Unload Me
Set objshell = CreateObject("WScript.Shell")
Desktop = objshell.SpecialFolders("Desktop")
Desktop = IIf(Right$(Desktop, 1) = "\", Desktop, Desktop & "\")
Set objshell = Nothing
Call SucheDatei
Application.ScreenUpdating = True
End Sub