Thema: Frage an Tino oder Andere | Herbers Excel-Forum

Hallo Tino oder all die Anderen Profis!!!
Tino, dein Code passt. Nun stehe ich aber erneut auf dem Schlauch. In der ListBox werden die Suchergebnisse angezeigt, aber nicht so dargestellt wie in der Tabelle formatiert. Z.B. in der Tabelle steht 06:00 und in der ListBox wird dies als 0,25 angezeigt. Wo ist der Haken?
Besten Dank!!!
Gruß Frank H.

Hallo Frank,
formatiere die Zellen mal als Uhrzeit: hh:mm
Gruß OttoH

Hallo Frank,
"der Haken" ist, dass in den Datenfeldern die Value-Eigenschaft der Werte/Zelleneinträge verarbeitet wird.
Hast Du den Code u. Userform von Tino unverändert übernommen?
Gruß Gerd

Hallo Gerd!!!
Nach vielen Probierereien war Tino ausnahmsweise bereit direkt in meiner Datei den Code einzubauen:
Sub LadeDatenListBox(ByRef ArData, Datum As Date)
Dim Ar2, Ar3(), TempAR()
Dim A&, AA&, AAA&
Dim LRowMax As Long
With Tabelle1
LRowMax = .Cells(.Rows.Count, 53).End(xlUp).Row
If LRowMax < 3 Then Exit Sub 'keine Daten
Ar2 = .Range(.Cells(3, 53), .Cells(LRowMax, 68))
ReDim Preserve Ar3(1 To UBound(Ar2, 2), 1 To UBound(Ar2))
End With
For A = 1 To UBound(Ar2)
If Ar2(A, 1) = Datum Then
AAA = AAA + 1
For AA = 1 To UBound(Ar2, 2)
Ar3(AA, AAA) = Ar2(A, AA) 'Daten aus Spalte 53 bis 69
Next AA
End If
Next A
If AAA > 0 Then
ReDim Preserve Ar3(1 To UBound(Ar3), 1 To AAA)
If AAA = 1 Then
ReDim Preserve TempAR(1 To 1, 1 To UBound(Ar3))
For A = 1 To UBound(Ar3)
TempAR(1, A) = Ar3(A, 1)
Next A
ArData = TempAR
Else
ArData = Application.Transpose(Ar3)
End If
End If
End Sub

Private Sub cmdSuchen_Click()
Dim ArData
ListBox1.Clear
If TextBox1 <> "" And IsDate(TextBox1) Then
LadeDatenListBox ArData, CDate(TextBox1)
If IsArray(ArData) Then
ListBox1.ColumnCount = UBound(ArData, 2)
ListBox1.List = ArData
End If
End If
End Sub

Der erste Teil steht in einem Modul!
Könnt ihr damit etwas anfangen?
Gruß Frank H.

Hallo Frank,
wie viele Datensätzewerden denn durchschnittlich in der Listbox angezeigt?
Wenn es sich nur um 20-50 Zeilen handelt, ist die Einsparung durch die Verarbeitung über ein Array irgendwo im Millisekundenbereich und der Aufwand, die Arrayeinträge nachträglich zu formatieren würde sich dann nicht lohnen. Du könntest also die Text-Eigenschaft der Zelle in das Array schreiben.
Sind es es mehrere hundert, würde ich beim Array bleiben und die Spalten darin mit der Format-Funktion in Form bringen.
Gruß
Nepumuk

Hallo Frank,
ich habe in der Lade-Prozedur etwas rumgeprimelt. Teste mal.

Sub LadeDatenListBox(ByRef ArData, Datum As Date)
Dim Ar2, Ar3(), TempAR()
Dim A&, AA&, AAA&
Dim LRowMax As Long
Dim i As Long
Dim j As Long
With Tabelle1
LRowMax = .Cells(.Rows.Count, 53).End(xlUp).Row
If LRowMax < 3 Then Exit 

Sub 'keine Daten
Ar2 = .Range(.Cells(3, 53), .Cells(LRowMax, 68))
For i = 3 To LRowMax
For j = 53 To 68
Ar2(i - 2, j - 52) = CStr(.Cells(i, j).Text)
Next
Next
ReDim Preserve Ar3(1 To UBound(Ar2, 2), 1 To UBound(Ar2))
End With
For A = 1 To UBound(Ar2)
If Ar2(A, 1) = Datum Then
AAA = AAA + 1
For AA = 1 To UBound(Ar2, 2)
Ar3(AA, AAA) = Ar2(A, AA) 'Daten aus Spalte 53 bis 69
Next AA
End If
Next A
If AAA > 0 Then
ReDim Preserve Ar3(1 To UBound(Ar3), 1 To AAA)
If AAA = 1 Then
ReDim Preserve TempAR(1 To 1, 1 To UBound(Ar3))
For A = 1 To UBound(Ar3)
TempAR(1, A) = Ar3(A, 1)
Next A
ArData = TempAR
Else
ArData = Application.Transpose(Ar3)
End If
End If
End Sub



Gruß Gerd