Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
ComboBox mit Tabellennamen füllen
23.09.2004 15:57:20
Uwe
Hallo,
ich habe eine UserForm, in der in einer ComboBox1 die Namen der Tabellenblätter wiedergegeben werden sollen. Wichtig hierbei ist, dass diese ComboBox auch auf Veränderungen(z. B. Hinzufügen oder Entfernen einer Tabelle) reagieren und die Inhalte sofort dem aktuellen Stand der Tabellenblätter anpassen soll...
Ich wäre sehr dankbar, wenn mir da jemand weiterhelfen könnte...

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

Betreff
Datum
Anwender
Anzeige
AW: ComboBox mit Tabellennamen füllen
23.09.2004 18:14:08
Klaus
Hallo Uwe,
folgenden Code in deine UserForm:

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

Bei jedem Aufruf werden die Tabellenblätter neu eingelesen.
Gruß Klaus
AW: ComboBox mit Tabellennamen füllen
ransi
hallo uwe
versuch als ansatz mal so:
Option Explicit

Private Sub Workbook_NewSheet(ByVal Sh As Object)
mach_cb_voll
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
mach_cb_voll
End Sub


Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
mach_cb_voll
End Sub

und in ein modul dies hier:
Public Sub mach_cb_voll()
Dim i As Integer
UserForm1.ComboBox1.Clear
For i = 1 To Worksheets.Count
UserForm1.ComboBox1.AddItem (Worksheets(i).Name)
Next
End Sub
ransi
Anzeige

17 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige