PDA

Vollständige Version anzeigen : Gleicher Autofilter auf zwei Sheets


Luka$
24.03.2009, 17:19
Hallo,

ich habe eine Excel Sheet, welches mehr als die vorhandenen 256 Spalten benötigt. Also habe ich dieses Sheet in 2 Sheets aufgeteilt.

1. Sheet:
1 - 50 Spalte Daten
51- 256 Spalte Berechnete Daten

2. Sheet:
1 - 50 Spalte Daten
51- 100 Spalte Berechnete Daten

Ich möchte nun nach den ersten 50 Spalten im 1. Sheet Filtern können. Die Ergebnisse im 2. Sheet sollen dann angepasst werden.

Hat jemand eine Idee wie ich das realisieren könnte?

jinx
24.03.2009, 17:24
Moin, Luka$,

vielleicht so:

Private Sub Worksheet_Calculate()

Dim sFilter As String

If Tabelle1.AutoFilterMode And _
Tabelle1.AutoFilter.Filters(1).On And _
Tabelle2.AutoFilterMode Then

On Error Resume Next
Tabelle2.ShowAllData
Tabelle2.UsedRange.AutoFilter _
Field:=1, _
Criteria1:=Tabelle1.AutoFilter.Filters(1).Criteria1, _
Operator:=xlOr
On Error GoTo 0
Else
On Error Resume Next
Tabelle2.ShowAllData
On Error GoTo 0
End If

End Sub