Kann Wert nicht löschen
Heinz
Habe ein Makro,wenn ich in Spalte A z.B. 17 eingebe wird automatisch automatisch das Monat & Jahr von heute angehängt.Also 17.09.2010
Nur wenn ich den Eintrag in A löschen möchte kommt immer wieder ein anderes Datum.
Habe die Datei mal angehängt.
Wüsste da bitte jemand eine Abhilfe?
Danke
Heinz
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
If Target.Column = 1 Then 'nur Spalte A
Target = DateSerial(Cells(1, 16), Cells(1, 15), Target.Value) 'O1=Monat P1=Jahr
End If
End Sub
Anzeige