Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Doch noch 'ne Frage an Tino | Herbers Excel-Forum


Betrifft: Doch noch 'ne Frage an Tino von: Frank H.
Geschrieben am: 16.11.2009 13:49:57

Hallo Tino oder auch andere User!!!

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.

  

Betrifft: AW: Doch noch 'ne Frage an Tino von: Rudi Maintaire
Geschrieben am: 16.11.2009 14:04:17

Hallo,
versuchs mal so:
Ar3(1, AA) = .Cells(LRowMax, 52 + AA).Text

Gruß
Rudi


  

Betrifft: AW: Doch noch 'ne Frage an Tino von: Frank H.
Geschrieben am: 16.11.2009 16:51:38

Hallo Ihr zwei!

Jetzt funzt es wie gewollt!!!

Vielen Dank an alle Beteiligten!!!

Gruß Frank H.


  

Betrifft: Rudi seine Lösung ist die richtige. von: Tino
Geschrieben am: 16.11.2009 16:08:35

Hallo,
war wohl gestern Abend doch zu spät. ;-)

Gruß Tino