AW: Uhrzeit in Textbox übernehmen
14.11.2019 15:01:25
Sus
@Daniel:
die Format-Idee hatte ich bereits - ändert leider nichts. Der Wert bleibt als Dezimalzahl bestehen.
@Werner:
Die Uhrzeiten stehen in den Spalten C und D.
Der code:
Private Sub lstLookup_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim cPayroll As String
Dim cNum As Integer
Dim X As Integer
Dim i As Integer
Dim findvalue
On Error GoTo errHandler:
For i = 0 To lstLookup.ListCount - 1
If lstLookup.Selected(i) = True Then
cPayroll = lstLookup.List(i, 5)
End If
Next i
Set findvalue = Tabelle1.Range("A:A").Find(What:=cPayroll, LookIn:=xlValues).Offset(0, 0)
cNum = 26
For X = 1 To cNum
Me.Controls("Reg" & X).Value = findvalue
Set findvalue = findvalue.Offset(0, 1)
Next
'HIER SOLLTE EIGENTLICH DIE FUNKTION SEIN, DIE MEIN PROBLEM LÖST
'Uhrzeit Format
'Reg3 = Format(Reg3, "hh:mm")
'Reg4 = Format(Reg4, "hh:mm")
Me.cmdAdd.Enabled = False
Me.cmdEdit.Enabled = True
'error block
On Error GoTo 0
Exit Sub
errHandler::
MsgBox "An Error has Occurred " & vbCrLf & "The error number is: " _
& Err.Number & vbCrLf & Err.Description & vbCrLf & _
"Please notify the administrator"
End Sub