ScrollArea funktioniert nicht
09.09.2004 08:44:26
christoph
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