wie bekomme ich folgendes per VBA hin:
Ich gebe in der Spalte B ein Datum (tt.mm.jjjj) ein, wenn dieses Datum eingegeben ist, soll dieses in die zelle nach links (Spalte A) kopiert und mit der Formatierung jjjjmmyy eingefügt werden.
Gruß
Mani
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If IsDate(Target) Then
Application.EnableEvents = False
Target.Offset(0, -1) = Target
Target.Offset(0, -1).NumberFormat = "yyyymmdd"
Application.EnableEvents = True
End If
End If
End Sub