Bei Änderung TabelleA, TabelleB sortieren
06.07.2018 17:31:12
CL
ich suche jetzt seit einer gefühlten Ewigkeit nach einer Lösung, um bei einer Änderung in Tabelle A automatisch die komplette Spalte A und D der Tabelle B zu sortieren.
So ungefähr sollte es doch klappen oder (in Tabelle A eingefügt)
Ich weiß einfach nur nicht wie ich das mit dem anderen Tabellenblatt korrekt unterkriege...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = ThisWorkbook.Sheets("Tabelle B").Range("A:D")
If Not Application.Intersect(Target, Bereich) Is Nothing Then
Bereich.Sort Key1:=Range("A1"), Header:=xlYes
End If
End Sub
Vielleicht weiß jemand wie es funktionieren könnte.