Hi,
wenn du den genauen Fenstertitel weißt, und der sich nicht ändert ist’s ganz leicht.
Kopier das hier über deine Funktion und dann klappts.
Private Declare Function FindWindow Lib „user32“ Alias „FindWindowA“ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Function istfensteroffen(strWindowName As String) As Boolean
Dim lngResult As Long
lngResult = FindWindow(vbNullString, strWindowName)
If lngResult 0 Then istfensteroffen = True
End Function
Oder hast du noch was anderes mit den Fenstern vor?
Gruß
Andreas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]