mittlerweile läuft der nachfolgende Code richtig:
Sub datum()
With Sheets("Tabelle1").Range("b1")
If Month(Cells(1, 2).Value) = 1 And .Offset(0, -1).Text = "Januar" _
Then .Offset(0, 1).Value = "1" _
Else .Offset(0, 1).Value = ""
end with
end sub
Wie schaut den der Code aus, wenn ich dies für alle 12 Monate in der selben Zelle anwenden will. Wenn ich nachfolgenden Code ausführe, wird natürlich nur der letzte Teil (also in diesem Beispiel 01.04.2003 - April) berücksichtigt. Mein Code:
Sub datum()
With Sheets("Tabelle1").Range("b1")
If Month(Cells(1, 2).Value) = 1 And .Offset(0, -1).Text = "Januar" _
Then .Offset(0, 1).Value = "1" _
Else .Offset(0, 1).Value = ""
With Sheets("Tabelle1").Range("b1")
If Month(Cells(1, 2).Value) = 2 And .Offset(0, -1).Text = "Februar" _
Then .Offset(0, 1).Value = "1" _
Else .Offset(0, 1).Value = ""
With Sheets("Tabelle1").Range("b1")
If Month(Cells(1, 2).Value) = 3 And .Offset(0, -1).Text = "März" _
Then .Offset(0, 1).Value = "1" _
Else .Offset(0, 1).Value = ""
With Sheets("Tabelle1").Range("b1")
If Month(Cells(1, 2).Value) = 4 And .Offset(0, -1).Text = "April" _
Then .Offset(0, 1).Value = "1" _
Else .Offset(0, 1).Value = ""
End With
End With
End With
End With
End Sub
Danke + Gruss Thorsten