31 Datumsangaben mit einem Jahreswert versehen

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe User,

ich habe folgendes Problem:

in Zeile 6 einer Excel-Datei stehen ab Spalte C bis Spalte AG aufsteigende Monatswerte, z.B. 01.01. - 31.01.

Sie sind im Format „dd/mm/yy“

Weiterhin habe ich in Zelle B3 eine Monats-Jahres-Angabe die z.B. so aussieht:
Januar 2011. Sie ist im Textformat.

Am Ende will ich das die Zeile 6 so aussieht:
01.01.2011|02.01.2011|03.01.2011|…|31.01.2011

Nun mein Code der das irgendwie nicht schafft:

Code:

Sub MachDatum()

Dim MD As Range

With Tabelle1
Range(„6:6“).NumberFormat = „dd/mm/yyyy“
For Each MD In .Range(„C8:AG8“)
If Len(MD.Text) = 5 Then
MD = DateSerial(Val(Right(.Cells(3, 2), 4)), Val(Right(MD, 2)), Val(Left(MD, 2)))
MD.NumberFormat = „dd/mm/yyyy“
End If
Next MD
End With
End Sub

#2

in Zeile 6 einer Excel-Datei stehen ab Spalte C bis Spalte AG
aufsteigende Monatswerte, z.B. 01.01. - 31.01.

Sie sind im Format „dd/mm/yy“

Weiterhin habe ich in Zelle B3 eine Monats-Jahres-Angabe die
z.B. so aussieht:
Januar 2011. Sie ist im Textformat.

Am Ende will ich das die Zeile 6 so aussieht:
01.01.2011|02.01.2011|03.01.2011|…|31.01.2011

Hallo Arved,

probiers mal so:

Sub Datuemer()
Range(„C6:AG6“).FormulaLocal = „=DATWERT(SPALTE()-2&$B$3)“
Range(„C6:AG6“).Value = Range(„C6:AG6“).Value
Range(„C6:AG6“).NumberFormat = „dd.mm.yyyy“
End Sub

Gruß
Reinhard

#3

Vielen Dank, das funktioniert einwandfrei!