Tabellen aus/einblenden
17.05.2022 07:16:32
Stefan
ich habe das folgende Makro geschrieben um verschiedene Tabellen ein- bzw. auszublenden, funktioniert auch super.
Allerdings besteht das Problem sobald mehrere Arbeitsmappen geöffnet wurden, die Tabellen nicht in der aktiven Arbeitsmappe ausgeblendet werden, sondern in einer Arbeitsmappe im Hintergrund.
Ich habe schon alles mögliche versucht um das hinzubekommen, komme aber mit meinen begrenzten VBA-Kenntnissen leider nicht weiter, und die Suche im Forum brachte auch keinen Anhaltspunkt.
Daher würde ich gerne um eure Hilfe bitten :-)
Vielen Dank im Voraus
Sub EinAusBlenden()
Dim A, iVisible As Integer
Dim meArTabs, booErste As Boolean
'die Tabellen die eingeblendet bleiben sollen
meArTabs = Array("Tabelle11", "Tabelle3", "Tabelle4", "Tabelle5", "Tabelle6", "Tabelle8")
Application.ScreenUpdating = False
With ThisWorkbook
For A = 1 To .Worksheets.Count
If Not IsNumeric(Application.Match(.Worksheets(A).CodeName, meArTabs, 0)) Then
If Not booErste Then
iVisible = .Worksheets(A).Visible
iVisible = IIf(iVisible = xlSheetVisible, xlSheetVeryHidden, xlSheetVisible)
End If
.Worksheets(A).Visible = iVisible
End If
Next A
End With
Application.ScreenUpdating = True
'Info über Ein-/Ausblenden der Tabellen
If iVisible = -1 Then
MsgBox ("Die Tabellen wurden eingeblendet"), vbOKOnly + vbInformation, ("Tabellen Status")
Else
MsgBox ("Die Tabellen wurden ausgeblendet"), vbOKOnly + vbInformation, ("Tabellen Status")
End If
End Sub