ich möchte in Spalte D den größten wert suchen und dann die bestehende Nummer um 1 aufzählen und ausgeben (wenn in der gleichen Zeile in Spalte C eine Wert vorhanden ist) , also eine neue laufende Nummer erstellen. Es klappt nicht... was ist falsch?
Tom
Sub erhoehen()
Dim Target As Range 'hier erscheint Fehler
If Target.Column = 3 Then
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target.Offset(0, 1) = Application.WorksheetFunction.Max(Range("D:D")) + 1
Else
Target.Offset(0, 1).ClearContents
End If
Application.EnableEvents = True
End If
End Sub