Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Automatische Sortierung bei Zelleintrag

Gruppe

Change

Problem

Wenn in den Spalten A:D eine Eintragung erfolgt und alle vier Spalten in der relevanten Zeile ausgefüllt sind, soll eine Sortierung erfolgen.

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 > 4 Then Exit Sub
   If WorksheetFunction.CountA( _
      Range(Cells(Target.Row, 1), _
      Cells(Target.Row, 4))) = 4 Then
      Columns("A:D").Sort _
      key1:=Range("A2"), _
      order1:=xlAscending, header:=True
   End If
End Sub