Stringsplit und Datum

Forumthread: Stringsplit und Datum
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Stringsplit und Datum

22.12.2021 15:01:57

Hallo zusammen,
ich habe ein Problem mit folgendem Code:


letzernr = (verkürzt:) SB-2020-01
split_sText = Split(letzernr, "-")
'MsgBox "Jahr: " & split_sText(1)
If Year(Date)  split_sText(1) Then
y = Year(Date)
lnr = 1
Else
y = split_sText(1)
lnr = split_sText(2) + 1
End If
If lnr

Hier scheint Excel nicht das aktuelle Jahr mit dem Jahr aus dem Stringsplit vergleichen zu können.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Stringsplit und Datum

22.12.2021 15:18:33

Nepumuk
AW: Stringsplit und Datum

22.12.2021 15:19:08

ChrisL
AW: Stringsplit und Datum

22.12.2021 15:47:28

S
AW: Stringsplit und Datum

22.12.2021 15:48:59

Yal

AW: Stringsplit und Datum

22.12.2021 15:18:33

Nepumuk

Hallo,
Split erzeugt immer ein String-Array. Du versuchst also einen String mit einem Integer-Wert zu vergleichen. Daher:


If Year(Date)  CInt(split_sText(1)) Then

Gruß
Nepumuk

AW: Stringsplit und Datum

22.12.2021 15:19:08

ChrisL

Hi
Es sind unterschiedliche Datentypen (Year = Zahl, Split = Text).
z.B.


If Year(Date)  CInt(split_sText(1)) Then

CInt macht aus dem Text ein Datentyp Integer (Zahl)
cu
Chris

AW: Stringsplit und Datum

22.12.2021 15:47:28

Ja das wars... war zwar auch meine erste Vermutung, aber dadurch das ich mit dem split(2) problemlos rechnen konnte ging ich davon aus das auch split(1) ein Zahlenwert ist.
Aber gelöst.
Vielen Dank euch beiden

AW: Stringsplit und Datum

22.12.2021 15:48:59

Yal

Wie Nepumuk und ChrisL sagen, und das gleich für LNR:


letzernr = "SB-2020-01"
split_sText = Split(letzernr, "-")
'MsgBox "Jahr: " & split_sText(1)
If Year(Date)  CInt(split_sText(1)) Then
y = Year(Date)
lnr = "01"
Else
y = split_sText(1)
lnr = Format(split_sText(2) + 1, "00")
End If

VG
Yal

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!