ComboBox erstellen

Bild

Betrifft: ComboBox erstellen
von: Morthen
Geschrieben am: 21.02.2005 09:06:32
Hallo Leute
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

Bild

Betrifft: AW: ComboBox erstellen
von: Morthen
Geschrieben am: 21.02.2005 09:13:21
So sieht der Code mit Makro aus...

Public Sub ComboBox()
Dim ZeileNamen As Integer
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=77.8125, Top:=62.8125, Width:=229.6875, _
Height:=19.6875).Select

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

Bild

Betrifft: AW: ComboBox erstellen
von: u_
Geschrieben am: 21.02.2005 09:24:59
Dim cbo As OLEObject
Set cbo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=21.75, Top:=25.5, Width:=126, Height:= _
17.25)
cbo.Name = "Namenauswahl"
Gruß
Bild

Betrifft: AW: ComboBox erstellen
von: Morthen
Geschrieben am: 21.02.2005 09:29:18
Danke u...
Aber wenn ich diesen Code übernehme kommt immernoch die Meldung (Wechseln in den Haltemodus ist zu diesem Zeitpunkt nicht möglich)
Was bedeutet das?
 Bild

Beiträge aus den Excel-Beispielen zum Thema "ComboBox erstellen"