AW: ein Blatt lässt sich nicht einblenden
31.03.2014 09:17:24
hary
Moin Peter
Echt komisch.
So geht es.
Private Sub Workbook_Open()
Dim wks As Worksheet
For Each wks In Worksheets
MsgBox wks.Name
wks.Visible = xlSheetVisible
Next
Sheets("Dummy").Visible = xlSheetVeryHidden
End Sub
Selbst mit Codenammen kommt nix.
MsgBox Tabelle1.Name
Hab mal probiert die 4 aussen vorzulassen mit:
For iBlatt = 1 To Sheets.Count
If iBlatt 4 Then
MsgBox "Blatt Nummer " & iBlatt & " ist " & Sheets(iBlatt).Name
Sheets(iBlatt).Visible = xlSheetVisible
End If
nach dem 2. oeffnen die 4 wieder rein.
For iBlatt = 1 To Sheets.Count
MsgBox "Blatt Nummer " & iBlatt & " ist " & Sheets(iBlatt).Name
Sheets(iBlatt).Visible = xlSheetVisible
Dann laeuft es und VBA erkennt die 4
gruss hary