Gruppe
Ereignis
Problem
Numerierungen in Spalte A sollen bei Eingaben in Spalte B automatisch eingetragen werden. Ist Zeile 18 erreicht, wird die Eintragung in Zeile 1 mit der nächstfolgenden Nummer fortgesetzt.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.EnableEvents = False
If Target.Row = 1 Then
If Not IsEmpty(Cells(19, 1)) Then
Target.Offset(0, -1) = Cells(19, 1) + 1
Else
Target.Offset(0, -1) = 1
End If
Else
Target.Offset(0, -1) = Target.Offset(-1, -1) + 1
End If
Application.EnableEvents = True
End Sub