Combobox Sprung nach Auswahl / Enter in Zelle

Computer: Software & Programmierung Visual Basic
#1

Hi,
bin neu hier und Anfänger…:smile: ich habe hier ne einfache Combobox, gefüllt mit Werten (Zahlen und Wörter). Ich möchte nun, dass nach Auswahl eines Wertes aus der Dropdownliste oder durch freie Eingabe (die Eingabevorschläge der Combobox funktionieren gut) und Enter drücken der Cursor dann z.b. nach Zelle D:20 springt?
Und wenn möglich wo den Code einfügen (Modul, Diese Arbeitsmappe etc.)

Hier der bisherige Code (unter Tabelle1->Combobox1->Change)

Private Sub Combobox1_Change()
ActiveSheet.Unprotect
Range(„F8“) = Combobox1.ListIndex
ActiveSheet.Protect

End Sub

Desweiteren möchte ich gerne, dass nach der Eingabe in ein Zelle (z.B. D:30) der Cursor wieder in die Combobox1 springt?

Danke für jegliche Information!

Gruß
Lombe

#2

Hallo Lombe,

Combobox, gefüllt mit Werten (Zahlen und Wörter). Ich möchte
nun, dass nach Auswahl eines Wertes aus der Dropdownliste oder
durch freie Eingabe (die Eingabevorschläge der Combobox
funktionieren gut) und Enter drücken der Cursor dann z.b. nach
Zelle D:20 springt?

schreib doch in die Sub
Private Sub Combobox1_Change()
Range(„D20“).Select

Und wenn möglich wo den Code einfügen (Modul, Diese
Arbeitsmappe etc.)

? verstehe ich nicht.

Desweiteren möchte ich gerne, dass nach der Eingabe in ein
Zelle (z.B. D:30) der Cursor wieder in die Combobox1 springt?

Da schau ich morgen, geht sicher, bin jetzt zu müde.

Gruß
Reinhard

#3

Hallo Reinhard,
danke für Antwort! Das mit Range („D:20“) hab ich bereits
probiert gehabt. Problem dabei war, dass dann bei der freien
Text Eingabe in die Combobox, der Cursor sofort nach dem ersten eingegebenen Buchstaben/Ziffer gesprungen ist… Die Combobox
hat dann den Textvorschlag als gewählt angenommen…
Geh jetzt auch erst mal pennen…-> Sprung nach („Bett:1“)
:wink:)

Gruß
Lombe

#4

Hallo Lombe.

Der nachfolgende Code sollte Dir die gewünschte Funktionalität bieten:

Private Sub ComboBox1\_Click()
 Range("$D$20").Select
End Sub

Private Sub ComboBox1\_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 Select Case KeyCode
 Case 13 'Return
 Range("$D$20").Select
 End Select
End Sub

Private Sub Worksheet\_Change(ByVal Target As Range)
 Select Case Target.Address
 Case "$D$30"
 ComboBox1.SetFocus
 End Select
End Sub

Der Code gehört ins Codefenster der Tabelle, die die ComboBox enthält.

VG Carsten

#5

Hallo Carsten,
danke für die hilfreichen Codes!! Hat alles funktioniert
bis auf den letzten Code mit dem Sprung von einer Zelle
in die Combobox hinein.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case „$D$30“
ComboBox1.SetFocus
End Select
End Sub

Es erscheint die Fehlermeldung:
„Objekt unterstützt diese Eigenschaft oder Methode nicht“
und im Code ist ComboBox1.SetFocus dann gelb hinterlegt.

Muss ich evtl. bei den englischen „Eigenschaften“ der Combobox1
noch etwas einstellen (z.B. etwas auf True oder False setzen)?

VG und DANKE nochmal
Lombe

#6

Hallo Carsten,
danke für die hilfreichen Codes!! Hat alles funktioniert
bis auf den letzten Code mit dem Sprung von einer Zelle
in die Combobox hinein.

Hallo Lombe,

probier mal
ComboBox1.Activate

Gruß
Reinhard

#7

Hallo Lombe.

Es erscheint die Fehlermeldung:
„Objekt unterstützt diese Eigenschaft oder Methode nicht“
und im Code ist ComboBox1.SetFocus dann gelb hinterlegt.

Muss ich evtl. bei den englischen „Eigenschaften“ der
Combobox1
noch etwas einstellen (z.B. etwas auf True oder False setzen)?

Wenn Du die ComboBox aus der Symbolleiste „Steuerelement-Toolbox“ verwendest, sollte es eigentlich funktionieren.

VG Carsten

#8

Es erscheint die Fehlermeldung:
„Objekt unterstützt diese Eigenschaft oder Methode nicht“
und im Code ist ComboBox1.SetFocus dann gelb hinterlegt.

Wenn Du die ComboBox aus der Symbolleiste
„Steuerelement-Toolbox“ verwendest, sollte es eigentlich
funktionieren.

Hallo Carsten,

nein, zumindest in XL2000 gibt es keine Eigenschaft/Methode ComboBox1.SetFocus

Gruß
Reinhard

#9

Hallo Reinhard.

nein, zumindest in XL2000 gibt es keine Eigenschaft/Methode
ComboBox1.SetFocus

Auch in Excel 2003 wird die SetFocus-Methode nicht in der Liste angezeigt, aber trotzdem ist sie verfügbar und es gibt keine Fehlermeldung bei der Ausführung des Codes.

Aber was soll’s. Wenn es mit ‚Activate‘ auch hinhaut, dann ist ja alles paletti.

VG
Carsten

#10

Hall Reinhard,
das funtioniert… danke! Musste aber vorher noch bei den englischen Eigenschaften der Combobox rumklicken bis es dann klappte.

Ich hab nur noch ein Problem. Der Sprung von der Zelle D:20
in die Combobox funktioniert nur, wenn in Zelle D:20 tatsächlich
eine Eingabe erfolgt, und dann Enter gedrückt wird.
Wenn ich in Zelle D:20 allerdings nur einen vorhandenen Wert bestätige
erfolgt der Sprung nicht. Auch wenn ich nur mit der Pfeiltaste (Pfeil nach unten) aus der Zelle D:20 weiter springen möchte erfolgt nicht der Sprung in die Combobox.

Aber bin trotzdem erst mal zufrieden

Danke noch
Lombe