habe ein Makro mit folgenden Inhalt( Auszug )(mit Hilfe von wolf erstellt )
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Select Case Target.Address
Case "$A$8": Anl_315
Case "$A$9": Anl_320
Case "$A$10": Anl_321
Case "$A$11": Anl_322
Case "$A$12": Anl_323
Case "$A$15": Anl_316_1
Case "$A$16": Anl_316_2
usw. ca 500 mal.
Makro für zB Anl_316_2
Sub Anl_316_2()
ActiveSheet.ScrollArea = ""
ActiveWorkbook.CustomViews("316_2").Show
ActiveSheet.ScrollArea = "AW1:BA25"
End Sub
bei 500 mal wird alles sehr sehr langsam
hat einer eine Idee wie man es Kürzer oder schneller machen kann. ????
Im Vorraus vielen Dank für eure Mühe
gruß Michael