Prüfen ob Exceldatei offen

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

Betrifft: Prüfen ob Exceldatei offen
von: atikar
Geschrieben am: 11.12.2003 13:10:40

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

Bild


Betrifft: AW: Prüfen ob Exceldatei offen
von: andreas e
Geschrieben am: 11.12.2003 13:15:30

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


Bild


Betrifft: AW: Prüfen ob Exceldatei offen
von: xXx
Geschrieben am: 11.12.2003 13:17:53

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!


Bild

Beiträge aus den Excel-Beispielen zum Thema " mehrere optionsfelder?"