✔ nur bestimmte Zeichen aus String herrausgreifen

[maybebaby]

Hallo allerseits,

ich habe einen String, in dem ein Datum steht. Um nun herauszufinden in welchem Monat ich mich befinde müsste ich nur das 4te und 5te Zeichen auswerten, da mein Datumsformat wie folgt aussieht: 01.01.2008

Ich lese nun in die Variable Datum, das gesamte Datum, will aber wie gesagt nur Stelle 4 und 5 auswerten, wie kann ich diese 2 Stellen herrausschneiden ?

Datum = Sheets(SheetName).Cells(3, Col2)

vlg

 

[ojamaney]

Hi, da das Datum interpunktiert ist, kannst Du es mit der Split-Funktion machen.

Dim arrayDatum() As String
Dim Tag As Interger
Dim Monat As Integer

arrayDatum = Split(Datum,".")
Tag = CInt(arrayDatum(0))
Monat = CInt(arrayDatum(1))

Wenn Du Tag und Monat mit den führenden Nullen brauchst, dann deklariere Tag und Monat einfach als String und lasse das "CInt()" weg.

 

[wincnc]

Hallo, versuch´s mal so:

Datum = Mid(Sheets(SheetName).Cells(3, Col2), 4, 2)

 

[Ein_Freund]

Hallo,

wenn es sich um ein Datum handelt, dann kannst Du auch die Datumsfunktionen nutzen.

In Deinem Fall z.B.:

datum = Month(sheets(sheetName).cells(3, col2))

Gruß

 

[maybebaby]

danke klappt alles super jetz muss ich mich nur noch entscheiden was ich nehm.. ich denke das mit dem Datum ist in diesem Fall super ^^