Zeilen fixieren

[König Ludwig]

Guten Abend zusammen,

ich suche eine Möglichkeit, Zeilen flexibel zu fixieren und das soll in etwa so funktionieren:
Befinde ich mich im Zeilenbereich z.B. bis 50, sollen die Zeilen 1 und 2 am oberen Bildschirmrand fixiert sein.
Bin ich in Zeile 51-100, sollen die Zeilen 51 und 52 am oberen Bildschirm fixiert sein, natürlich automatisch
Ich dachte dabei z.B. an eine Ereignisprozedur, die den Scrollbalken auswertet.
Gibt es da eine Möglichkeit?
Vielen Dank für Eure Hilfe.

Viele Grüße
Alexander

[Klaus-Dieter]

Hallo,

das geht so nicht. Du kannst zum Beispiel nur die Zeilen 1 - 50 fixieren, mittendrin geht das nicht.

[König Ludwig]

Hallo Klaus-Dieter,

schade, daß das nicht geht, wäre eine echte Neuerung für Excel.
Vielen Dank aber für Deine Antwort.

Viele Grüße
Alexander

[Kuwer]

Hallo Alexander,

es ginge schon etwas, aber nicht mit dem Scrollbalken. Man muss schon direkt Zellen markieren, also z.B. mit den Tasten Pfeilhoch/-runter.
Füge folgenden Code in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes ein:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Static lngZeile As Long
  Dim lngT As Long
  
  lngT = Application.RoundDown(Target.Cells(1).Row / 50, 0) * 50 + 1
  If lngT <> lngZeile Then
    lngZeile = lngT
    ActiveWindow.FreezePanes = False
    Application.Goto Rows(lngT), True
    Rows(lngT + 2).Select
    ActiveWindow.FreezePanes = True
    Target.Select
  End If
End Sub

Gruß Uwe

[König Ludwig]

Hallo Uwe,

sehr gut, genau so hatte ich es mir vorgestellt.
Vielen Dank!

Viele Grüße und ein schönes Wochenende

Alexander