Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA / Namen der geöffneten Workbooks abrufen

225 views
Skip to first unread message

Marc Staiger

unread,
Nov 3, 1999, 3:00:00 AM11/3/99
to
Hallo Profis,
Wie kann man die Namen aller geöffneten Workbooks ermitteln?

Gruß & Dank im voraus,

MS


Konrad Hauke

unread,
Nov 3, 1999, 3:00:00 AM11/3/99
to
Hallo Mark Staiger!

Folgendes Macro müsste Dir weiterhelfen.

Public Sub DisplayAllWorkbooks()
Dim wb As Workbook

For Each wb In Workbooks
Debug.Print wb.Name
Call MsgBox("WorkbookName:" & wb.Name, , "ACHTUNG")
Next wb
End Sub


mfg
KoHa

Staiger <msta...@informatik.uni-siegen.de> wrote in message
news:3820A851...@informatik.uni-siegen.de...

Frank Arendt-Theilen

unread,
Nov 3, 1999, 3:00:00 AM11/3/99
to
Hallo Marc,
folgendes XL8-Makro,

Sub AlleArbeitsMappenAnzeigen()
Dim wbArbeitsmappe As Workbook, strName As String
For Each wbArbeitsmappe In Application.Workbooks
strName = strName & wbArbeitsmappe.Name & vbLf
Next
MsgBox "Die folgenden Arbeitsmappen sind geöffnet: " & _
vbLf & strName
End Sub

MfG Frank
__________________________________________________________
Frank Arendt-Theilen, MVP für Microsoft Excel
E-Mail: Thei...@t-online.de


Am Wed, 03 Nov 1999 22:25:37 +0100, schrieb Marc Staiger
<msta...@informatik.uni-siegen.de> in microsoft.public.de.excel zu
"VBA / Namen der geöffneten Workbooks abrufen":

0 new messages