Doch noch 'ne Frage an Tino
Frank
Wie bereits erwähnt funzt alles soweit super, nur ein klitze kleiner Schönheitsfehler. Das Datum, außer der 01.01.2006, wird nicht korrekt angezeigt. Wenn ich nach den Werten des 02.01.2006 suche, dann taucht als Datum 1.2.2006 auf, dies entspricht zwar dem 02.01., ich möchte es gern in der deutschen Schreibweise angezeigt bekommen.
Kannst du mir da auch noch weiterehelfen? Natürlich auch all die anderen:
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
Vielen lieben Dank!!!
Gruß Frank H.