es funktioniert immer noch nicht!
Das Tabellenblatt mit dem Namen das ausgewählt wurde, soll aufgemacht werden!
Ich glaube Namenauswahl bleibt immer leer...
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
danke vielmal für die Hilfe...