fungerer som en mester, og så enkelt. mange tak!

Hej, det fungerer fint, dog kun når man manuelt ændrer data i tabellen.

Jeg har en "top ti/leader board"-stil filtreret tabel, som er udfyldt fra dataindtastning på et separat regneark (faktisk går dataene gennem 3 regneark, før de kommer til bordet). Når dataene ændres i regnearket til dataindtastning, opdateres tabeltallene i ranglisten, men filteret opdateres ikke automatisk.
Nogle ideer til hvordan man gør det?
Meget taknemmelig.
Alex

Hej, mange tak for hjælpen. Der er noget, der ikke fungerer rigtigt for mig. Her er historien.

Ark1 har variable data. Sheet3 har statiske data og filter. Filterkriterier på "Sheet3" kommer fra Sheet1. Ark1 har data, der kommer fra filtrerede resultater på Ark3.

Ark 3 har kode:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:U14").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A22:U23"), CopyToRange:=Range("A25:U26"), Unique:=False
End Sub

Det fungerer godt, hvis jeg laver noget på Sheet3. Ingen problemer. Tak skal du have!

Først havde jeg kode på Sheet1:

Privat Sub Worksheet_Change (ByVal Target As Range)
Sheets("Sheet3").AutoFilter.ApplyFilter
End Sub

Hvilket resulterede i fejlen "Runtime error 91, Object Variable or With Block not Set".

Jeg ændrede koden baseret på kommentarer til at være:

Privat Sub Worksheet_Change (ByVal Target As Range)
On Error Resume Next
Sheets("Sheet3").AutoFilter.ApplyFilter
End Sub

Nu får jeg ikke en fejl, men dataene på Sheet3 og derfor Sheet1 ændres ikke. Med andre ord, tilfældet med at anvende filteret på Sheet3 forekommer ikke, når jeg foretager en ændring på Sheet1. Det er lige meget, om jeg slår eller klik på en anden celle efter at have ændret cellen for Sheet3-filterkriterier, der er indstillet på Sheet1.

Som en sidebemærkning forventer jeg, at hvis jeg ville have flere celler på Sheet1, der forårsagede filtre på Sheet 4 og 5 ud over Sheet3, ville jeg have brug for koden på Sheet 1 for at læse:

Privat Sub Worksheet_Change (ByVal Target As Range)
On Error Resume Next
Sheets("Sheet3").AutoFilter.ApplyFilter
Sheets("Sheet4").AutoFilter.ApplyFilter
Sheets("Sheet5").AutoFilter.ApplyFilter
End Sub

Tak igen!