Hallo Peter,
das folgende Makro gehört in das VBA-Projekt der Tabelle1:
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Tabelle2")
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=.Range("B2:B8") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("C2:C8") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add Key:=.Range("A2:A8") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("A1:E8")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Sobald in Tabelle1 etwas eingegeben wird, wird in Tabelle2 der Bereich B2 bis E8 sortiert wird. Beachte aber bitte, dass Änderungen in Formeln im Tabellenblatt 1 das Sortierereignis in Tabellenblatt 2 nicht auslösen.
Am Besten du kopierst den Code direkt in das VBA-Projekt der Tabelle.
Gruß
M.O.