Datumsformat in einer Listbox

[Grallinger René]

Hallo Zusammen

Folgendes:
Beim Starten einer Excel 97 Tabelle wird eine Eingabemaske geöffnet.

Ein Button in der Eingabemaske öffnet eine Listbox mit den aktuellen Daten
aus der Tabelle
Me.lsbDaten.RowSource = "TA!A2:L" & Range("A2").End(xlDown).Row

In der ersten Spalte sind Datumswerte formatiert mit dd.MM.yy.
Beim Aufruf der Listbox wird das Datum nun mit dem amerikanischen
Datumsformat angezeigt dd/MM/yy.

Schliesse ich die Listbox und die Eingabemaske und starte die Maske manuell
so werden die
Datumswerte korrekt angezeigt.

Kann ich in einer Listbox Spaltenweise formatierungen vornehmen?
Kennt jemand eine Lösung?

Danke und Gruss René

[Bernd Held]

Hallo René,

ja, das Problem kenne ich.
Baue die Anweisung Format ein

Private Sub ListBox1_Click()
UserForm1.TextBox1.Value = _
Format(UserForm1.ListBox1.Value, "dd.mm.yy")
End Sub

Im obigen Beispiel wird der momentan aktivierte Eintrag im Listenfeld in einem
Textfeld auf derselben Userform übertragen. Ohne die Anweisung Format würde das
Datum als Zahl übertragen.

Viele Grüße
Bernd
//////////////////////////////////////
// Die MacHero EXCEL/WORKS Homepage
// Microsoft Excel MVP
// http://members.aol.com/Machero
//
// Mein neues Excel-VBA-Programmierung-Kompendium (Excel 97 + 2000)
// http://www.mut.de/shop/sh-info.asp?ID=3827258154

Grallinger René schrieb:

[Grallinger René]

Hallo Bernd

Besten Dank für die prompte Anwort:
Leider ist dies nicht des Rätsels Lösung:

Beim Anzeigen der Listbox wird das falsche Datumsformat angezeigt.
d.h. in der ersten Spalte sind Datumswerte dessen Datumsformatierung nicht
identisch sind mit der
Formatierung im Tabellenblatt.

Formatierung im Tabellenblatt
01.01.00
Formatierung in der Listbox
01/01/00

Gruss René

"Bernd Held" <bh...@debis.com> schrieb im Newsbeitrag
news:399BA01A...@debis.com...

[Bernd Held]

Hallo Rene,

kontrolliere mal bitte Deine Ländereinstellungen unter Windows in der
Systemsteuerung. Eventuell ist dort das amerikanische Format hinterlegt.
Sollte es danach noch Probleme geben, sende ich Dir gerne mal eine Demodatei.
Bei mir funktioniert dieses Beispiel nämlich.

Viele Grüße
Bernd

Grallinger René schrieb:

[Grallinger René]

Hallo Bernd

Die Ländereinstellung ist korrekt auf Deutsch(Schweiz) eingestellt.
Der Lösungsweg den Du beschreibst der funktioniert, doch löst er nicht mein
Problem.

Ich habe in einer Userform nur eine Listbox und sonst gar nichts.
Mit einem Doppelklick auf einen Eintrag wird dieser Record in eine
Eingabemaske übernommen.

Gruss René

"Bernd Held" <bh...@debis.com> schrieb im Newsbeitrag

news:399D27D1...@debis.com...