Datum auslesen

Forumthread: Datum auslesen

Datum auslesen

02.01.2025 10:02:02

Frank H.

Hallo Zusammen,
zunächst wünsche ich allen ein gesundes und zufriedenes Jahr 2025.

Nun zu meiner Frage:

In ListBox2 stehen folgende Werte:

Name Geb.-Datum Alter

Das Geb.-Datum ist bspw. der 07.01.1958

In der cbJahr (ComboBox) steht die Jahreszahl.

Nun möchte ich gern das Geb.-Datum bei Klick in die ListBox in das Datum des aktuellen Wertes umwandeln.

Bsp. 07.01.1958 = 07.01.2025

Mein Gedanke war:

TextBox1 = DateSerial(Year(cbJahr), Month(.ListBox2.Column(1, .ListBox2.ListIndex)), Day(.ListBox2.Column(1, .ListBox2.ListIndex)))

Als Ergebnis bekomme ich 07.01.1905.

Was mache ich falsch? Ich bitte um Hilfe und bedanke mich im Voraus!

L.G. Frank H.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum auslesen

02.01.2025 10:18:51

hary
AW: Datum auslesen

02.01.2025 11:52:52

{Boris}
AW: Datum auslesen

02.01.2025 12:51:03

Frank H.
AW: Datum auslesen

02.01.2025 10:25:08

Frank H.
AW: Datum auslesen

02.01.2025 12:11:08

GerdL

AW: Datum auslesen

02.01.2025 10:18:51

hary

Moin
Da fuer Ecel ein Datum eine Zahl ist wird mit Year(cbJahr) 1905 da es der 2025'te Tag ist.
Nimm einfach

 DateSerial(clng(cbJahr.Value)

gruss hary

AW: Datum auslesen

02.01.2025 11:52:52

{Boris}

Hi,

da in cbJahr die Jahreszahl steht (und kein Datum), darfst Du daraus nicht wieder das Jahr auslesen, sondern musst einfach den Wert übernehmen.

TextBox1 = DateSerial(cbJahr, Month(.ListBox2.Column(1, .ListBox2.ListIndex)), Day(.ListBox2.Column(1, .ListBox2.ListIndex)))

Als kleiner Test dazu:

Sub test()
Const s As String = "1958"
MsgBox Year(s) 'ergibt 1905, denn 1958 ist der 11.5.1905
End Sub

VG, Boris

AW: Datum auslesen

02.01.2025 12:51:03

Frank H.

Hallo Gerd, hallo Boris!

Euch beiden gilt mein allerherzlichster Dank!
Beides funzt wie gewünscht!

Euch noch viel Spaß beim exceln und helfen!

L.G. Frank H.

AW: Datum auslesen

02.01.2025 10:25:08

Frank H.

Hallo Harry,

Danke für die schnelle Antwort. Funktioniert leider auch nicht. Selbes Ergebnis wie zuvor bei mir!

Gruß Frank H.

AW: Datum auslesen

02.01.2025 12:11:08

GerdL

Hallo Frank!

Dim X As Date

If ListBox2.ListIndex = -1 Or cbJahr.ListIndex = -1 Then Exit Sub

X = CDate(ListBox2.List(ListBox2.ListIndex, 1))

MsgBox DateSerial(CInt(cbJahr), Month(X), Day(X))

Frohes Schaffen im neuen Jahr!
Gerd

Forumthread: Datum auslesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread