Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle offenen Arbeitsmappen auflisten

alle offenen Arbeitsmappen auflisten
24.10.2008 11:27:53
Thomas
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

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle offenen Arbeitsmappen auflisten
24.10.2008 11:36:00
Hajo_Zi
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



AW: alle offenen Arbeitsmappen auflisten
24.10.2008 11:37:31
Andi
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

Anzeige
AW: alle offenen Arbeitsmappen auflisten
24.10.2008 11:59:46
Thomas
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
AW: alle offenen Arbeitsmappen auflisten
24.10.2008 12:05:58
Andi
Hi,
das macht der zweite Teil meines Codes, das ComboBox1_Change-Event.
Schönen Gruß,
Andi
AW: alle offenen Arbeitsmappen auflisten
24.10.2008 12:15:15
Thomas
Hi Andi,
oh ja, ich habe ganz vergessen mein Listenfeld mit auf´s Userform zu packen.
Danke nochmals.
Jetzt läuft es.
Gruß
Thomas
gern geschehen...
24.10.2008 12:16:28
Andi
Dann kann's natürlich nicht funktionieren... ;-))
Anzeige

300 Forumthreads zu ähnlichen Themen

Speichern in freigegebenen Arbeitsmappen
Jürgen

Hallo,
habe zur Zeit folgendes Problem:
Gebe über eine Userform Daten in eine freigegebene Arbeitsmappe ein. Wie kann ich sicherstellen, daß auch alle Daten korrekt eingegeben/gespeichert werden. Möchte erreichen, daß die Daten vom User1 die er gerade in die Zeile XY einträgt nicht mit...
03.11.2008 13:01:09
Thread-ID: 1021312
8 Beiträge
Anzeige
Datenaktualisierung in freigegebenen Arbeitsmappen
Jens

Hallo Excel-Experten,
habe folgendes Problem:
Wir nutzen eine im Netzwerk (5 -6 Arbeitsplätze) freigegebene Arbeitsmappe (Excel 2003).
Darin befinden sich im oberen Bereich ein Belegungsplan unserer Einsatzkräfte
Weiter unten ist eine Datentabelle von unserem CRM System eingebun...
08.01.2009 10:34:00
Thread-ID: 1037792
5 Beiträge
Absturz bei 2 geöffneten Arbeitsmappen
Steffen

Hallo zusammen,
habe das Problem das bei einer mit VBA programmierten Arbeitsmappe nach Öffnen einer weiteren Arbeitsmappe (ohne Programmierung) Laufzeitfehler auftreten und sich die Makros so nicht mehr ausführen lassen. Schliesse ich die zusätzliche Mappe so taucht das Problem nicht mehr...
12.01.2009 23:48:54
Thread-ID: 1039058
2 Beiträge
Anzeige
Mehrere Arbeitsmappen in ein Tabellenblatt kopiere
nina

Hallo ihr Lieben,
ich möchte gerne aus einer Arbeitsmappe mit 28 - 31 Dateien (mit jeweils drei verschiedenen Arbeitsblättern) immer nur das zweite Arbeitsblatt kopieren und in eine Liste untereinander in eine Tabelle kopieren. Da ich dieses nicht händisch machen möchte, da sich dieses stän...
04.03.2009 13:06:58
Thread-ID: 1056342
9 Beiträge
Arbeitsmappen mit Ausnahme schliessen
peter

Hallo und guten Tag
Wie kann ich mit VBA alle Exel Arbeitsmappen mit Ausnahme einer "MeineDatei.xls" schliessen.
Vielen Dank schon mal im voraus
Gruß Peter
08.04.2009 19:53:11
Thread-ID: 1067815
5 Beiträge
Blätter in Arbeitsmappen ausblenden
Thorsten

Guten Tag,
besteht die Möglichkeit in Excel zwei Tabellenblätter dauerhaft auszublenden.
So, dass diese nur per Passwort o.ä. wieder eingeblendet werden können?
Vielen Dank!
LG
Thorsten
14.07.2009 15:16:03
Thread-ID: 1088531
10 Beiträge
Suche über mehrere Arbeitsmappen
Misery1704

Hallo und Hilfe,
ich muß für meine Chefin ein Sheet inkl. VBA erstellen, leider hab ich keine Ahnung wie.
In einem Ordner (Vorstellungsgespräche) sind mehrere Excel-Dateien (nach Datum benannt) hinterlegt. In diesen über 200 Dateien (Bewertung der einzelnen Bewerber) soll per Userform e...
03.08.2009 12:39:41
Thread-ID: 1093186
13 Beiträge
Massenpfl.makro um Arbeitsmappenmodule zu leeren?
alexander

Hallo,
ich habe eine Menge an Dateien wo ich gerne den VBA Code aus den Arbeitsblattmodulen löschen möchte. Dasselbe auch für den Code aus "Diese Arbeitsmappe".
Er soll die Dateien quasi nacheinander öffnen und den den Code rauslöschen (aber nur aus den Tabellenblattmodulen).
wie ge...
19.08.2009 13:55:03
Thread-ID: 1097111
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox ListBox

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
7
2
4
1
2
8
4
9
12
2
12
2
1
2
3
10
2
5
1
2
9
1
9
4
1