Dynamisches Fixieren von Zeilen

[ExcelMania]

Hallo,

ich würde gerne die erste Zeile meines Arbeitsblattes fixieren.
Wenn ich im Arbeitsblatt weiter runter scrolle, soll diese Fixierung bis zu einer bestimmten Zeile gelten.

Ab Zeile 87 soll nicht mehr die erste, sondern eben Zeile 87 fixiert werden.

Ist das irgendwie möglich?

Viele Grüße

[WillWissen]

Hi,

nein, das ist automatisch nicht möglich - zumindest nicht mit Bordmitteln. Du musst die erste Fixierung aufheben und ab Zeile 87 neu fixieren.

[ExcelMania]

Hi Günther,

vielen Dank schon mal für deine Rückmeldung.

Wäre das mit VBA möglich?

[WillWissen]

Hi,

da müsstest du auf die VBA-Spezies warten - hierbei kann ich nicht helfen.

Edit: Ich könnte mir vorstellen, dass es mit einem Makro klappt. Zum Testen habe ich eines aufgezeichnet (Zeile 1 war fixiert, wurde aufgehoben und Zeile 20 wieder fixiert).

Code:

Option Explicit

Sub ZeilenFixieren()
'
' ZeilenFixieren Makro
'

'
    Rows("20:20").Select
    ActiveWindow.FreezePanes = False
    ActiveWindow.FreezePanes = True
End Sub

[ExcelMania]

Hi,

danke!
Aber damit fixiere ich alle Zeilen von 1 bis 20. 
Die Idee war ja, Zeile 1 zu fixieren. Wenn ich runter scrolle bleibt die erste Zeile immer oben.

Sobald ich bei Zeile 87 ankomme (mit "ankommen" meine ich, dass Zeile 87 im Fenster direkt unter der Zeile 1 erscheint), soll die Fixierung für Zeile 1 aufgehoben und stattdessen Zeile 87 fixiert werden.
Wichtig wäre, nur die Zeile 87 zu fixieren, da andernfalls (Fixierung der Zeilen 1 - 87) immer das gesamte Fenster fixiert bleiben wird (da selbst bei geringem Zoom-Faktor nur ca. 50 Zeilen auf einmal im Fenster zu sehen sind).

[Kuwer]

Hallo,

ich habe den Code von hier entsprechend geändert:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Static lngZeile As Long

  Dim lngT As Long

  

  lngT = Application.RoundDown(Target.Cells(1).Row / 86, 0) * 86 + 1

  If lngT <> lngZeile Then

    lngZeile = lngT

    ActiveWindow.FreezePanes = False

    Application.Goto Rows(lngT), True

    Rows(lngT + 1).Select

    ActiveWindow.FreezePanes = True

    Target.Select

  End If

End Sub

Gruß Uwe

[WillWissen]

Hallo,

das war ja nur als Hinweis und Beispiel gedacht. Ich schrieb bereits, dass hier die VBA-Spezies ranmüssen.

[ExcelMania]

Hi Uwe,

cool, das geht auf jeden Fall schon in die richtige Richtung!
Wenn ich den anderen Thread richtig verstehe, funktioniert das allerdings nur, wenn man auch in die entsprechenden Zellen klickt bzw. mit den Pfeiltasten "runter scrollt".

Gibt es irgendeine Möglichkeit, dies auch einfach für das Scrollen mit der Maus zuzulassen (mit dem Mausrad oder Nutzung des Navigationsbalken auf der rechten Seite), ohne dass man in die einzelnen Zellen klicken muss?

Mit deinem aktuellen Code funktioniert es durch "runter scrollen" mit den Pfeiltasten. Wenn ich aber wieder hoch scrollen möchte, und höher als Zeile 87 gehe, wird automatisch Zeile 1 - 24 fixiert (anstatt wieder nur die Zeile 1).

Hast du eine Idee, wie man das umgehen könnte?

Vielen Dank schon mal für deine Hilfe und viele Grüße,
David

[LuckyJoe]

Hi,

das dürfte richtig „an's Eingemachte” gehen, wie man so schön sagt, denn mit den VBA-„Bordmitteln” geht das nicht. Ein Beispiel zeigt dieser Link, wobei ich ehrlich zugeben muss, dass das meinen Horizont übersteigt.

[Kuwer]

Hallo David,

ich halte mich (auch) nur an die Bordmittel (Select-Event).
Teste mal das:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Static lngZeile As Long

  Dim lngT As Long

  

  On Error Resume Next

  lngT = ActiveWindow.VisibleRange.Row

  If lngT > 86 And lngZeile <> 87 Then

    lngZeile = 87

    Application.EnableEvents = False

    ActiveWindow.FreezePanes = False

    Application.Goto Cells(87, 1), True

    ActiveCell.Offset(1).Select

    ActiveWindow.FreezePanes = True

    Target.Select

    Application.EnableEvents = True

  ElseIf Target.Row < 87 And lngZeile <> 1 Then

    lngZeile = 1

    Application.EnableEvents = False

    ActiveWindow.FreezePanes = False

    Application.Goto Cells(1, 1), True

    ActiveCell.Offset(1).Select

    ActiveWindow.FreezePanes = True

    Application.Intersect(Rows(1), Target.EntireColumn).Select

    Application.EnableEvents = True

  End If

End Sub

Gruß Uwe