ich habe folgendes Problem. Ich lasse mir in einer Userform meine gespeicherten Daten anzeigen. Das Suchergebnis lasse ich in einer Listbox darstellen. Hier wird aber das Datum in Form von 0.334 anstatt 09:00 Uhr dagestellt. Die Uhrzeit steht in Spalte 3, also C.
Folgenden Code verwende ich
Private Function Array_Prüfen(ByVal txt As Control, ByVal Spalte As Integer) As Variant ' _
XXXXXXXXXXX
Dim i As Long, j As Long
Dim r As Long
Dim arr() As Variant
Dim y As Boolean
For i = LBound(arrTmp) To UBound(arrTmp)
If LCase(arrTmp(i, Spalte)) Like "*" & LCase(txt.Text) & "*" Then
ReDim Preserve arrT(0 To 15, 0 To r) '15 statt 3
ReDim Preserve arr(1 To 16, 1 To r + 1) '16 statt 4
y = True
For j = 0 To 15 '15 statt 3
arrT(j, r) = arrTmp(i, j + 1)
arr(j + 1, r + 1) = arrTmp(i, j + 1)
Next j
r = r + 1
End If
Next i
If y Then
Erase arrTmp
arrTmp = WorksheetFunction.Transpose(arr)
ListBox1.Clear
If UBound(arrT, 2) = 0 Then
ReDim arr(0, 15) '15 statt 3
For i = 0 To 15 '15 statt 3
arr(0, i) = arrT(i, 0)
Next i
ListBox1.List = arr
Else
Array_Prüfen = WorksheetFunction.Transpose(arrT)
End If
Else
MsgBox "Keine passenden Daten zu den Kriterien gefunden !"
txt.Text = ""
txt.SetFocus
Array_Prüfen = ListBox1.List
End If
End Function
Kann mir eventuell jemand helfen, dass die Uhrzeit angezeigt wird anstatt der Dezimalzahlen.https://www.herber.de/bbs/user/142833.xlsm
Vielen Dank für eure Mühen
VG Stephan