Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Laufende Eintragungen mit revolvierender Numerierung

Gruppe

Change

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.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

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