Automatische Sortierung
21.09.2022 14:36:17
Raphael
da ich hier schon einige Hilfestellungen erhalten habe, hoffe ich auch hier eine Lösung für mein Problem zu finden. Ich habe eine Excel Datei mit mehreren Mappen. Ich konnte bereits ein funktionierendes Makro implementieren um in einer intelligenten Tabelle eine Sortierung nach der Eingabe anzustoßen.
Nun würde ich dieses Makro gerne auf die gesamte Datei ausweiten, sodass bei jeder Änderung in der jeweiligen Mappe das Makro ausgeführt wird. Leider komme ich genau an dieser Stelle nicht weiter. Nachfolgend mein funktionierender Code:
_____________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
'Prüfen, ob Datum verändert wurde
If Not Intersect(Target, Range("Tabelle1[Datum]")) Is Nothing Then
'Variable dimensionieren
Dim Datum As Date
'Bestand merken
Datum = Target.Value
'Sortieren
Range("Tabelle1").Sort Key1:=Range("Tabelle1[Datum]"), order1:=xlAscending, Header:=xlYes
'Bestand suchen
Range("F:F").Find(what:=Datum).Activate
End If
End Sub
Wenn ich dieses Makro nun ins Workbooksheetchange verlagere, funktioniert der Code nur für Tabelle 1, da alle weiteren Tabellen nicht die Bezeichnung Tabelle1 haben.
Wie muss ich nachfolgenden Code anpassen, dass alle Tabellen in der Datei berücksichtigt werden? Ich habe es bereits mit listobject versucht, konnte hier jedoch keinen Fortschritt erzielen:
___________________________________________________________
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Prüfen, ob Datum verändert wurde
If Not Intersect(Target, Range("Tabelle1[Datum]")) Is Nothing Then
'Variable dimensionieren
Dim Datum As Date
'Bestand merken
Datum = Target.Value
'Sortieren
Range("Tabelle1").Sort Key1:=Range("Tabelle1[Datum]"), order1:=xlAscending, Header:=xlYes
'Bestand suchen
Range("F:F").Find(what:=Datum).Activate
End If
End Sub
Ich bedanke mich im Voraus für eure Hilfe.
LG Raphael