Text übertragen
04.02.2015 13:46:19
Jochen
Ich habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("O2:O236")) Is Nothing And Target.Count = 1 Then
Cells(Target.Row, "M") = Date
End If
End Sub
Der Eintrag in Spalte J dient nur als Dokumentation denn O muss immer wieder gelöscht werden.
Hat jemand eine Lösung für mein Problem.
Danke im Voraus
Gruß
Jochen