Gruppe
Ereignis
Problem
Bei Einträgen in Spalte A von Tabelle1 soll der Eintrag automatisch in Tabelle2 übernommen werden. Beide Tabellen sind zu sortieren.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Worksheets("Tabelle2").Range(Target.Address).Value = Target.Value
Range("A1").Sort key1:=Range("A2"), order1:=xlAscending, header:=xlYes
With Worksheets("Tabelle2")
.Range("A1").Sort key1:=.Range("A2"), order1:=xlAscending, header:=xlYes
End With
End Sub