ComboBox erstellen
21.02.2005 09:06:32
Morthen
Ich habe in einem Tabellenblatt eine ComboBox mit dem Namen (Namenauswahl)erstellt. Nun möchte ich die Box aber mit VBA erstellen und ihm den Namen (Namenauswahl) zuteilen.
Dort wo es Sterne hat sollte der Code denke ich rein kommen.
Aber wie sieht er aus?
Ich habe zwar mit Hilfe von Makroaufzeichnen eins ertellt, aber beim kompilieren kam die Fehlermeldung (Wechseln im Haltemodus ist zu diesem Zeitpunkt nicht möglich)!
Kann mir jemand weiterhelfen?
Danke vielmal...
Public Sub ComboBox()
Dim ZeileNamen As Integer
**********
Sheets("Kandidat").Namenauswahl.Clear
ZeileNamen = 5
Do While Sheets("Übersicht").Cells(ZeileNamen, 1).Value ""
Sheets("Kandidat").Namenauswahl.AddItem Sheets("Übersicht").Cells(ZeileNamen, 1).Text
ZeileNamen = ZeileNamen + 1
Loop
Namenauswahl_Change
End Sub
Private Sub Namenauswahl_Change()
If Namenauswahl.ListIndex > -1 Then Sheets(Namenauswahl.Text).Activate
End Sub