Combobox "verschwunden" - wie erstellen
28.12.2012 17:41:28
Peter
In meinem Workbook hatte ich früher im Worksheet "Cockpit" eine Combobox. In dieser konnte ich aus einer Liste einen Eintrag auswählen, welcher dann in die Zelle, welche mit "vonF" benannt ist eingetragen wurde.
Untenstehender Code steckt noch hinter der Tabelle "Cockpit", doch die Combobox ist verschwunden und somit kann ich nichts mehr auswählen ...
Weshalb auch immer - jetzt ist die Combobox nicht mehr in der Tabelle cockpit zu finden.
Ich weiss nicht mehr, wie ich die Combobox erstellt und diese mit dem Code verknüpft habe.
Ich habe jetzt folgendes versucht:
- Einschalten des Entwurfsmodus (Register Entwicklertools)
- Einfügen Kombinationsfeld
- das gibt mir aber ein Element, das mit "Dropdown 3" benannt ist
Müsste ich nicht ein Element erhalten, das mit "Combobox1" benannt ist? Oder kann ich das Element "Dropdown 3" in "Combobox1" umbenennen (wenn ja, wie muss ich das anstellen?)?
Oder muss ich die Combobox auf eine andere Art erstellen?
Danke für jede Hilfe.
Gruss, Peter
Private Sub ComboBox1_Click()
Sheets("Cockpit").Range("vonF").Value = ComboBox1.Value
End Sub
Private Sub ComboBox1_DropButtonClick()
'Auswahl Eintrag aus vorhandener Liste
'Dabei werden die Einträge alphabetisch gezeigt
'Mehrmals aufgeführte Einträge werden nur einmal gezeigt
Dim SC_SL As Object
Dim vTemp As Variant
Dim iIndx As Integer
Set SC_SL = CreateObject("System.Collections.SortedList")
vTemp = Sheets("JEP").Range("FAbfrage")
' vTemp = Range("A10:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For iIndx = 1 To UBound(vTemp)
If vTemp(iIndx, 1) "" Then SC_SL(vTemp(iIndx, 1)) = ""
Next iIndx
ComboBox1.Clear
ComboBox1.AddItem ""
For iIndx = 0 To SC_SL.Count - 1
ComboBox1.AddItem SC_SL.GetKey(iIndx)
Next iIndx
End Sub
