---

Hallo Leute,

Habe ein kleines Problem.
Ich möchte im meiner ComboBox 1 eine Zeit eintragen.
und dan mit der Tastatur zur nächsten sringen aber es feht mir was.
Hier ist der Code.
Pivate Sub ComboBox1_Change()
Me.ComboBox2.Activate

Frage wo fehlt was kann mir jemand das einsetzen.
Schon mal besten Dank dafür.

Gruss
Gassi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Gassi und Herzlich Willkommen bei CAD.de.

Wo sind Deine Comboboxen? In einer Userform?
Wenn ja, dann springt doch nach Eingabe (Enter oder Tab) automatisch der nächste TabIndex an.

Wenn es Kombinationsfelder im Tabellenblatt sind sollte Dein code schon so laufen. Was tut's denn nicht?

Aber Anmerkung: Würde ich so nicht tun. Warum nicht: Weil Du es so niemals schaffen wirst, manuell mehr als ein Zeichen in die ComboBox1 zu trommeln, das geht jetzt nur noch über dropdown-Listen.

Du könntest es höchstens z.B. mal so versuchen:
Private Sub ComboBox1_Change()
  If ComboBox1.TextLength > 7 Then ComboBox2.Activate
End Sub

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Gassi,

möchtest Du mit dem Tabulator zur nächsten Box springen? Bei Textboxen ist die Eigenschaft TabKeyBehavior zuständig, siehe hier. Vielleicht lässt sich das übertragen?

Frederik

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo runkelruebe,

Habe es probiert ist besser aber leiter nicht wie ich mir das vorstelle.Diese CombiBox Felder sind noch mit Daten verknüpft.
jetzt giebt man die von Hand ein und Ersucht es sich selber.

Übertastatur das wen ich die Taste mit den Beiden Pfeilen Drücke sollte der Corser in die nächst CombiBox springen.
Gruss
Gassi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen,
sorry, hat etwas gedauert, aber das mußte ich ein paar Mal lesen ;-)
  

Zitat:

---

Habe es probiert ist besser aber leiter nicht wie ich mir das vorstelle.Diese CombiBox Felder sind noch mit Daten verknüpft.
jetzt giebt man die von Hand ein und Ersucht es sich selber.

---

Ich gehe davon aus, Du meinst damit den MatchEntry der bei Dir auf 0 oder 1 (Voreinstellung) steht. Dort könntest Du also dran drehen, falls das das Problem sein sollte. Oder ist dieses Verhalten gewünscht?

Ich weiß allerdings nicht, was daran nicht klappen sollte. Er springt mit dieser Zeile in die nächste ComboBox, sobald die Box über 7 Zeichen enthält. Das tut sie mit dem MatchEntry halt schon nach einem eingetippten Zeichen ;-) Wenn Du die über die dropdown-Liste holst, erst nach dieser Auswahl.
  

Zitat:

---

Übertastatur das wen ich die Taste mit den Beiden Pfeilen Drücke sollte der Corser in die nächst CombiBox springen.

---

´
Das klappt nicht. Ich hab's versucht mit MaxLength, aber der Effekt ist bei mir nicht ganz so, wie in der Hilfe beschrieben. Probier es selber mal aus.
Aber guck mal, ob Du mit dem MatchEntry und den damit evtl. verbundenen leichten Anpassungen in der Arbeitsweise schon weiterkommst.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo runkelruebe.

Endschuldige das ich mich nicht gemeldet habe hatte leider keine Zeit.
Habe das mal ausprobiert auch alles geändert.
Man muss dan leider immer alleseingeben das wollte ich nicht.jetzt ist es so das er was vorschlägt.
Und mein Wunsch ist es das man wen man will springen kann.

Mfg Gassi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mahlzeit,
hmm... dann mach den Mist mit der Textlänge wieder raus und versuch das mal:

Code:

---

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then ComboBox2.Activate
End Sub

---

Beispiele für KeyCode Nummern:
KeyCode 9 = Tab
KeyCode 13 = Enter

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo runkelruebe,

Ich abe das versucht,und es hat genauso geklappt wie ich es mir vorgestellt habe.

Ich danke Dir für deine große Hilfe.
Jetzt kann ich das bei ca. 540 Combiboxen ändern.
Da habe ich erst mal ichtig zu tum.
Ich melde mich wieder bis dänne

Gruss Gassi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

  

Zitat:

---

Original erstellt von Gassi:

Jetzt kann ich das bei ca. 540 Combiboxen ändern.
Da habe ich erst mal ichtig zu tum.

---

Geht so ;-)

Schreibe Dir:
in A1: ComboBox1

in B1: If KeyCode = 9 Then ComboBox2

in C1: ="Private Sub "&A1&"_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
"& B1 &".activate
end sub"

(Zeilenwechsel vor &B1 und vor end sub durch Alt+Enter)

AutoAusfüllen auf A1:C1 so weit, wie Du's brauchst

Spalte C markieren, kopieren, im VBEditor einfügen, Die " mit Suchen und Ersetzen rauswerfen, Kaffee trinken.

geschätzter Aufwand: 10 min, beim AG angegebener Aufwand: 3h   

[rredit] ja, ich weiß, dass das unschön aussieht, aber für schön hab ich momentan keine Zeit ;-)
btw, es sind ComboBoxen, das mit dem i in der Mitte hast Du jetzt so oft wiederholt, dass ich fast glaube, Du meinst das ernst ;-) [/rredit]

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info     Excel -Suche    RuA-Suche     FAQ-ACAD     Hilfe zu CAD.de 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP