Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abrage "Workbook *.xls offen?"

Abrage "Workbook *.xls offen?"
26.07.2006 12:52:01
Norman
Hallo Zusammen,
wisst Ihr, wie ich abfragen kann, ob eine bestimmte Excel Datei offen ist? Was für ein Wert wird zurückgegeben? Ich brauche solch eine Bedingung für eine if Anweisung.
Danke & Gruß
Norman

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abrage "Workbook *.xls offen?"
26.07.2006 13:01:58
Matthias
Hallo Norman,
dazu muss man eine Funktion selbst erstellen:

Function DateiIstOffen(fn As String) As Boolean
Dim wb As Workbook
Dim tmp As Boolean
For Each wb In Application.Workbooks
If UCase(wb.Name) = UCase(fn) Then
tmp = True
Exit For
End If
Next wb
DateiIstOffen = tmp
End Function

Rückgabewert: True oder False
Gruß Matthias
AW: Abrage "Workbook *.xls offen?"
26.07.2006 13:02:23
Jürgen
Hi Norman.
Versuchs mal damit.
Dim Treffer As Byte
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name = "DEIN_WORKBOOK.xls" Then Treffer = 1
Next wkb
If Treffer = 1 Then...
End If
Gruß, Jürgen
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige