BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

[gelöst] Calc Zeilen scrollen

Alles zur Programmierung im LibreOffice.
Antworten
fbarc
Beiträge: 33
Registriert: Mi 8. Dez 2021, 02:47

[gelöst] Calc Zeilen scrollen

Beitrag von fbarc » Mo 2. Mai 2022, 03:14

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
Zuletzt geändert von fbarc am Fr 2. Sep 2022, 04:22, insgesamt 1-mal geändert.
Gruß
Fabi

--------------------------------
Mein System: Linuxmint 20.2 | LibreOffice Version: 7.3.4.2
--------------------------------
Meine Signatur steht auf der Rückseite

tmp
Beiträge: 13
Registriert: Sa 27. Aug 2022, 12:41

Re: Calc Zeilen scrollen

Beitrag von tmp » Di 30. Aug 2022, 22:02

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.

fbarc
Beiträge: 33
Registriert: Mi 8. Dez 2021, 02:47

Re: Calc Zeilen scrollen

Beitrag von fbarc » Fr 2. Sep 2022, 04:22

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.
Gruß
Fabi

--------------------------------
Mein System: Linuxmint 20.2 | LibreOffice Version: 7.3.4.2
--------------------------------
Meine Signatur steht auf der Rückseite

tmp
Beiträge: 13
Registriert: Sa 27. Aug 2022, 12:41

Re: [gelöst] Calc Zeilen scrollen

Beitrag von tmp » So 4. Sep 2022, 17:20

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

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten