Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
348to352
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Prüfen ob Exceldatei offen

Prüfen ob Exceldatei offen
11.12.2003 13:10:40
atikar
Hallo Leute,

ich möchte prüfen ob eine bestimmte Exceldatei offen ist?

sub pruf()

if blblblbl = offen then msgbox "offen" : exit sub

exit sub

kann jemand helfen?

ciao

atikar

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Exceldatei offen
11.12.2003 13:15:30
andreas e
hallo,
hier ein bsp. aus der rechereche von martin beck

Sub mappeoffen()
Mappenname = InputBox("Namen eingeben")
For Each wb In Workbooks
If wb.name = Mappenname Then
MsgBox Mappenname & " ist bereits geöffnet."
Exit Sub
End If
Next wb
MsgBox Mappenname & " ist noch nicht geöffnet."
End Sub


Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen
Anzeige
AW: Prüfen ob Exceldatei offen
11.12.2003 13:17:53
xXx
Hallo,

Sub offen_oder_nicht()
Dim wbkX As Workbook
On Error GoTo Fehler
Set wbkX = Workbooks("Test.xls")
MsgBox "Bin auf"
Fehler:
If wbkX Is Nothing Then MsgBox "Nicht auf"
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige