Herbers Excel-Forum - das Archiv

ComboBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: ComboBox
von: Morthen

Geschrieben am: 18.02.2005 13:34:48
Hallo Leute
Kann mir jemand sagen, was hier falsch ist. Ich bringe diesen Code einfach nicht hin.
Laut meinem Code werden 3 Namen, nach der Do Schleife, in die Combobox eingefügt. Wenn ich mich nicht täusche, werden ja diese namen unter "namenauswahl" gespeichert.
Ich möchte jetzt einfach, dass das Tabellenblatt mit dem Namen das in der Combobox ausgewählt wurde, auf geht.
Könnt ihr mir helfen?
Public
Sub ComboBox()
Dim i As Integer
Sheets("Kandidat").Namenauswahl.Clear
i = 5
Do While Sheets("Übersicht").Cells(i, 1).Value <> ""
Sheets("Kandidat").Namenauswahl.AddItem Sheets("Übersicht").Cells(i, 1).Value
i = i + 1
Loop
Sheets(Namenauswahl.ListIndex).Activate
End Sub


Ich habe diese Frage schon mal gestellt, komme einfach nicht weiter!
Danke vielmal...
Bild

Betrifft: AW: ComboBox
von: Kurt
Geschrieben am: 18.02.2005 13:45:22
Dadurch, dass du die Frage öfetr stellst, kommt eine Antwort auch nicht schneller.
Kennzeichne die Frage als noch offen.
Kurt
Bild

Betrifft: AW: ComboBox
von: Josef Ehrensberger

Geschrieben am: 18.02.2005 13:47:49
Hallo Morthen!
Du musst das Füllen und das Auswählen schon trennen!
Sub ComboBox()
Dim i As Integer
Sheets("Kandidat").Namenauswahl.Clear
i = 5
Do While Sheets("Übersicht").Cells(i, 1).Value <> ""
Sheets("Kandidat").Namenauswahl.AddItem Sheets("Übersicht").Cells(i, 1).Value
i = i + 1
Loop
End Sub
Public Sub ComboBox1_Change()
If ComboBo1.Listindex > -1 Then Sheets(ComboBox1.Text).Activate
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: ComboBox
von: Morthen

Geschrieben am: 18.02.2005 13:57:45
Bin verzweifelt!!!
Funktioniert nicht...

Public
Sub ComboBox()
Dim i As Integer
Sheets("Kandidat").Namenauswahl.Clear
i = 5
Do While Sheets("Übersicht").Cells(i, 1).Value <> ""
Sheets("Kandidat").Namenauswahl.AddItem Sheets("Übersicht").Cells(i, 1)
i = i + 1
Loop
End Sub

Public
Sub ComboBox1_Change()
If Namenauswahl.ListIndex > -1 Then Sheets(Namenauswahl.Text).Activate
End Sub

Bild

Betrifft: AW: ComboBox
von: Gerd
Geschrieben am: 19.02.2005 14:59:30
Welcher Fehler wird gemeldet, welche Zeile wird markiert?
Gerd
Bild

Betrifft: AW: ComboBox
von: Roland Hochhäuser

Geschrieben am: 18.02.2005 13:54:57
Hallo Morthen,
deine Annahmen sind völlig unzutreffend, wenn es dir immer noch darum geht, Blattnamen in eine Combobox einzulesen, die sich auf einem Tabellenblatt befindet und anschließend von dort aus navigieren zu wollen. Versuch das mal:
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.ListIndex + 1).Activate
End Sub

Private Sub ComboBox1_GotFocus()
Dim i As Byte
ComboBox1.Clear
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

Wichtig dabei: mach KEINE Sub in einem allgemeinen Modul, sondern klicke rechts auf die Combobox im Tabellenblatt und wähle dort "Code anzeigen"
Gruß Roland
 Bild
Excel-Beispiele zum Thema "ComboBox "
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen Neues Element in ComboBox