Checken, ob noch andere Mappen geöffnet sind.

Forumthread: Checken, ob noch andere Mappen geöffnet sind.
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Checken, ob noch andere Mappen geöffnet sind.

Wolfgang

Hallo,
für eine bestimmte Abfrage darf wohl offensichtlich nur die aktuelle Excel-Mappe geöffnet sein, damit keine Fehlermeldung erscheint. Wie kann ich das abfangen und über einen Code klären, ob noch andere Excel-Mappen geöffnet sind, damit dann MsgBox erscheint, die zunächst auffordert, alle anderen Mappen zu schliessen. - Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
Wolfgang

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Checken, ob noch andere Mappen geöffnet sind.

Beverly
AW: Checken, ob noch andere Mappen geöffnet sind.

Nepumuk
Danke Beverly und Nepumuk !

Wolfgang

AW: Checken, ob noch andere Mappen geöffnet sind.

11.10.2009 11:53:20

Beverly

Hi Wolfgang,

Sub OffenPruefen()
Dim wbMappe As Workbook
Dim inOffen As Integer
For Each wbMappe In Workbooks
If wbMappe.Name  ThisWorkbook.Name And wbMappe.Name  "Personl.xls" Then inOffen =  _
inOffen + 1
Next wbMappe
If inOffen > 0 Then MsgBox "Bitte die anderen Arbeitsmappen schließen"
End Sub

Den Code müsstest du noch um dide Namen von Add-Ins ergänzen falls du welche verwendest

AW: Checken, ob noch andere Mappen geöffnet sind.

11.10.2009 11:53:30

Nepumuk

Hallo,
so z.B.

Public Sub test()
If Workbooks.Count > 1 Then _
MsgBox "Bitte die anderen Mappen schliessen.", vbExclamation, "Hinweis"
End Sub

Gruß
Nepumuk

Danke Beverly und Nepumuk !

11.10.2009 12:07:52

Wolfgang

Hallo Beverly und Nepumuk,
Danke für Eure schnellen Rückmeldungen. Beide Codes funktionieren wunderbar, so dass ich nun hierüber die Fehlermeldung abfangen kann. Einen schönen Sonntag noch.
Herzliche Grüße
Wolfgang