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