Scrollarea funktioniert nicht
08.09.2004 09:20:15
christoph
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