möcht meine VBA Code kürzen da er sehr lang ist
Hier ein Auschnitt
Sub SG1_A02()
Sheets("SG1").ScrollArea = ""
ActiveWorkbook.CustomViews("SG1_A02").Show
ActiveSheet.ScrollArea = "M51:Q75"
End Sub
---
Sub SG1_A03()
Sheets("SG1").ScrollArea = ""
ActiveWorkbook.CustomViews("SG1_A03").Show
ActiveSheet.ScrollArea = "S51:W75"
End Sub
---
Sub SG1_A04()
Sheets("SG1").ScrollArea = ""
ActiveWorkbook.CustomViews("SG1_A04").Show
ActiveSheet.ScrollArea = "Y51:AC75"
End Sub
---
Sub SG1_A05()
Sheets("SG1").ScrollArea = ""
ActiveWorkbook.CustomViews("SG1_A05").Show
ActiveSheet.ScrollArea = "AE51:AI75"
End Sub
----
usw.
kommt aud jeden Tabellenblatt 72 mal vor
von A02 bis A24, von B02 -B24 und von C02-C24
und das bei zur Zeit 16 Tabellenblätter.
hat einer eine Idee wie man das kürzen kann. Die Mappe ist schon über 7MB groß ohne das da groß Daten drin stehen??????
wenn einer mir einen Arry ankommt bitte genau erklären, weil
ich trotz Recherche noch nicht damit klarkomme.(wenn man weiß ist ganz einfach, muß es aber erst in meinen Schädel reinbekommen "grins")
Danke im vorraus für eure Mühe die ihr euch mit mir macht
gruß Michael