VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Automatische Sortierung bei Zelleintrag

Gruppe

Ereignis

Bereich

Change

Thema

Automatische Sortierung bei Zelleintrag

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

    


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