LibreOffice-Forum

Hi,

habe noch ein Problem...

Ich habe eine Tabelle mit fixiertem Kopfbereich, wo ein paar Schaltflächen sind.

Beim drücken wird eine neue Zeile eingefügt.
Somit füllt sich die Tabelle langsam.

Zeile 1-10 ist fest und immer sichtbar.
Zeile 11 - 35 ist auch noch sichtbar.

Wenn ich nun bei Zeile 36 und größer bin, fügt meine Schaltfläche alles korrekt ein, aber ich muß von Hand runterscrollen, damit ich noch was sehe.

Gibt es eine Möglichkeit, daß wenn man z.B. bei Zeile 30 ist, daß dann automatisch eine Zeile hochgescrollt wird?

Also das man immer den aktuellen Eintrag sieht..

Gruß
Fabi

Hallo fbarc,

etwas spät die Antwort, aber vielleicht hilft sie ja trotzdem weiter.

Die erste sichbare Zeile kannst du wie folgt angeben:

Code: Alles auswählen

ThisComponent.getCurrentController().setFirstVisibleRow(54)

Calc zeigt als erste Zeile dann die Zeile 54 an.

Beispiel:

Code: Alles auswählen

Sub move_cells()

Dim w As Worksheet
Set w = ThisWorkbook.Worksheets("Tabelle1")
Dim row As Long

row = w.Cells(Rows.Count, 1).End(xlUp).Row 'findet die letzte befüllte Zeile in Spalte 1

ThisComponent.getCurrentController().setFirstVisibleRow(row - 15)

End Sub

Der Code oben zeigt immer die letzten 15 gefüllten Zeilen an. Wenn du die Zeilen mit "row = w.Cells(Rows.Count, 1).End(xlUp).Row" und "ThisComponent.getCurrentController().setFirstVisibleRow(row - 15)" in eine Do-Loop-Schleife oder eine For-Next-Schleife einbaust, dann wandern die Zeilen automatisch nach oben und du kannst immer sehen, wie die Zellen befüllt werden.

Vielen Dank... hat mir geholfen...

Allerdings nur die Zeile

Code: Alles auswählen

ThisComponent.getCurrentController().setFirstVisibleRow(row - 15)

der restlichen Code paßt irgendwie gar nicht...

Code: Alles auswählen

Worksheet

und

Code: Alles auswählen

w.Cells(Rows.Count, 1).End(xlUp).Row

kennt mein Calc nicht.

Aber wie gesagt, die eine Zeiler war genau das was ich gebraucht hatte.

Hallo fbarc,

Code: Alles auswählen

der restlichen Code paßt irgendwie gar nicht...

Oh, sorry, mein Fehler. Das funktioniert nur mit aktiviertem VBA-Support.

Ganz oben in dem Modul muss dazu folgendes stehen:

Code: Alles auswählen

Option VbaSupport 1

Dann funktioniert auch der restliche Code.

---

edit: Tippfehler korrigiert

LibreOffice-Forum

[gelöst] Calc Zeilen scrollen

[gelöst] Calc Zeilen scrollen

Re: Calc Zeilen scrollen

Re: Calc Zeilen scrollen

Re: [gelöst] Calc Zeilen scrollen