Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeile Fixieren

Zeile Fixieren
10.01.2024 12:36:43
Nazif
Hallo Zusammen,

Ich habe einen sehr lange tabelle von zeile 1 bis zeile 3000,

So ich habe jetzt mit drehfeld so das ich von zeile 1 auf 100 auf 200 auf 300 auf 400 usw springe mit VBA.

Meine frage lautet ob es möglich ist das ich wen ich bei zeile 1 bis 99 die zeile 1und 2 fixiert sind,
dann ab 100 die 100 und 101 fiexiert werden bis 199 und dann bei 200 200 und 201 bis 299 usw.

Danke im Voraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile Fixieren
10.01.2024 13:24:06
daniel
nein.
du kannst nur einen Bereich fixieren, der oberhalb des Scrollbereichs liegt und somit mit Zeile 1 beginnt.

meine Idee als Workaround, wenn du die Zellen nur als überschrift zum anschauen brauchst:
1. fixiere Zeile 1und 2
2. kopiere zwei Zeilen und füge als "Verknüpfte Bildkopie" ein, platziere die Bildkopie in den Zeilen 1:2
3. im Makro, in welchem du den Sprung ausführst, änderst du dann immer auch die Verknüpfungsadresse der Bildkopie auf die jeweils benötigten zeilen ab, so dass diese dann im fixierten Bereich angezeigt werden.

eine andere Möglichkeit wäre vielleicht das:
in dem Marko, mit welchem du den Sprung ausführst, fixierst du den ganzen Bereich von 1 bis zu diesen überschriftenzeilen und blendest dann die zeilen, die zwischen Zeile 1 und der Überschrift liegen, aus.



Gruß Daniel

Anzeige
Zeilen per Drehfeld fixieren
10.01.2024 13:42:27
NoNet
Hallo Nazif,

hier ein VBA Code-Beispiel für ein Drehfeld aus den Formular-Steuerelementen :

Dim lngz


Sub FensterScrollenUndFixieren()
With ActiveSheet.Spinners(1) 'Erstes Drehfeld referenzieren
lngz = Range(.LinkedCell).Value
.Top = Cells(Range(.LinkedCell).Value, 1).Top + 5
End With

ActiveWindow.FreezePanes = False
ActiveWindow.ScrollRow = lngz
Cells(lngz + 2, 1).Select
ActiveWindow.FreezePanes = True
End Sub


Das Drehfeld muss (z.B. per Rechtsklick → "Steuerelement formatieren") mit einem Minimalwert und einer verknüpften Zelle formatiert sein :
Drehfeld per Rechtsklick formatieren

Salut, NoNet
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige