Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1820to1824
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl geöffneter Mappen in Excel

Anzahl geöffneter Mappen in Excel
17.03.2021 15:00:49
Günther
Hallo zusammen,
gibt es in Excel einen Bereich, der die Anzahl aller geöffneten Excel-Mappen enthält (ohne Namen, nur die Anzahl).
Und wenn ja, kann man diesen Bereich auslesen bzw. in einem Excel-Tabellenblatt verwenden?
Wäre super wenn mir jemand einen Tipp geben könnte.
Danke schon mal und Servus
Günther

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
in VBA: Workbooks.Count
17.03.2021 15:04:25
Rudi

AW: in VBA: Workbooks.Count
17.03.2021 15:31:08
Günther
Hi Rudi,
danke für die rasche Antwort.
Den Befehl "workbooks.count" kenne ich schon.
Aber dann müsste ich immer wieder dieses Makro ausführen, um den aktuellsten Stand zu sehen.
Das wollte ich eigentlich verhindern.
Vielleicht habe ich mich auch falsch ausgedrückt.
Ich habe eine Hauptanwendung in dem ich ein Feld mit dieser Information versorgen will. Und zwar möglichst ohne dafür ein Makro aufzurufen (das müsste ja sonst permanent laufen um immer aktuell zu sein).
Aus dieser Hauptanwendung heraus werden dann weitere Excel-Anwendungen in der gleichen Instanz aufgerufen.
Jeder Start einer neuen Excel-Anwendung würde dann diese Anzahl um +1 erhöhen, jede Beendigung einer Excel-Anwendung diesen Wert wieder um -1 verringern.
In meiner Hauptanwendung hätte ich so immer einen Überblick über die momentan geöffneten Excel-Anwendungen.
Ich hoffe, mich jetzt etwas verständlicher ausgedrückt zu haben.
Servus
Günther

Anzeige
AW: in VBA: Workbooks.Count
17.03.2021 16:08:59
Rudi
Hallo,
das kannst du nur mit einer eigenen Klasse der Application erreichen.
In deiner Hauptanwendung:
In DieseArbeitsmappe: 
Private Sub Workbook_Open()
Set objApp = New clsApplication
End Sub

In einem Modul: 
Public objApp As clsApplication

Füfe ein Klassenmodul 'clsApplication' ein.
Code: 
Dim WithEvents myApp As Application
Private Sub Class_Initialize()
Set myApp = Application
End Sub
Private Sub myApp_WorkbookOpen(ByVal Wb As Workbook)
ThisWorkbook.Sheets(1).Cells(1, 1) = Workbooks.Count    'Blatt/ Zelle anpassen
End Sub
Private Sub myApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
ThisWorkbook.Sheets(1).Cells(1, 1) = Workbooks.Count - 1 'Blatt/ Zelle anpassen
End Sub

Gruß
Rudi

Anzeige
AW: in VBA: Workbooks.Count
17.03.2021 16:17:05
Yal
Hallo Günther,
Makro müssen nicht "permanent" laufen, es gibt auch UDF User Defined Function. Es wird in der Tabelle wie eine normale Funktion eingesetzt und aktualisiert sich bei jeden F9 (ganze Mappe) oder Shift+F9 (nur akt. Blatt).
UDF müssen in einem Modul abgelegt (Also nicht in Formular- oder Worksheet-Codepane).
Public Function AnzahlWB() as Integer
AnzahlWB = Workbooks.Count
End Function
Ansonst musst Du eine WithEvent Application-Object implementieren, dass Dir das Öffnen oder schliessen eine WB meldet.
VG
Yal

Anzeige
war mein erster Ansatz
17.03.2021 16:24:09
Rudi
Hallo,
aktualisiert sich aber nicht zuverlässig. Auch nicht mit Application.Volatile.
Gruß
Rudi

AW: in VBA: Workbooks.Count
17.03.2021 16:47:32
Günther
Hallo Rudi,
hallo Yal,
besten Dank Euch beiden für die Info.
Werde es bei Gelegenheit ausprobieren und gebe wieder Bescheid.
Servus und einen schönen Abend,
Günther

AW: in VBA: Workbooks.Count
17.03.2021 20:29:31
Günther
Hallo nochmal,
also es funktioniert nach anfänglichen Schwierigkeiten - s u p e r !!!
Besten Dank nochmal und schönen Abend, Servus
Günther

22 Forumthreads zu ähnlichen Themen

Makros bei geöffneter Mappe aktivieren
Joni

Hi,
gibt es einen Weg Makros in einer Mappe zu aktivieren wenn diese bereits geöffnet ist. Beim Öffnen habe ich die Makros nicht aktiviert, da diese sonst automatisch ausgeführt werden. Jetzt würde ich gerne einen Teil probieren. Wenn ich die Datei speichere und die Makros beim Öffnen aktiv...
29.10.2009 17:48:21
Thread-ID: 1113127
5 Beiträge
Anzeige
Aktualisierung von Zellen von geöffneter Arbeitsma
Zellen

Hallo,
vielleicht stehe ich auf dem Schlauch
Ichlasse jede Minute durch ein Makro Werte aktualisieren:
Sub Makro1() On Error Resume Next Application.OnTime EarliestTime:=datA, Procedure:="Makro2", Schedule:=False datA = Now + CDate("00:05:00") Application.OnTime datA, Procedure:="Ma...
02.02.2010 21:56:51
Thread-ID: 1135268
4 Beiträge
liste zuletzt geöffneter Dateien erhöhen
Reinhard

Hallo Wissende,
ich bin sicher, daß man da die Anzahl verändern kann oder auf andere Art, sagen wir mal die zuletzt 50 gespeicherten/bearbeiteten Datein aulisten kann um sie leicht aufrufen zu können.
Ich glaub ich sah auch schon Code dazu.
Jetzt bräuchte ich den. Diese maximal 9 si...
12.03.2011 22:32:24
Thread-ID: 1205465
6 Beiträge
Anzeige
Prüfen auf geöffneter Datei - advanced
Schmitty

Hallo zusammen,
da bin ich schon wieder:
Nächstes "Spezial-Problem". Ich nutze folgenden Code, um per Knopfdruck zu prüfen, ob eine andere Excel-Datei geöffnet ist. Ist das der Fall, wird eine Zelle gelb gefärbt ansonsten blau:
' Prüfen ob die "Kunden-Datenbank" geöffnet ist Functio...
02.10.2014 13:59:50
Thread-ID: 1384556
4 Beiträge
Bel. Bereiche aus neu geöffneter Datei importieren
Matthias

Guten Tag,
ich stehe vor folgendem Problem:
Ich öffne über ein Makro mittels Auswahlfenster eine andere Excel-Datei mit folgendem Code: Sub OeffneDatei() Dim Dateiauswahl As Variant Dateiauswahl = Application.GetOpenFilename If Dateiauswahl False Then Workbooks.Open Filename:=Dateiausw...
15.10.2016 12:35:14
Thread-ID: 1519803
5 Beiträge
Formatierung von VBA geöffneter CSV-Datei ändern
VBA

Hallo Zusammen,
ich versuche etliche csv-Dateien in ein Excelsheet zu kopieren. Dazu öffne ich per VBA die csv- _
Datei und kopiere den Inhalt. Soweit so gut. Jedoch zeigt es in der CSV die Werte nicht richtig _ an. Unten hab ich ein Beispiel der zu einlesenden Datei. Die Werte mit 0....
31.05.2017 09:03:55
Thread-ID: 1561304
2 Beiträge
Benutzernamen von bereits geöffneter Datei auslese
bereits

Hallo Zusammen,
mir stellt sich gerade folgendes Problem:
Aus einer freigegebenen Arbeitsmappe heraus werden in eine andere Mappe Daten verschoben. Ist die Mappe, in die verschoben werden soll, jedoch von jemand anderem geöffnet, dann wird sie logischerweise nur im Lesemodus geöffnet un...
20.06.2017 11:48:17
Thread-ID: 1564906
9 Beiträge
VBA Pfad aus geöffneter Adobe PDF Datei auslesen
Tom

Hallo Zusammen,
wie kann ich mittels VBA den Pfad der aktuell geöffneten/er PDF Daten in Adobe Reader auslesen?
Vielen Dank vorab.
Grüße
Tom
12.07.2017 17:07:55
Thread-ID: 1568836
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
3
5
2
3
4
1
8
12
4
1
10
6
1
3
4
5
2
2
8
5