Code verkürzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Stefan,
diese Lösung kann nicht dem entsprechen, was Du vorhast.
Tabelle2.Visible = False
entspricht nicht immer
Worksheets(2).Visible = False
Tabelle2 ist hart kodiert und egal an welcher Stelle im Tab-Reiter diese Tabelle auftaucht (und auch unter welchem Namen) wird genau diese Tabelle angesprochen.
Worksheets(2) dagegen entpricht genau der Position im Tab-Register. Wenn also diese Tabelle2 im Register verschoben wird, dann wird mit Tabelle2 immer noch die gleiche Tabelle angesprochen, Worksheets(2). dagegen verweist auf eine ganz andere Tabelle (2. Position im Tab-Register).
Ich finde Deine Idee, im Vba-Code den Tabellenzugriff unabhängig vom Namen der Tabelle zu gestalten, ist nicht daß NON PLUS ULTRA in der Datenzugriffsmethode auf Tabellen. Wenn einmal die Struktur des Tabellenaufbaus erarbeitet ist, sind lapidare Schönheitsoperationen wie Veränderung des Tabellennamens im Tab-Register abzulehnen.
Zudem ist diese Idee zum Scheitern verurteilt, wenn man 2 oder mehrere xls.Dateien gleichzeitig im Zugriff hat, um Daten in anderen Arbeitsmappen zu suchen und eventuelle zu korrigieren.
Gruß von Luschi
aus klein-Paris

Sub Beispiel() Dim ArraySh() As String Dim meSh As Object, ii As Integer 'Alle Tabellen sammeln die nicht den Namen Tabelle1 haben 'hier wird der Objektname verwendent, daher die Tabelle auch umbenannt werden. 'zu finden im VBA in der Explorerleiste, der Name auserhalb der Klammer For Each meSh In ThisWorkbook.Sheets If meSh.CodeName.Name <> "Tabelle1" Then Redim Preserve ArraySh(ii) ArraySh(ii) = meSh.Name ii = ii + 1 End If Next meSh Tabelle1.Visible = True 'eine muss Sichtbar sein!! Sheets(ArraySh).Visible = xlSheetVeryHidden 'alle auf ein mal ausblenden End Sub

Hallo,
ja genau so ist es, in meinem Beispiel muss aber noch korrigiert werden.
es geht nicht mit
Sheets(ArraySh).Visible = xlSheetVeryHidden
sondern nur mit
Sheets(ArraySh).Visible = False
Also nochmal den Code richtig zum ein und ausblenden

Sub VisibleSheets(TabEin As Boolean)
Dim ArraySh() As String
Dim meSh As Object, ii As Integer
    

    For Each meSh In ThisWorkbook.Sheets
        If meSh.CodeName <> "Tabelle1" And meSh.Visible = Not TabEin Then
            Redim Preserve ArraySh(ii)
            ArraySh(ii) = meSh.Name
            ii = ii + 1
        End If
    Next meSh
  
  
   Tabelle1.Visible = True 'eine muss Sichtbar sein!! 
   
   If TabEin And ii > 0 Then
     Application.ScreenUpdating = False
        For ii = Lbound(ArraySh) To Ubound(ArraySh)
         Sheets(ArraySh(ii)).Visible = True
        Next ii
     Application.ScreenUpdating = True
   ElseIf ii > 0 Then
        Sheets(ArraySh).Visible = False   'alle auf ein mal ausblenden 
   End If

End Sub

Sub BeispielAusblenden()
 VisibleSheets False
End Sub

Sub BeispielEinblenden()
 VisibleSheets True
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread