Office: (Office 2003) Kombinationsfeld bei Klick leer

Hallo Liebe Excel Community,

ich habe folgendes Anliegen:
Wenn ich auf den Pfeil meines Kombinationsfeldes (ActiveX) klicke erscheint ja die Liste dazu. Klicke ich ein wort in der Liste an wird mir nur noch dieses Wort angezeigt.
Wenn ich dann ein zweites mal auf den Dropdownpfeil klicke steht das vorher gewählte Wort immernoch oben.
Ich hätte das aber gerne so, dass sobald ich den Pfeil anklicke das Feld sich leert, sodass ich gezwungen bin erneut auszuwählen.

 

Hi,

versuche es mal mit diesem Code:

Code:

Option Explicit
Dim blnNein As Boolean

Private Sub ComboBox1_Change()
    blnNein = True
End Sub

Private Sub ComboBox1_DropButtonClick()
    If blnNein = False Then
        ComboBox1.ListIndex = -1
    End If
    blnNein = False
End Sub

Bis später,
Karin

 

Hallo Karin,

Irgendwas klappt nicht.
Ich habe den Code bei: Tabelle 1 (rechtsklick) diese Arbeitsmappe eingegeben --> keine Veränderung

Danach habe ich es bei Tabelle1 (rechtsklick) Tabelle1 eingegeben --> jetzt ist das Feld zwar leer aber es bleibt auch leer selbst wenn ich etwas aus der Liste anklicke? Habe ich etwas falsch gemacht?

Achja und ist es möglich das gleich für alle Comboboxen anzuwenden? Weil ich habe 4 davon

 

Hi,

eventuell heißen deine Kombinationsfelder anders?
Schau dir mal das Beispiel im Anhang an - so muss der Code platziert sein und wenn es sich um mehrere Kombinationsfelder handelt musst du diesen Code für jedes Kombinationsfeld schreiben (im Beispiel für 2 Kombinationsfelder ausgeführt).

Bis später,
Karin

 

Ah ja perfekt genau so wie deine Tabelle ist meine ich es. Danke schonmal :)
Mein Problem ist aber wenn ich bei mir im VBA auf Tabelle1 (die heisst bei mir Formular) doppelklicke dann öffnet sich das Blatt nicht wo der Code wie bei dir drin steht.. Habe ich irgendwas umgestellt was das blockieren könnte?

 

Dann nehme ich an, dass du kein ActiveX- sondern ein Formular-Steuerelement eingefügt hast.

Bis später,
Karin

 

Ich habe ActiveX Elemente verwendet.
Das ist meinte Datei. (Habe natürlich überflüssiges erstmal gelöscht aber der "Fehler" ist immernoch da)

Achja wenn wir schon dabei sind :P
Wie schaffe ich es, dass ich in der Textbox mit Enter in die nächste Line komme ?

 

1. hast du meinen Code nicht ins Codemodul des Tabellenblattes kopiert - wie soll er da etwas ausrichten können...?
2. heißt dein Kombinationsfeld nicht ComboBox1 sondern ComboBox2 - das musst du im Code entsprechend anpassen...
3. Code für das Textfeld:

Code:

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        TextBox1 = TextBox1 & Chr(10)
    End If
End Sub

Bis später,
Karin

 

Mensch du bist einfach ein Schatz :)
Perfekt vielen vielen Dank