cbo - Auswahl sehr straff | HERBERS Excel Forum

Steve · 2017-06-30T12:48:12+00:00

Mahlzeit.......... und schönen Freitag nachmittag. Bitte um Hilfe. Habe eine Userform mit Combobox. derzeitige Initialisierung: With Me.cboJD_Uebersichtbei_3 .AddItem "22:00 bis 01:00" .AddItem "22:30 bis 01:30" End With Ich hätte gerne dass der User - zu dieser Auswahl - auch noch die Möglichkeit hat andere Zeiten - aber natürlich nur Zeiten (also Zahlen (auch nur 00/24 bei den Stundenangaben und 00/60 bei den Minutenangaben)........ und keine Buchstaben und nur im End-Format: "..:.. bis ..:.." ist so was in einer Combo möglich? Besten Dank und mfg STeve

Moin! Die Frage die noch offen wäre ist, ob du die Eingabe PRüfung erst nach der vollständigen Eingabe oder schon vorher (praktisch in Echtzeit) haben willst!? Bei Echtzeit hilft m.E. CDate nicht weiter, da ja schon bei der ersten Eingabe (bspw. 0 ) geprüft wird. Hier mal eine (auf die schnelle gebastelte) Lösung für Echtzeiteingabe. Die Prüft jede Eingabe über das ChangeEvent. VG


Private Sub cboJD_Uebersichtbei_3_Change()
Dim eintrag()
Dim i As Long
Dim wert As String
Dim teil
eintrag = Array(0, 1, 1, ":", 1, 1, " ", "b", "i", "s", " ", 1, 1, ":", 1, 1)
wert = cboJD_Uebersichtbei_3.Value
If wert = "" Then Exit Sub
For i = 1 To Len(wert)
If Len(wert) > UBound(eintrag) Then
MsgBox "BItte nur Werte wie 00:00 bis 01:00 eingeben."
cboJD_Uebersichtbei_3.Value = ""
Exit Sub
End If
If Asc(Mid(wert, i, 1)) > 47 And Asc(Mid(wert, i, 1))  eintrag(i) Then
MsgBox "BItte nur Werte wie 00:00 bis 01:00 eingeben."
cboJD_Uebersichtbei_3.Value = ""
Exit Sub
End If
Next i
End Sub

Moin! Hier ein angepasster Code. Habe ein wenig was geändert. Er springt jetzt immer auf die letzte gültige Eingabe zurück. Wie immer bitte mal prüfen. VG


Private Sub cboJD_Uebersichtbei_3_Change()
Dim eintrag()
Dim i As Long
Dim wert As String
Dim teil
If Me.cboJD_Uebersichtbei_3.Tag = "x" Then Exit Sub
eintrag = Array(0, 1, 1, ":", 1, 1, " ", "b", "i", "s", " ", 1, 1, ":", 1, 1)
wert = cboJD_Uebersichtbei_3.Value
If wert = "" Then Exit Sub
For i = 1 To Len(wert)
If Len(wert) > UBound(eintrag) Then
wert = Left(wert, UBound(eintrag))
Me.cboJD_Uebersichtbei_3.Tag = "x"
Me.cboJD_Uebersichtbei_3.Value = wert
Me.cboJD_Uebersichtbei_3.Tag = ""
End If
If Asc(Mid(wert, i, 1)) > 47 And Asc(Mid(wert, i, 1))  eintrag(i) Then
If Me.cboJD_Uebersichtbei_3.Tag  "y" Then MsgBox "Bitte nur Werte wie " & Chr(10) & "  _
00:00 bis 23:59" & Chr(10) & "eingeben.", , "Falsche Eingabe"
Me.cboJD_Uebersichtbei_3.Tag = "y"
cboJD_Uebersichtbei_3.Value = Left(wert, Len(wert) - 1)
Me.cboJD_Uebersichtbei_3.Tag = ""
Exit Sub
End If
Next i
End Sub

cbo - Auswahl sehr straff

Forumthread: cbo - Auswahl sehr straff

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

cbo - Auswahl sehr straff

Forumthread: cbo - Auswahl sehr straff

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread