UF-Combobox mit Werten aus versteckter Tabelle fül

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: UF-Combobox mit Werten aus versteckter Tabelle fül
von: Rainer Quaas
Geschrieben am: 18.06.2002 - 20:57:35

Hallo Excel User,

eine Userform-Combobox wird mit Werten aus „Tabelle1“ gefüllt.

Nun möchte ich aber, dass Tabelle1 nicht angezeigt wird. Daher verwende ich in der Workbook_Open-Prozedur:

Worksheets("Tabelle1").Visible = xlVeryHidden

Ergebnis: Das Tabellenblatt “Tabelle1” wird korrekt ausgeblendet, nur wird jetzt in meiner Userform-Combobox nichts mehr angezeigt.

Wie kann man auf die Daten des versteckten Tabellenblattes zugreifen, oder welche andere Möglichkeit gibt es die Daten nur in der Userform-Combobox anzuzeigen?

Mein Ansatz sieht folgendermaßen aus:

Application.ScreenUpdating = False
Worksheets("Tabelle1").Visible = True
‘beliebiger Code
Worksheets("Tabelle1").Visible = xlVeryHidden
Application.ScreenUpdating = True

Bloß, welchem Ereignis muß ich das zuordnen?

Gruß Rainer

nach oben   nach unten

Re: UF-Combobox mit Werten aus versteckter Tabelle fül
von: Ramses
Geschrieben am: 18.06.2002 - 23:01:25

Hallo Namensvetter,

wenn du in der Combobox die Row-Source auf die ausgeblendete Tabelle gesetzt hast, funktioniert es tatsächlich nicht.

ein Workaround:

Blende die Tabelle temporär ein:

Aplication.ScreenUpdating = False
DeineTabelle.Visible = true

Jetzt kannst du auf den Bereich zugreifen und mit

Me.ComboBox1.AddItem(Range("A1"))
Me.ComboBox1.AddItem(Range("A2"))
Me.ComboBox1.AddItem(Range("A3"))

oder

For i = 1 to 3
Me.ComboBox1.AddItem(cells(i,1))
Next i

die Combobox füllen und anschliessend die Tabelle wieder mit xlVeryHidden wieder ausblenden und mit

Application.ScreenUpdating = True

die Bildschirmaktualisierung wieder einschalten. So kriegt der User nichts mit wie du die ComboBox füllst.

Private Sub Userform1_Initialize()
Application.ScreenUpdating = False
Worksheets("Deine Tabelle").Visible = True
'mit 3 Werten füllen
For i = 1 to 3
Me.ComboBox1.AddItem(cells(i,1))
Next i
Worksheets("Deine Tabelle").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub


Code eingefügt mit Syntaxhighlighter 1.12


Gruss Rainer



nach oben   nach unten

Re: UF-Combobox mit Werten aus versteckter Tabelle fül
von: Rainer Quaas
Geschrieben am: 19.06.2002 - 16:13:00

Hallo Rainer,

klappt wieder mal prima, habe aber den Code noch etwas anpassen müssen; danke.

Gruß Rainer


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "UF-Combobox mit Werten aus versteckter Tabelle fül"