habe ca. 500 CostumViews.
die wurden mit folgenden Code angezeigt.
***im Tabellenblatt
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim norm_cell As Boolean
norm_cell = False
Select Case Target.Column
Case 1:
Select Case Target.Row
Case 2: modFB2.FB2_A02
Case 3: modFB2.FB2_A03
Case 4: modFB2.FB2_A04
Case 5: modFB2.FB2_A05
Case 6: modFB2.FB2_A06
Case 7: modFB2.FB2_A07
usw.
***im Modul war folgender Code
Sub FB2_A02()
tabFB2.ScrollArea = ""
ActiveWorkbook.CustomViews("FB2_A02").Show
tabFB2.ScrollArea = "M51:Q75"
End Sub
Sub FB2_A03()
tabFB2.ScrollArea = ""
ActiveWorkbook.CustomViews("FB2_A03").Show
tabFB2.ScrollArea = "S51:W75"
End Sub
Sub FB2_A04()
tabFB2.ScrollArea = ""
ActiveWorkbook.CustomViews("FB2_A04").Show
tabFB2.ScrollArea = "Y51:AC75"
End Sub
Sub FB2_A05()
tabFB2.ScrollArea = ""
ActiveWorkbook.CustomViews("FB2_A05").Show
tabFB2.ScrollArea = "AE51:AI75"
End Sub
Sub FB2_A06()
tabFB2.ScrollArea = ""
ActiveWorkbook.CustomViews("FB2_A06").Show
tabFB2.ScrollArea = "AK51:AO75"
End Sub
usw.
funktionierte auch einwandfrei, bloß der code blähte die Datei auf ca. 7MB auf.
also wollte ich ihn ein bißchen kürzen.
mit Hilfe von andre kam folgender Code raus
*** im TabellenBlatt
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim norm_cell As Boolean
norm_cell = False
Select Case Target.Column
Case 1:
Select Case Target.Row
Case 2: area_ (0)
Case 3: area_ (1)
Case 4: area_ (2)
Case 5: area_ (3)
usw.
****im Modul
Sub area_(i)
tabFB2.ScrollArea = ""
ActiveWorkbook.CustomViews("FB2_A")(i + 2).Show
tabFB2.ScrollArea = Range(Cells(51, i * 6 + 1), Cells(75, i * 6 + 6)).Address
End Sub
******
bloß das customViews funktioniert nicht(leider)
--ActiveWorkbook.CustomViews("FB2_A")(i + 2).Show--
zeigt mir Laufzeitfehler 5
hatte die Zeile schon 50x umgestellt, find aber den Fehler nicht.
Wer kann weiterhelfen
Danke im vorraus
gruß michael
PS: Hatte heut Nacht die Frage ähnlich schon mal gestellt leider keine Antwort erhalten