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

Prüfen wenn Datei vorhanden

Prüfen wenn Datei vorhanden
23.04.2003 19:25:01
Walter
Hallo Zusammen,

habe eine kleine Frage.
Ich habe ein Makro bei dem Excel mit:
Application.Quit
geschlossen wird.
Ich möchte mit einer If Then Abfrage prüfen, wenn noch eine Datei
vorhanden ist, soll Excel nicht geschlossen werden.
Wenn z.B. über Fenster ich noch sehe das eine Datei im Hintergrund vorhanden ist.
Aber wie ???
Gruss Walter


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Prüfen wenn Datei vorhanden
23.04.2003 19:28:30
moe

Hallo Walter
ich glaube mein makro wird dir wieterhelfen

Gruss
moe

Sub Fensterzählen()
If Application.Windows.Count > 1 Then
MsgBox "Es ist noch eine offen"
End If

End Sub

Re: Prüfen wenn Datei vorhanden
23.04.2003 19:56:39
Walter

Hallo Moe,

herzlichen Dank, eine bitte möchte aber wenn eine offen ist,
weiterarbeiten können.
Klappt das
Gruss walter

Re: Prüfen wenn Datei vorhanden
23.04.2003 19:59:01
moe

So müsste es gehen hier wird das aktuelle sheet geschlossen aber excel beleibt offen. wenn mehr als eine Datei geöffnet sind.

gruss
moe

Sub Fensterzählen()
If Application.Windows.Count > 1 Then
activeworkbook.close
End If

Anzeige
Re: Prüfen wenn Datei vorhanden
23.04.2003 20:56:45
Walter

Hallo Moe,
herzlichen Dank.
Es klappt alles vorzüglich.
Gruss
Walter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige