Gruppe
Ereignis
Bereich
Change
Thema
Bei Eingabe in Spalte B nächsthöhere Nummer in Spalte A
Problem
Bei Eingaben in Spalte B soll in Spalte A automatisch die nächsthöhere Nummer von Spalte A vergeben werden.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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