Tagesdatum eingeben.
adi
heute Morgen hattest du mir diesen Code geschickt mit dem ich
in Spalte A nur den Tag eingeben muß, es ist alles prima,
nun möchte ich aber auch in Spalte O nach diesem Prinzip
das Datum eingeben.
Könntest du mir den Code dahin gehend abändern?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim vTest
If Target.Column = 1 And Target.Row > 5 Then
On Error Resume Next
vTest = Target * 1
On Error GoTo 0
Application.EnableEvents = False
If IsNumeric(vTest) Then
Select Case vTest
Case 1 To 31
Target = DateSerial(Year(Date), Month(Date), vTest)
Case Else
Target = ""
Target.Select
End Select
Else
Target = ""
Target.Select
End If
Application.EnableEvents = True
End If
End Sub
Adi
Anzeige