Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Doch noch 'ne Frage an Tino

Doch noch 'ne Frage an Tino
Frank
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.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Doch noch 'ne Frage an Tino
16.11.2009 14:04:17
Rudi
Hallo,
versuchs mal so:
Ar3(1, AA) = .Cells(LRowMax, 52 + AA).Text
Gruß
Rudi
AW: Doch noch 'ne Frage an Tino
16.11.2009 16:51:38
Frank
Hallo Ihr zwei!
Jetzt funzt es wie gewollt!!!
Vielen Dank an alle Beteiligten!!!
Gruß Frank H.
Rudi seine Lösung ist die richtige.
16.11.2009 16:08:35
Tino
Hallo,
war wohl gestern Abend doch zu spät. ;-)
Gruß Tino
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige