Combobox mit Teilüberschriften

[oee]

Oder ganz einfach so:

  combo.xlsm (Größe: 19,29 KB / Downloads: 4)

[Ralf A]

...oder so (mit einer Box in einem Formular )
Weshalb Du deshalb ein 2. Formular brauchen solltest, erschliesst sich mir nicht...


  Combobox2Spaltig.xlsm (Größe: 18,2 KB / Downloads: 5)

[Andyle]

Perfekt!

Private Sub TextBox11_Change()
    Dim x
    x = Left(TextBox11.Value, 2)
    If x = ">>" Then TextBox11.ListIndex = -1
End Sub

>>Überschrift<<

Kann man dieses Add noch getrennt Fett schreiben?

So wie ich mich bisher belesen habe nur alle Einträge aber nicht einzeln.

---

Meine Lösung:

Code:

If Sheets("Einstellungen").Range("L18") = "Benutzer" Then
  einbuchen.Visible = False
    'Schleife über alle Zellen im Zellbereich
    For Each cell In Range("Tabelle7[Grund-Entnahme]")
    'Zellwert zur ComboBox hinzufügen
    TextBox11.AddItem cell.Value
Next cell
  Else
 
  'Schleife über alle Zellen im Zellbereich
    For Each cell In Range("Tabelle11[Grund-Schnellbuchung]")
    'Zellwert zur ComboBox hinzufügen
    TextBox11.AddItem cell.Value
Next cell
  End If


Private Sub TextBox11_Change()
    Dim x
    x = Left(TextBox11.Value, 2)
    If x = ">>" Then TextBox11.ListIndex = -1
End Sub

Vielen Dank an alle für die Vorschläge!

[oee]

Schön und gut, aber warum nennst du deine COMBObox ausgerechnet TEXTbox ? Zur allgemeinen Verwirrung ?
Nennst du deine Textboxen dann "CommandButton" ?

[Andyle]

'Alle TextBoxen leer machen
    For i = 1 To iCONST_ANZAHL_EINGABEFELDER
        Me.Controls("TextBox" & i) = ""
    Next i

[oee]

Aber warum postest du das ???

Ausserdem: Warum nicht direkt
iCONST_ANZAHL_EINGABEFELDER_MEINES_MAKROS_DIE_ICH_BENUTZT_HABE_WEIL_ICH_SIE_BRAUCHTE
???

[Andyle]

Weil der bisherige Code so angelegt ist. Deshalb cb als Textbox!

[knobbi38]

Weil der bisherige Code so angelegt ist. Deshalb cb als Textbox!

Es gibt doch "Suchen und Ersetzen" in der VBE - keine Option?