Textbox1 nach Eingabe zur Textbox2 sprin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Du darfst für die nächste Textbox natürlich nicht den gleichen Code einsetzen, sonden musst ihn natürlich für die nächste Textbox anpassen.
Vielleicht hast du das nicht vollständig gemacht?
Können wir aber nicht wissen, weil du und diesen Code nicht zeigst.
Zusätzlich zum Code wäre es auch gut, wenn du die Datei hochladen würdest.
In dem Code sind auch schon ein paar Fehler drin:
1. Einstellungen, die sich nicht ändern wie TeBo_sys.MaxLength = 3, gehören nicht in dieses Event. Entweder stellt man das schon im Editor in der Eigenschaftsliste so ein, oder wenns per Code sein soll, im Initialize-Event der Userform. Nur wenn sich diese Einstellung in Abhängigkeit von anderen Faktoren ändern soll, kann man über eine andere Positionierung nachdenken.
2. Eine Textbox enthält immer Text und ein Text ist immer größer als jede Zahl.
Der Text "1" ist größer als die Zahl 9999999999999999
Daher ist dein Vergleich so nicht sinnvoll.
Gruß Daniel

Hallo Daniel,
danke für die schnelle Antwort. MaxLenght hab ich wieder raus genommen, ist beim rumprobieren da rein gerutscht ist jetzt wieder in den Einstellungen.
Ich habe mir eine Useform gemacht mit 5 Textboxen in denen ich Blutdruckwerte auf nehmen will um sie dann in eine Tabelle zu schreiben. Soweit Funktioniert das auch, eigentlich wäre ich fertig aber es geht ja besser und darum geht es mir grad.
Jetzt geht es mir darum die Textboxen entsprechend zu Formatieren, also max. dreistellige Zahlen (Funktioniert) in einem Logischem Bereich und mit "automatischem Focus versetzten" für die beiden Blutdruck Werte und dem Puls. Das funktioniert nur bedingt. Den folgenden Code habe ich hier aus dem Forum kopiert und angepasst aber das mit dem Focus versetzen bekomme ich nicht hin und es sollten alle Tasten ausser den Zahlen deaktiviert sein, die Msgbox brauche ich auch nicht, ist nur noch drin als Platzhalter für den Focus.
Bei Datum und Uhrzeit werde ich wieder andere Bedingungen haben.


Private Sub TeBo_dia_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
'nur Zahlen 0 bis 9
Case 48 To 57
Case Else
'alle anderen Tastatureingaben unterdrücken
'außer folgende Tasten: ESC, Enter, Pfeile, Entf, Backspace
KeyAscii = 0
TeBo_dia.Text = ""
Exit Sub
End Select
If CInt(Me.TeBo_dia.Text & Chr(KeyAscii)) > 150 Then
MsgBox "Wert ist größer 150!", 16, "Hinweis"
KeyAscii = 0
TeBo_dia.Text = ""
End If
End Sub

Hoffe ich konnte ungefähr klar machen worum es mir geht. Danke schon mal.

Private Sub TeBo_sys_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If TeBo_sys.Text Like "8?" Or TeBo_sys.Text Like "9?" Or TeBo_sys.Text Like "1?" Or TeBo_sys.Text Like "2?" Then TeBo_dia.SetFocus End If End Sub

Beliebteste Forumthreads (12 Monate)

Textbox1 nach Eingabe zur Textbox2 sprin

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textbox1 nach Eingabe zur Textbox2 sprin

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread