Month in VBA
05.02.2003 14:39:14
thorsten
habe immer noch ein Problem mit folgenden Code:
Sub datum()
Sheets("Tabelle1").Activate
Range("b1").Select
If Month(Cells(1, 1).Value) And ActiveCell.Offset(1, 0).Text = "Januar" _
Then ActiveCell.Offset(0, 1).Value = "2" _
Else ActiveCell.Offset(0, 1).Value = ""
End Sub
Möchte mit dem Code bezwecken, dass wenn z.Bsp. in einer Zelle das Datum 01.01.2002 und in einer anderen Zelle Januar sthet, in einer anderen Zelle eine 1 ausgeworfen wird. Das Jahr soll komplett ignoriert werden, also es nur der Monat berücksichtigt werden. Kann mir jemand helfen ??? Vielen Dank + Gruss an Alle !!!