Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
556to560
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
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahldialog für geöffnete Arbeitsmappen

Auswahldialog für geöffnete Arbeitsmappen
27.01.2005 16:18:33
Peter
Hallo,
ich arbeite gerade an Makros, mit denen Adressen zwischen Excelmappen hin- und herkopiert werden. Der Anwender soll über einen Auswahl-Dialog wählen können, in welche _geöffnete_ Arbeitsmappe eine Adresse kopiert werden soll.
Es müßte also schlicht ein Dialog aufgehen, in dem alle geöffneten Arbeitsmappen erscheinen. Wenn der Anwender einen Eintrag in diesem Dialog anklickt, wechselt Excel in diese Mappe.
Wie setzt man so etwas um?
Ich habe im Archiv allerhand Lösungen gefunden, um bestimmte Arbeitsblätter anzuwählen. Für mein Problem habe ich nichts gefunden.
Vielen Dank und beste Grüße
Peter Franz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahldialog für geöffnete Arbeitsmappen
P@ulchen
Hallo Peter,
eine Userform mit Combobox erstellen und folgenden Code in das Modul der UserForm:


Private Sub UserForm_Initialize()
   Dim wkb As Workbook
   For Each wkb In Workbooks
      ComboBox1.AddItem wkb.Name
   Next wkb
End Sub
Private Sub ComboBox1_Change()
   Workbooks(ComboBox1.Value).Activate
   Unload Me
End Sub


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: Auswahldialog für geöffnete Arbeitsmappen
28.01.2005 13:32:08
Peter
Hallo P@ulchen,
vielen Dank für die tolle Rückmeldung. Das funktioniert prima.
Wie Du so schön sagst: Das Forum lebt auch von den Rückmeldungen !
Also hier mein angepaßter Code für alle, die sich mit ähnlichen Problemen rumschlagen:

Private Sub UserForm_Initialize()
Dim wkb As Workbook
For Each wkb In Workbooks
If Left(wkb.Name, 3) <> "xyz" And _
Left(wkb.Name, 3) <> "abc" And _
Left(wkb.Name, 3) <> "bla" And _
Left(wkb.Name, 7) <> "PERSONL" Then
ComboBox1.AddItem wkb.Name
End If
Next wkb
End Sub



Private Sub ComboBox1_Change()
Workbooks(ComboBox1.Value).Activate
Unload Me
End Sub

Der angepaßte Code hat den Vorteil, dass er nur die Arbeitsmappen anbietet, die der Anwender auch verwenden soll/darf. In PERSONL.xls soll z.B. in der Regel nichts kopiert werden. Die anderen Bedinungen filtern alle geöffneten Arbeitsmappen heraus, die mit "xyz", "abc" oder "bla" anfangen.
Noch einmal danke und beste Grüße
Peter Franz
Anzeige

299 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 UserForm

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