Gruppe
Ereignis
Problem
Bei Eingaben in Spalte B soll in Spalte A automatisch die nächsthöhere Nummer von Spalte A vergeben werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
If IsEmpty(Target) Then
Target.Offset(0, -1).ClearContents
Else
Target.Offset(0, -1).Value = WorksheetFunction.Max(Columns(1)) + 1
Application.EnableEvents = True
End If
End Sub