Irgendeine Datei geöffnet bzw. sichtbar?

Forumthread: Irgendeine Datei geöffnet bzw. sichtbar?

07.08.2003 11:21:33

Flash

Hallo,
in einigen anderen Beiträgen hat es schon Fragen zu geöffneten Dateien gegeben. Aber wie sieht es aus mit einer Funktion oder Code, ob irgendeine Datei geöffnet ist und auch sichtbar ist, also ausgeblendet zählt nicht?
Vielen Dank im voraus.
Gruß,
Flash

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Irgendeine Datei geöffnet bzw. sichtbar?

07.08.2003 14:22:59

K.Rola

AW: Irgendeine Datei geöffnet bzw. sichtbar?

07.08.2003 14:22:59

K.Rola

Hallo,
schöner Name,
Option Explicit


Sub offen_visible()
Dim wb As Object
For Each wb In Workbooks
If UCase(wb.Name) = "TEST.XLS" Then
If Windows(wb.Name).Visible Then
MsgBox wb.Name
End If
End If
Next
End Sub

Gruß K.Rola

Irgendeine Datei geöffnet bzw. sichtbar?

Forumthread: Irgendeine Datei geöffnet bzw. sichtbar?

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread