Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Bei Eingabe in Spalte B nächsthöhere Nummer in Spalte A
Gruppe
Change
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