workbooks

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
  • workbooks von wolfgang vom 03.07.2002 - 12:58:28
    • zu 1. von Timo vom 03.07.2002 - 13:41:16
nach unten

Betrifft: workbooks
von: wolfgang
Geschrieben am: 03.07.2002 - 12:58:28

1.Möchte prüfen ob eine bestimmte Datei schon geöffnet.
2.Möchte dieses fenster so modifizieren das nur mehr Titelbar vorhanden ist bzw. die Grösse sollte mit bestimmten werten festgelegt sein.

danke im voraus

wolfgang


nach oben   nach unten

zu 1.
von: Timo
Geschrieben am: 03.07.2002 - 13:41:16

Hallo Wolfgang,
so sollte es gehen:


Sub Tester()

Dim i as Byte
Dim Zielname as String
Dim ZielOffen as Boolean

Zielname = Name_der_Datei 'Hier den zu prüfenden Namen einsetzen!

i = 0
    
    Do
        i = i + 1
        If Workbooks(i).Name = Zielname Then
            ZielOffen = True
        End If
    Loop Until i = Workbooks.Count

If ZielOffen Then
    MsgBox("Zieldatei bereits geöffnet")
Else
    MsgBox("Zieldatei ist nicht geöffnet")
End If

End Sub

Gruss
Timo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Shell-Funktion - Programm wartet"