VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Eingabe in Spalte B nächsthöhere Nummer in Spalte A

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change