Datenschnittfenster horizontal fixieren
11.07.2023 17:07:09
Adi
erstellt wurde eine intelligente Tabelle (1000 Zeilen, 45 Spalten) und das Arbeitsblatt ist horizontal sowie vertikal fixiert. Im Fixierten Bereich liegen auf den Spalten E-K die 5 Datenschnitt-Fenster. Wenn ich nach rechts scrolle und in eine Zelle klicke, bewegen sich die 5 Datenschnitt-Fenster in den sichtbaren Fensterbereich. Das funktioniert mit hiermit ganz gut:
(Diese Arbeitsmappe, Workbook, SheetSelectionChange)
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Raum As Shape
Dim Gerät As Shape
Dim Hersteller As Shape
Dim Typ As Shape
'specify a slicer
Application.ScreenUpdating = False
Set Raum = ActiveSheet.Shapes("Raum")
Set Gerät = ActiveSheet.Shapes("Gerät")
Set Hersteller = ActiveSheet.Shapes("Hersteller")
Set Typ = ActiveSheet.Shapes("Typ")
'change position of the slicer
With Windows(1).VisibleRange.Cells(1, 1)
Raum.Top = .Top - 193
Raum.Left = .Left + 5
Gerät.Top = .Top - 193
Gerät.Left = .Left + 97
Hersteller.Top = .Top - 193
Hersteller.Left = .Left + 368
Typ.Top = .Top - 193
Typ.Left = .Left + 510
End With
Application.ScreenUpdating = True
End Sub
Jetzt mein Problem:
Nach dem Scrollen nach unten Anklicken einer Zelle wandern die 5 Datenschnitt-Fenster auch nach unten. Die sollen aber oben im fixierten Bereich stehen bleiben, damit diese immer sichtbar sind.
Weiß jemand weiter?