Tagesdatum eingeben.
adi
Wie könnte man das Makro flexibler gestalten?
Oder in jeder Tabelle ein eigenes Makro schreiben, so dass man sich die Spalten selber aussuchen kann.
Das jetzige Makro sieht so aus, siehe unten.
Gruß adi
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim vTest
If (Target.Column = 1 Or Target.Column = 13) 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