Frage an Tino oder Andere

Forumthread: Frage an Tino oder Andere

Frank

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.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Frage an Tino oder Andere

15.11.2009 22:27:18

OttoH

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

AW: Frage an Tino oder Andere

15.11.2009 22:28:59

Gerd

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

AW: Frage an Tino oder Andere

15.11.2009 22:41:23

Frank

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 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.

AW: Frage an Tino oder Andere

15.11.2009 23:13:34

Nepumuk

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

AW: Frage an Tino oder Andere

15.11.2009 23:16:57

Gerd

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 
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

Datum kommt nur einmal in Liste vor

15.11.2009 22:59:54

Tino

Hallo,
ich habe Dir noch eine Version geschickt
weil in Deiner Liste jedes Datum nur einmal vorkommt(habe ich zu spät gesehen),
dies ist dann viel einfacher.
Hier der Code übernimmt das Format der Zelle.
kommt als Code in ModulListBoxFuellen

Option Explicit 
 
Sub LadeDatenListBox(ByRef ArData, Datum As Date) 
Dim Ar3() 
Dim AA&, LRowMax& 
 
With Tabelle1 
    LRowMax = Application.Match(CLng(Datum), .Columns(53), 0) 
    If Not IsNumeric(LRowMax) Then Exit Sub  'keine Daten 
    Redim Preserve Ar3(1 To 1, 1 To 16) 
    For AA = 1 To Ubound(Ar3, 2) 
         Ar3(1, AA) = Format(.Cells(LRowMax, 52 + AA), .Cells(LRowMax, 52 + AA).NumberFormat) 'Daten aus Spalte 53 bis 69 
    Next AA 
End With 
 
ArData = Ar3 
 
 
End Sub

Man könnte auch direkt auf den Zellbereich mit RowSource Verweisen müsste auch gehen.
Kannst auch mal testen.
Direkt in der Userform

Dim vRowMax
With Tabelle1
    vRowMax = Application.Match(CLng(Datum), .Columns(53), 0)
    If Not IsNumeric(vRowMax) Then
         frmEingabe.ListBox1.RowSource = _
         Range(.Cells(vRowMax, 53), .Cells(vRowMax, 69)).Address(external:=True)
    End If
End With

In der ListBox ColumnCount auf 16 einstellen.
Gruß Tino

AW: Datum kommt nur einmal in Liste vor

16.11.2009 09:51:03

Frank

Hallo Alle Zusammen!!!
Euch allen herzlichst Danke, Danke und nochmals Danke!!! In besonderer Weise gilt mein Dank Tino!!!
Tino, deinen Code - Teil 1 - habe ich übernommen, Teil 2 werde ich noch testen, muss jetzt aber weg!!!
Ihr seid alle Funzkerle und Spitze - geiles Forum!!!
Gruß Frank H.

Beliebteste Forumthreads (12 Monate)

Forumthread: Frage an Tino oder Andere

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread