Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Scrollarea funktioniert nicht

Betrifft: Scrollarea funktioniert nicht von: christoph
Geschrieben am: 08.09.2004 09:20:15

Moin

Habe eine Tabelle in der 3 Word-Dokumente Eingefugt sind. Zu diesen kann man über Commandbuttons springen. die Scrollarea ist dann jeweil eine Zeile Grösser als das entsprechende Dokument. Bei den obersten 2 klappt es perfekt. nur wenn ich Commandbutton3 betättige, kann ich nicht in dem Bereich des Dokumentes scrollen.
Wo ist der Fehler??


Private Sub CommandButton1_Click()
  Rows("7:33").Hidden = True 'Zeilen ausblenden
  Rows("81:159").Hidden = True 'Zeilen ausblenden
  Rows("34:80").Hidden = False 'Zeilen einblenden
  ScrollArea = "A34:L80"
  Range("A34").Select
End Sub


Private Sub CommandButton2_Click()
  Rows("7:80").Hidden = True 'Zeilen ausblenden
  Rows("81:129").Hidden = False 'Zeilen einblenden
  Rows("130:160").Hidden = True 'Zeilen ausblenden
  ScrollArea = "A81:L129"
  Range("A81").Select
End Sub


Private Sub CommandButton3_Click()
  Rows("7:129").Hidden = True 'Zeilen ausblenden
  Rows("130:160").Hidden = False 'Zeilen einblenden
  ScrollArea = "A130:L170"
  Range("A130").Select
End Sub



danke für Hilfe


christoph
  


Betrifft: AW: Scrollarea funktioniert nicht von: geri
Geschrieben am: 08.09.2004 09:28:02

Hallo Christoph

ActiveSheet.ScrollArea = ""

hebt Bereich wieder, also in jedes MAcro am Anfang einsetzen

gruss geri


  


Betrifft: Fehler gefunden !! von: christoph
Geschrieben am: 08.09.2004 09:34:48

Habe den Fehler gefunden
mußte
"Rows("7:129").Hidden = True 'Zeilen ausblenden" mit

"Rows("130:160").Hidden = False 'Zeilen einblenden" tauschen und seitdem funktionierts.

Christoph