Überprüfen ob Excel geöffnet ist

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

Betrifft: Überprüfen ob Excel geöffnet ist
von: Tim
Geschrieben am: 10.12.2003 11:40:57

Hallo,

ich möchte aus VB heraus überprüfen ob ein bestimmte Excel Mappe (z.B.: E:\....) geöffnet ist. Falls dies der Fall ist, soll verhindert werden, dass eine neue Mappe geöffnet wird. Ich dachte an eine Funktion, die das Geöffnet sein von Excel überprüft. Wie könnte diese aussehen?

Gruß Tim

Bild


Betrifft: AW: Doppelposting - siehe 10:45..
von: Tim Doppelt
Geschrieben am: 10.12.2003 11:45:17

..da hast du Antwort...


Bild


Betrifft: AW: Überprüfen ob Excel geöffnet ist
von: Tim
Geschrieben am: 10.12.2003 11:47:39

Das war unabsichtlich! Bin auf den "Zurück" Button des Browsers gekommen


Bild


Betrifft: AW: Überprüfen ob Excel geöffnet ist
von: Galenzo
Geschrieben am: 10.12.2003 11:51:49

jepp - und funktioniert die Lösung?


Bild


Betrifft: AW: Überprüfen ob Excel geöffnet ist
von: Tim
Geschrieben am: 10.12.2003 11:55:39

Nein leider noch nicht.

ich rufe die Funktion so auf:
If MappeOffen Then ExitSub

Er meckert rum, dass "Argument nicht optional" ist. k.A. was das soll!


Bild


Betrifft: AW: Überprüfen ob Excel geöffnet ist
von: Tim
Geschrieben am: 10.12.2003 12:01:31

hallo,

das Problem hab ich gelöst, due Funktion wird jetzt aufgerufen. Aber egal ob Excel offen ist oder nicht, die Funktion ist immer false.


Bild


Betrifft: AW: Überprüfen ob Excel geöffnet ist
von: Thomas Raschen
Geschrieben am: 10.12.2003 12:04:11

Excel ist doch immer geöffnet wenn du das Makro ausführst, oder?


Bild


Betrifft: AW: Überprüfen ob Excel geöffnet ist
von: Tim
Geschrieben am: 10.12.2003 12:06:10

Ich arbeite aus einer Form aus VB heraus, also nicht direkt aus Excel. Ich öffne ein Workbook und möchte verhindern, dass dieses mehrmals geöffnet wird.


Bild


Betrifft: AW: Überprüfen ob Excel geöffnet ist
von: Thomas Raschen
Geschrieben am: 10.12.2003 12:09:22

Hilft Dir das weiter?


Private Sub Workbook_Open()
    If Windows.Count > 1 Then
      MsgBox "Es ist mindestens noch eine weitere Datei geöffnet !!!"
End Sub


Gruß

Thomas


Bild


Betrifft: AW: Parameter !
von: Galenzo
Geschrieben am: 10.12.2003 12:32:30

der Aufruf der Funktion muß mit dem Parameter "Dateiname" erfolgen also z.B. so:
if MappeOffen ("C:\Test\MeineMappe.xls") then ....

mfg


Bild


Betrifft: AW: Parameter !
von: Tim
Geschrieben am: 10.12.2003 12:57:58

Ich hab den Aufruf mit dem Parameter versucht:

If MappeOffen(fname_xls_verz) then....


Function MappeOffen(fname_xls_verz As String) As Boolean
    Dim oMappe As Object
    On Error Resume Next
    Set oMappe = Workbooks(fname_xls_verz)
    If Not oMappe Is Nothing And Err = 0 Then
        MappeOffen = True
    End If
    On Error GoTo 0
End Function


Leider funktioniert die Funktion immer noch nicht so wie sie soll, also sie ist immer False.


Bild


Betrifft: AW: Parameter !
von: Galenzo
Geschrieben am: 10.12.2003 13:16:07

nöö - den Namen innerhalb der Prozedur brauchst du nicht umbenennen. Ist egal - der wird ja nur lokal in der Prozedur verwendet.
Wichtig ist der korrekte Aufruf der Function.
if MappeOffen ("C:\Test\MeineMappe.xls") then ....

oder

Dim sTest as Sting
sTest="C:\Test\MeineMappe.xls"
if MappeOffen (sTest) then ....

mfg


Bild


Betrifft: AW: Parameter !
von: Tim
Geschrieben am: 10.12.2003 13:28:51

Ja, die Funktion wird ja korreket aufegerufen, trotzdem geht es nicht.
Was kann da noch nicht stimmen?


Bild


Betrifft: AW: sorry - kleine Korrektur
von: Galenzo
Geschrieben am: 10.12.2003 13:50:12

Sorry -
korrigiere mal bitte diese Zeile so:
Set oMappe = Workbooks.Open(fname_xls_verz)
Dann sollte es gehen.


Bild


Betrifft: AW: sorry - kleine Korrektur
von: Tim
Geschrieben am: 10.12.2003 14:02:15

Es geht leider immer noch nicht. Die Funktion ist jetzt, anderes als vorhin, immer true. Egal ob das Arbeitsblatt offen oder zu ist.


Bild


Betrifft: AW: Überprüfen ob Excel geöffnet ist
von: Thomas Raschen
Geschrieben am: 10.12.2003 11:56:26

Schau mal hier nach. Sieht recht gut aus.

https://www.herber.de/forum/archiv/36to40/t37772.htm

Gruß

Thomas


Bild

Beiträge aus den Excel-Beispielen zum Thema " nur eintragen wenn Zelle leer"