Hallo
Ich würde gerne ein Datum automatisch in eine Zelle schreiben. Das Datum welches ich haben möchte, steht in einer Spalte als Überschrift. Wenn ich jetzt unter dieser Überschrift in eine beliebige Zelle etwas eintrage, dann soll dieses Überschrift (Datum) in der Zeile links in eine Zelle geschrieben werden.
Ich habe folgendne Code, der nicht funktioniert. Vielleicht kann mir hier jemdand helfen
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("Q5:OI57")) Is Nothing Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = UCase(Target)
Cells(Target.Row, 15) = CDate(Cells(3, Target.Column))
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
|