AW: Tabelle gefiltert auf anderem Blatt anzeigen.
28.12.2003 15:12:33
Nepumuk
Hallo Martino,
einen Rechtsklick auf den Tabellenreiter, in der die Anzeige erfolgen soll. Dann im Kontextmenü - Code anzeigen - anklicken und folgenden Code in das sich öffnende Editorfenster kopieren.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngEingabezeile As Long, lngAusgabezeile As Long
If Target.Address = "$A$1" Then
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
lngAusgabezeile = 4
Range(Cells(5, 1), Cells(65536, 256)).ClearContents
With Worksheets("Tabelle2")
For lngEingabezeile = 1 To .Cells(65536, 1).End(xlUp).Row
If .Cells(lngEingabezeile, 1) = Target.Value Then
lngAusgabezeile = lngAusgabezeile + 1
Range(Cells(lngAusgabezeile, 1), Cells(lngAusgabezeile, 256)).Value = _
.Range(.Cells(lngEingabezeile, 1), .Cells(lngEingabezeile, 256)).Value
End If
Next
End With
Beep
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
In der Zeile: With Worksheets("Tabelle2") eventuell noch den Namen Tabelle2 gegen den Namen deiner Datentabelle austauschen, Fenster schließen, fertig.
Gruß
Nepumuk