nicht erkannte Sheets
13.03.2006 15:48:47
Lorenz
Folgendes Problem
Ich habe eine Arbeitsmappe mit 129 Sheets.
Die ersten 32 haben den Namen (N1-N32)
Die zweiten 32 haben den Namen (O1-O32)
Die dritten 32 haben den Namen (S1-S32)
Die vierten 32 haben den Namen (W1-W32).
Die Namen sind diejenigen ausserhalb der Klammer N1(Tab_blablabla)
Die Sheets 65-96(S1-S32) werden leider nicht erkannt, es werden die
Sheets 97-128 ein/ausgeblendet
Sub NordEinAus()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 32
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Else: Sheets(i).Visible = False
Application.ScreenUpdating = True
End If
Next
End Sub
Sub OstEinAus()
Dim i As Integer
Application.ScreenUpdating = False
For i = 33 To 64
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Else: Sheets(i).Visible = False
Application.ScreenUpdating = True
End If
Next
End Sub
Sub SuedEinAus()
Dim i As Integer
Application.ScreenUpdating = False
For i = 65 To 96
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Else: Sheets(i).Visible = False
Application.ScreenUpdating = True
End If
Next
End Sub
Sub WestEinAus()
Dim i As Integer
Application.ScreenUpdating = False
For i = 97 To 128
If Sheets(i).Visible = False Then
Sheets(i).Visible = True
Else: Sheets(i).Visible = False
Application.ScreenUpdating = True
End If
Next
End Sub
Wie kann man (ich) diesen Fehler!?! verhindern?
Gruß
Lorenz