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
1308to1312
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Workbook_Open()

Workbook_Open()
10.04.2013 16:11:43
Christopher
Hallo Comrads,
ich hab mal ne Frage.
Ich habe Tabellenblätter (Januar-Februar). In diesen befinden sich Listboxen (Alle heissen Listbox1). Auf einem extra Tabellenblatt habe ich eine Tabelle die ich gerne die ich gerne bei jedem Öffnen in die Listboxen füllen würde.
Bis jetzt hab ich das über Listfillrange gemacht. Ist aber doof und kann ich so nicht gebrauchen.
Also hab ich es über ein Makro gemacht
ListBox1.List = .Range("M8:M27").Value
Workbook Open funktioniert ja nur in "DieserArbeitsmappe".
Call funktioniert in "DieserArbeitsmappe" nicht.
Gibt es keine Möglichkeit Makros in Tabellen mit Workbook Open zu starten?

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

Betreff
Datum
Anwender
Anzeige
AW: Workbook_Open()
10.04.2013 16:17:29
Rudi
Hallo,
das extra Tabellenblatt ist das erste: 

Private Sub Workbook_Open()
Dim i As Integer
For i = 2 To Worksheets.Count
Worksheets(i).listbox1.List = Sheets(1).Range("M8:27").Value
Next
End Sub

Gruß
Rudi

AW: Workbook_Open()
11.04.2013 05:39:38
Christopher
Verdammt ich habs fast gehabt ;)
Nur dass ichs immer so probiert habe glaub ich.
Private Sub Workbook_Open()
With Tabelle1
.listbox1.List = Sheets(1).Range("M8:27").Value
End with
End Sub

Auf alle Fälle Danke :)
Anzeige

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige