Scrollen bis zur letzten Zeile

Forumthread: Scrollen bis zur letzten Zeile

29.05.2007 16:12:01

Claudia

Hi,
wie kann ich die Scrollmöglichkeit so einschränken, dass nur bis zur letzten Zeile in der noch Text ist, gescrollt werden kann? Mit ScrollArea muss ich ja diesen Bereich kennen, bei mir schwankt er jedoch, es ist eine Vorlagendatei in der unterschiedliche Datenmengen eingefügt werden.
Das Problem betrifft mehrere Sheets einer Datei.
Vielen Dank.
Gruß, Claudia

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Scrollen bis zur letzten Zeile

29.05.2007 16:29:48

Oberschlumpf
AW: Scrollen bis zur letzten Zeile

29.05.2007 16:34:00

Original
AW: Scrollen bis zur letzten Zeile

29.05.2007 17:30:00

Claudia

AW: Scrollen bis zur letzten Zeile

29.05.2007 16:29:48

Oberschlumpf

Hi Claudia
Versuch mal so:
Worksheets(1).ScrollArea = "a1:LETZTESPALTE" & ActiveSheet.Cells(Rows.Count, SPALTEMITMEISTENZEILEN).End(xlUp).Row
Trag ein für...
...LETZTESPALTE = die Spalte, bis zu der maximal nach rechts gescrollt werden soll
...SPALTEMITMEISTENZEILEN = die Spalte (als Zahl - 1 = A, 2 = B, usw) mit den meisten Zeilen
Bsp
Worksheets(1).ScrollArea = "A1:Z" & ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
Hier würde der Bereich A+1:Z+letzte Zeile aus Spalte E (5) sein.
Jetzt stellt sich nur noch die Frage, wo und wann der Scrollbereich festgelegt werden soll.
Anbieten würde sich vllt das Change-Ereignis in jedem Sheet, oder?
Konnte ich helfen?
Ciao
Thorsten

AW: Scrollen bis zur letzten Zeile

29.05.2007 16:34:00

Original

Hi,


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) = "Worksheet" Then
Sh.ScrollArea = Sh.UsedRange.Address
End If
End Sub

mfg Kurt

AW: Scrollen bis zur letzten Zeile

29.05.2007 17:30:00

Claudia

Hi,
vielen Dank für Eure Hilfe, habe die Lösung von Kurt genommen,
Gruß, Claudia

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne dein Excel-Dokument und gehe zu dem Arbeitsblatt, für das du die Scroll-Bereichsbegrenzung einstellen möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.

Im VBA-Editor, füge das folgende Skript in das entsprechende Arbeitsblatt-Modul ein:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) = "Worksheet" Then
    Sh.ScrollArea = Sh.UsedRange.Address
End If
End Sub

Schließe den VBA-Editor und kehre zurück zu deinem Excel-Dokument.
Speichere deine Datei und teste die Scrollfunktion. Du solltest jetzt nur bis zur letzten Zeile scrollen können, in der noch Text vorhanden ist.

Häufige Fehler und Lösungen

Fehler: Die ScrollArea wird nicht korrekt gesetzt.
- Lösung: Stelle sicher, dass du das Skript im richtigen Arbeitsblatt-Modul eingefügt hast und dass das Arbeitsblatt aktiv ist.
Fehler: Excel scrollt weiterhin über die gewünschte Zeile hinaus.
- Lösung: Überprüfe, ob in den Zellen unterhalb der letzten Zeile Leerzeichen oder unsichtbare Zeichen vorhanden sind, die die ScrollArea beeinflussen könnten.

Alternative Methoden

Eine weitere Möglichkeit, die Scrollfunktion zu steuern, ist die Verwendung von VBA, um den Scrollbereich dynamisch zu setzen. Hier ist ein Beispiel:

Sub SetScrollArea()
    Dim lastRow As Long
    lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.ScrollArea = "A1:A" & lastRow
End Sub

Du kannst diese Methode verwenden, um gezielt einen bestimmten Bereich festzulegen.

Praktische Beispiele

Beispiel 1: Wenn du nur bis zur letzten Zeile in Spalte E scrollen möchtest, kannst du folgendes Skript verwenden:
```
Worksheets(1).ScrollArea = "A1:Z" & ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
```
Beispiel 2: Um die Scrollfunktion für mehrere Arbeitsblätter in einer Datei zu aktivieren, kannst du ein allgemeines Skript in ThisWorkbook einfügen, das in jedes Arbeitsblatt eingreift.

Tipps für Profis

Nutze die Worksheet_Change-Ereignisse, um die ScrollArea automatisch anzupassen, wenn Änderungen an den Daten vorgenommen werden.
Achte darauf, dass du die ScrollArea nicht manuell veränderst, während du die VBA-Skripte verwendest, da dies unerwartete Ergebnisse erzeugen kann.

FAQ: Häufige Fragen

1. Wie kann ich die ScrollArea nur für eine Zeile limitieren?
Du kannst die ScrollArea so festlegen, dass sie nur eine Zeile umfasst, indem du den Bereich entsprechend anpasst, z. B. ActiveSheet.ScrollArea = "A1:A1".

2. Welches Excel-Feature benötige ich, um den Scrollbereich einzuschränken?
Du benötigst grundlegende Kenntnisse in VBA, um die ScrollArea effektiv anzupassen und die gewünschten Ergebnisse zu erzielen.

Beliebteste Forumthreads (12 Monate)

Forumthread: Scrollen bis zur letzten Zeile

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Scrollen bis zur letzten Zeile in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread