VBA scroll area

Forumthread: VBA scroll area

VBA scroll area

27.08.2007 12:47:00

Peter

Werte VBA Cracks,
Mit Hilfe der Anweisung
Sheets("Tabelle1").ScrollArea = "A1:A10" kann ich den Scroll Bereich auf A1 bis A10 einschränken.
Wie lautet die Anweisung, um meherer Bereiche z.B. A1:A10, C1:C10 und F1:H20 beim Scrollen gleichzeitig einzuschränken?
Danke
Peter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA scroll area

27.08.2007 12:54:00

Renee
AW: VBA scroll area

27.08.2007 12:54:57

Reinhard

AW: VBA scroll area

27.08.2007 12:54:00

Renee

Hi Peter,
IMHO kann ScrollArea nur mit einem Bereich fertigwerden.
Greetz Renee

AW: VBA scroll area

27.08.2007 12:54:57

Reinhard

Hi Peter,
aus http://clever-forum.de/read.php?11,114824,114827#msg-114827
bei mehreren Bereichen mußt Du immer die letzte Zelle des Bereiches aktivieren, damit der neue Gültig wid.


scrollAreas definieren, wenn du Lust hast:
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "$A$1:$C$10"
End Sub
hier wird zwischen zweien gewechselt
du kannst aber noch mehrere definieren
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$C$10" Then
ActiveSheet.ScrollArea = "$D$11:$E$20"
ElseIf Target.Address = "$E$20" Then
ActiveSheet.ScrollArea = "$A$1:$C$10"
End If
End Sub

von ManuelaM
Gruß
Reinhard

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um den Scrollbereich in Excel mit VBA festzulegen, kannst du die folgende Vorgehensweise nutzen:

Öffne das Excel-Dokument und drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle das entsprechende Arbeitsblatt aus, in dem du den Scrollbereich festlegen möchtest.

Füge den folgenden Code in das Arbeitsblatt-Modul ein:

Private Sub Worksheet_Activate()
   ActiveSheet.ScrollArea = "$A$1:$C$10"
End Sub

Schließe den VBA-Editor und gehe zurück zu Excel.
Aktiviere das Arbeitsblatt, um den Scrollbereich anzuwenden.

Wenn du mehrere Bereiche gleichzeitig festlegen möchtest, kannst du den Code anpassen:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Target.Address = "$C$10" Then
        ActiveSheet.ScrollArea = "$D$11:$E$20"
    ElseIf Target.Address = "$E$20" Then
        ActiveSheet.ScrollArea = "$A$1:$C$10"
    End If
End Sub

Häufige Fehler und Lösungen

Fehler: Scrollbereich wird nicht angewendet.
- Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wurde und dass das Arbeitsblatt aktiviert ist.
Fehler: Mehrere Bereiche können nicht festgelegt werden.
- Lösung: Beachte, dass der Scrollbereich in Excel nur einen Bereich gleichzeitig akzeptiert. Verwende die Worksheet_SelectionChange-Methode, um zwischen verschiedenen Bereichen zu wechseln.

Alternative Methoden

Wenn du den Scrollbereich in Excel ohne VBA begrenzen möchtest, kannst du die folgenden Methoden verwenden:

Blattschutz aktivieren:
- Gehe zu Überprüfen > Blatt schützen und wähle die Zellen aus, die bearbeitet werden dürfen. Dies schränkt den Zugriff auf andere Bereiche ein.
Datenüberprüfung:
- Setze eine Datenüberprüfung für bestimmte Zellen, um Eingaben in anderen Bereichen zu verhindern.

Praktische Beispiele

Beispiel 1: Scrollbereich auf die Zellen A1 bis A10 festlegen:
```
ActiveSheet.ScrollArea = "A1:A10"
```

Beispiel 2: Dynamisches Festlegen des Scrollbereichs, basierend auf der Auswahl:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   If Target.Address = "$A$1" Then
       ActiveSheet.ScrollArea = "$A$1:$A$10"
   End If
End Sub

Tipps für Profis

Nutze die ScrollArea-Eigenschaft in Kombination mit anderen VBA-Funktionen, um benutzerfreundliche Schnittstellen zu erstellen.
Denke daran, den Scrollbereich regelmäßig zu überprüfen, besonders wenn sich die Struktur deiner Arbeitsmappe ändert.
Verwende die Scroll-Funktion, um schnell zu bestimmten Zellen zu navigieren.

FAQ: Häufige Fragen

1. Kann ich den Scrollbereich in Excel ohne VBA festlegen? Ja, du kannst den Zugang zu Zellen durch Blattschutz oder Datenüberprüfung einschränken, aber das ist nicht dasselbe wie das Festlegen eines Scrollbereichs.

2. Was passiert, wenn ich den Scrollbereich nicht mehr benötige? Du kannst den Scrollbereich entfernen, indem du im VBA-Editor die Zeile ActiveSheet.ScrollArea = "" einfügst.

3. Funktioniert das ScrollArea in allen Excel-Versionen? Ja, die ScrollArea-Eigenschaft ist in allen gängigen Excel-Versionen verfügbar, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)