Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ScrollArea funktioniert nicht

Forumthread: ScrollArea funktioniert nicht

ScrollArea funktioniert nicht
09.09.2004 08:44:26
christoph
Moin.
Springe in einer Tabelle über Commandbuttons inerhalb einer Tabelle und habe den Scrollbereci uber den Begriff Scrollarea begrenzt. Bei Commandbutton 3 und 2 klappt es perfekt, bei CommmandButton 1 nicht.
Hatte das problem schonmal habe die Idee eswegen verwofrn, muss es aber auf drängen meines cheffs wieder reinpacken... ... ...
Wo ist der Fehler?

Private Sub CommandButton1_Click()
Rows("8:200").Hidden = True 'Zeilen ausblenden
Rows("158:200").Hidden = False 'Zeilen einblenden
Range("B135").Select
ScrollArea = "159:199"
End Sub


Private Sub CommandButton2_Click()
Rows("8:200").Hidden = True 'Zeilen ausblenden
Rows("46:95").Hidden = False 'Zeilen einblenden
Range("B46").Select
ScrollArea = "46:95"
End Sub


Private Sub CommandButton3_Click()
Rows("8:200").Hidden = True 'Zeilen ausblenden
Rows("98:155").Hidden = False 'Zeilen ausblenden
Range("A98").Select
ScrollArea = "98:155"
End Sub

Gibt´s ne alternative Lösungsmöglichkeit?
Danke für Hilfe
Christoph
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ScrollArea funktioniert nicht
Daniel
Hi,
finde keinen Fehler. Bei mir funktioniert es.
mfg Daniel
AW: ScrollArea funktioniert nicht
rolf
hi christoph
stimmst das ?
Range("B135").Select
rolf
An diesem Fehler lag´s nicht
09.09.2004 13:08:50
christoph
mahlzeit,
das war natürlich falsch. Habe es korregiert, aber daran lags nicht.
Bin ratlos.vielecht behindern sich die befehle irgendwie untereinander-
Gibt´s ein befehl um die Scrollarea aufzuheben?
Danke für Hilfe,
Christoph
Anzeige
ScrollArea = "" (o.T.)
WernerB.
AW: ScrollArea funktioniert nicht
rolf
hi christoph
gegenfrage:
was macht er denn bei cmd 1 ?
rolf
Er macht nix
christoph
Er macht gar nix.
Dar bereich springt noch, die Zeilen werden ein, bzw ausgeblendet, aber ich kann überhapt nicht scrollen. Das Bild hängt
Christoph
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

ScrollArea in Excel: Fehlerbehebung und Lösungen


Schritt-für-Schritt-Anleitung

Um das Problem mit der ScrollArea in Excel zu beheben, kannst Du die folgenden Schritte befolgen:

  1. Überprüfe deinen Code: Stelle sicher, dass Du die richtige Zeile auswählst. Im Beispiel von Christoph wird Range("B135").Select verwendet. Achte darauf, dass die Auswahl tatsächlich innerhalb der angegebenen ScrollArea liegt.

  2. Setze die ScrollArea: Füge vor der Auswahl der Zeilen sicherheitshalber einen Befehl hinzu, um die ScrollArea zurückzusetzen:

    ScrollArea = ""
  3. Definiere die ScrollArea erneut: Setze die ScrollArea nach dem Einblenden der gewünschten Zeilen:

    ScrollArea = "159:199" ' Beispiel für CommandButton1
  4. Prüfe die Sichtbarkeit der Zeilen: Achte darauf, dass keine Zeilen außerhalb der definierten ScrollArea ausgeblendet sind, die Du später einblenden möchtest.

  5. Testen: Führe den Code aus und teste die Funktionalität. Überprüfe, ob das Scrollen jetzt wie gewünscht funktioniert.


Häufige Fehler und Lösungen

  • Problem: ScrollArea funktioniert nicht.

    • Lösung: Überprüfe, ob die ScrollArea korrekt gesetzt wurde und nicht von anderen Makros oder Funktionen überschrieben wird.
  • Problem: Der Bereich springt, aber das Bild hängt.

    • Lösung: Stelle sicher, dass die Auswahl innerhalb der ScrollArea liegt. Setze die ScrollArea wie im obigen Abschnitt beschrieben.
  • Problem: Zeilen können nicht korrekt ein- oder ausgeblendet werden.

    • Lösung: Überprüfe, ob Du die richtigen Zeilen im Code angegeben hast und ob sie nicht von anderen Zeilen überlappt werden.

Alternative Methoden

Wenn die ScrollArea nicht wie gewünscht funktioniert, kannst Du auch alternative Ansätze in Betracht ziehen:

  • Verwendung von Formeln: Anstatt die ScrollArea zu beschränken, kannst Du Formeln nutzen, um die Sichtbarkeit der Zeilen dynamisch zu steuern.

  • Benutzerformulare: Erstelle ein Benutzerformular, das die Navigation zwischen den verschiedenen Bereichen der Tabelle erleichtert.


Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du die ScrollArea in Excel effektiv verwenden kannst:

Private Sub CommandButton1_Click()
    ' Setze ScrollArea und blende Zeilen ein
    Rows("8:200").Hidden = True
    Rows("159:199").Hidden = False
    ScrollArea = "159:199"
    Range("B135").Select
End Sub

In diesem Beispiel wird die ScrollArea gesetzt, nachdem die gewünschten Zeilen eingeblendet wurden. Achte darauf, dass die Zeilen innerhalb der ScrollArea liegen.


Tipps für Profis

  • Code-Dokumentation: Kommentiere Deinen Code gründlich, damit Du später leicht nachvollziehen kannst, was jede Zeile bewirkt.

  • Testen: Teste Deinen Code regelmäßig während der Entwicklung, um sicherzustellen, dass alle Teile wie gewünscht funktionieren.

  • Debugging: Nutze die Debugging-Tools in Excel, um Probleme schnell zu identifizieren und zu beheben.


FAQ: Häufige Fragen

1. Warum funktioniert meine ScrollArea nicht? Überprüfe, ob die Auswahl innerhalb der definierten ScrollArea liegt und ob keine anderen Makros diese Einstellung überschreiben.

2. Gibt es einen Befehl, um die ScrollArea zurückzusetzen? Ja, Du kannst die ScrollArea mit ScrollArea = "" zurücksetzen, bevor Du sie erneut definierst.

3. Funktioniert das in jeder Excel-Version? Die beschriebenen Methoden sollten in den meisten neueren Excel-Versionen funktionieren, insbesondere in Excel 2016 und später.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige