Habe folgenden Code geschrieben:
Private Sub eingabeeins()
Sheets("Tabelle1").Activate
Range("b1").Select
If ActiveCell = "01.01.2004" And ActiveCell.Offset(1, 0).Text = "Januar" Then ActiveCell.Offset(0, 1).Value = "1" _
Else ActiveCell.Offset(0, 1).Value = ""
End Sub
Ich möchte aber mit dem Code folgendes bezwecken: Nur wenn der Monat übereinstimmt (das Jahr und der Tag sind egal) ) und der Monatsname soll in einem bestimmten Feld die 1 ausgeworfen werden, ansonsten nichts. Habe es nur wie im o.a. Code hinbekommen, wo der komplette Eintrag (im Bsp. 01.01.2004) abgeglichen wird. Wer kann mir dabei helfen ??? Vielen Dank im Voraus und Gruss
Thorsten
Hab es