ComboBox

Bild

Betrifft: ComboBox
von: Morthen
Geschrieben am: 18.02.2005 10:57:49
Hallo Leute
Ich habe eine ComboBoxliste mit Namen drin. Wenn ich jetzt einen dieser Namen auswähle, soll das Tabellenblatt mit dem entsprechenden Namen aufgehen.
Wie kann ich das machen?
Public


Sub Namenliste()
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

Bild

Betrifft: AW: ComboBox
von: Gerd
Geschrieben am: 18.02.2005 11:00:29
Sheets(Namenauswahl).activate
Gerd
Bild

Betrifft: AW: ComboBox
von: Morthen
Geschrieben am: 18.02.2005 11:04:22
Danke Gerd...
Aber ich bekomme den Fehler 13...?
Typen unverträglich!
Option Explicit
Public

Sub Namenliste()
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
Sheets(Namenauswahl).Activate
End Sub

Bild

Betrifft: AW: ComboBox
von: Gerd
Geschrieben am: 18.02.2005 11:08:14

Sub Namenliste()
Dim i As Integer
with Sheets("Kandidat").Namenauswahl
  .Clear
i = 5
Do While Sheets("Übersicht").Cells(i, 1).Value <> ""
    .AddItem Sheets("Übersicht").Cells(i, 1)
    i = i + 1
Loop
  .Listindex = 0
End With
Sheets(Sheets("Kandidat").Namenauswahl).Activate
End Sub

Gerd
Bild

Betrifft: AW: ComboBox
von: Gerd
Geschrieben am: 18.02.2005 11:18:40
Hier fehlte eine Klammer:
Sheets(Sheets("Kandidat".Namenauswahl)).Activate
Gerd
Bild

Betrifft: AW: ComboBox
von: Morthen
Geschrieben am: 18.02.2005 11:16:24
Hallo Gerd
Habe den Code versucht, hat trotzdem Fehler...
Kann das so komplizeirt sein?
Danke nochmal für deine Hilfe
 Bild

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