VBA: Worksheet wird nicht eingeblendet
29.08.2014 11:07:23
Andre
Folgendes Problem bringt mich um den Verstand:
In einer Arbeitsmappe existieren insgesamt 29 Worksheets. Die Arbeitsmappe wurde in dem Zustand gespeichert, dass nur das 1. Worksheet eingeblendet ist, die anderen 28 sind "VeryHidden". Wird die Arbeitsmappe geöffnet, werden die 28 ausgeblendeten teilweise (je nach Berechtigung) eingeblendet und zum Schluss das 1. Worksheet wieder ausgeblendet. So weit, so gut.
Alles funktioniert so weit ganz gut, jedoch wird mir beim Öffnen der Arbeitsmappe genau das 12. Worksheet nicht eingeblendet und ich kann mir nicht erklären, warum. Ich habe schon die Benennung überprüft, wobei unabhängig von der Benennung der Index ja immer noch 12 ist. Die Worksheets sind benannt von "Tabelle01( ) bis Tabelle29( )"
Dim i As Byte
For i = 2 To 27
If i = 8 Or i = 9 Or i = 11 Or i = 16 Or i = 17 Then
i = i + 1
Else
Sheets(i).Visible = xlSheetVisible
End If
Next i
Ich bin für jeden Tip dankbar!
Im Voraus allen ein schönes Wochenende!
Gruß,
Andre