Office: Filter über mehrere Sheets

Nochmal ich:

Teste doch mal, ob es eine Beschleunigung bringt, wenn du für die Laufzeit des Codes die Bildschirmaktualisierung abschaltest, z.B.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Tabelle1" Then
Dim LetzteZeile As Long, i As Long
Application.ScreenUpdating = False
Rows.Hidden = False
LetzteZeile = Range("A:A").Find(What:="*", SearchDirection:=xlPrevious).Row
With Sheets("Tabelle1")
For i = 1 To LetzteZeile
Rows(i).Hidden = .Rows(i).Hidden
Next i
End With
Application.ScreenUpdating = True
End If
End Sub

 

Klappt fast perfekt;)
Er sortiert in Tabelle 2 nun nicht mehr wenn ich in Tabelle 1 keinen Filter aktiviert habe.

NUR

Wenn ich in Tabelle 1 einen Filter aktiviere und mir Tabelle 2 anschaue, ist alles perfekt sortiert (Fall 1).

gehe ich nun auf Tabelle 1 zurück und deaktiviere den Filter, bekomme ich in Tabelle 2 immer noch die sortierte Tabelle wie im Fall 1.

Wenn das auch noch abgeschlatet werden könnte, wäre der code perfekt!

Hast du vielleicht dafür auch noch ne idee ??

Gruss!

 

Hallo!

Dann hast du die Abfrage an der falschen Stelle eingebaut:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "Tabelle1" Then
Dim LetzteZeile As Long, i As Long
Rows.Hidden = False
If Sheets("Tabelle1").FilterMode = False Then Exit Sub
Application.ScreenUpdating = False
LetzteZeile = Range("A:A").Find(What:="*", SearchDirection:=xlPrevious).Row
With Sheets("Tabelle1")
For i = 1 To LetzteZeile
Rows(i).Hidden = .Rows(i).Hidden
Next i
End With
Application.ScreenUpdating = True
End If
End Sub

 

Ich hatte es tatsächlich an der falschen Stelle eingebaut.

Nun kann ich berichten: ALLES PALETTI!

Vielen Dank nochmal für deine Hilfe!

Gruss, Jochen