Hallo Freunde,
besteht die Möglichkeit in diesem Toll einen Zellenumbruch ein zubauen?
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Errh
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D7")) Is Nothing Then
Range("D9").Value = "Bearbeitet von " "ZEILENUMBRUCH HIER" & Application.UserName
End If
Errh:
Application.EnableEvents = True
End Sub
Danke im voraus
Jochen