Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

alle offenen Arbeitsmappen auflisten | Herbers Excel-Forum


Betrifft: alle offenen Arbeitsmappen auflisten von: Thomas Adams
Geschrieben am: 24.10.2008 11:27:53

Hallo,

wie kann ich in einer Combobox (in Userform eingebette) alle offenen Arbeitsmappen anzeigen lassen?
Und bei der Auswahl einer Datei sollen in einem Listenfeld alle in dieser Arbeitsmappe enthaltenen Tabellenblätter angezeigt werden.

Bin für jeden Tipp dankbar.

Gruß

Thomas

  

Betrifft: AW: alle offenen Arbeitsmappen auflisten von: Hajo_Zi
Geschrieben am: 24.10.2008 11:36:08

Hallo Thoams,

bei VBA Gut müßte Dich folgender Ansatz weiter bringen.

Sub Offen(Name As String)
    BoOffen = False
    For Each WbAm In Workbooks
        If UCase(WbAm.Name) = UCase(Name) Then
            BoOffen = True
            Exit For
        End If
    Next
End Sub




GrußformelHomepage


  

Betrifft: AW: alle offenen Arbeitsmappen auflisten von: Andi
Geschrieben am: 24.10.2008 11:37:31

Hi,

kopiere dies in Modul des UserForm:

Private Sub UserForm_Initialize()
Dim wb As Workbook
For Each wb In Workbooks
ComboBox1.AddItem wb.Name
Next wb
End Sub



Private Sub ComboBox1_Change()
Dim ws As Worksheet
ListBox1.Clear
For Each ws In Workbooks(ComboBox1.Value).Worksheets
ListBox1.AddItem ws.Name
Next ws
End Sub



Schönen Gruß,
Andi


  

Betrifft: AW: alle offenen Arbeitsmappen auflisten von: Thomas Adams
Geschrieben am: 24.10.2008 11:59:46

Hallo Hajo und hallo Andi,

vielen Dank für die schnelle Hilfe.

Ich denk den ersten Teile meines Problems habe ich gelöst.
aber wie bekomme ich nun beim Auswählen der Arbeitsmappe in einem Listenfeld im gleichen Userform die in der ausgewählten Arbeitsmappe enthaltenen Blätter aufgelistet.

Gruß

Thomas


  

Betrifft: AW: alle offenen Arbeitsmappen auflisten von: Andi
Geschrieben am: 24.10.2008 12:05:58

Hi,

das macht der zweite Teil meines Codes, das ComboBox1_Change-Event.

Schönen Gruß,
Andi


  

Betrifft: AW: alle offenen Arbeitsmappen auflisten von: Thomas Adams
Geschrieben am: 24.10.2008 12:15:15

Hi Andi,

oh ja, ich habe ganz vergessen mein Listenfeld mit auf´s Userform zu packen.

Danke nochmals.

Jetzt läuft es.

Gruß

Thomas


  

Betrifft: gern geschehen... von: Andi
Geschrieben am: 24.10.2008 12:16:28

Dann kann's natürlich nicht funktionieren... ;-))


Beiträge aus den Excel-Beispielen zum Thema "alle offenen Arbeitsmappen auflisten"