bestimmte Tabellen ein- resp. ausblenden SWITCH

Guten Abend
In einer grösseren Datei habe ich einige Tabellen, deren Namen einer der Strings "_FA", "_FV" oder "_FF" enthält.
Nun möchte ich ein Makro, mit dem ich diese Tabellen identifiziere und die einzelnen Tabellen einblende, wenn sie ausgeblendet sind, resp. umgekehrt.
Fragen:
-Wie lautet die Abfrage, ob sheets(i).name einer der erwähnten Strings enthält?
- Wie muss die Codezeile lauten, die mit eine Tabelle jeweils in den anderen Zustand (eingeblendet, resp. ausgeblendet) versetzt (irgendwie sheets(i) not visible = visible ?

Sub SwitchEinAus()
Dim i As Integer
For i = 1 To Sheets.Count
'if sheets(i).name   'enthält String _FA, _FV oder _FF
Code für anderen Zustand (ein- / ausgeblendet)
Next i
End Sub

Danke für eine Antwort.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub SwitchEinAus() Dim i As Integer Application.ScreenUpdating = 0 For i = 1 To Sheets.Count If Sheets(i).Name Like "*_FA*" Or _ Sheets(i).Name Like "*_FV*" Or _ Sheets(i).Name Like "*_FF*" Then Sheets(i).Visible = Not Sheets(i).Visible End If Next Application.ScreenUpdating = -1 End Sub

Sub Test() Dim oSH As Object Dim iVisible As Integer iVisible = -2 For Each oSH In ThisWorkbook.Sheets If InStr(oSH.Name, "_FA") > 0 Or _ InStr(oSH.Name, "_FV") > 0 Or _ InStr(oSH.Name, "_FF") > 0 Then If iVisible = -2 Then iVisible = IIf(oSH.Visible = xlSheetVisible, xlSheetVeryHidden, xlSheetVisible) End If oSH.Visible = iVisible End If Next oSH End Sub

Sub SwitchEinAus() Application.ScreenUpdating = False Dim i As Integer Dim wert1 Dim wert2 Dim wert3 For i = 1 To Sheets.Count wert1 = Sheets(i).Name Like "*_FA*" wert2 = Sheets(i).Name Like "*_FV*" wert3 = Sheets(i).Name Like "*_FF*" If wert1 = True Or wert2 = True Or wert3 = True Then Sheets(i).Visible = Not Sheets(i).Visible End If Next i Application.ScreenUpdating = True End Sub

Sub SwitchEinAus() Dim i As Long Application.ScreenUpdating = False For i = 1 To Sheets.Count If InStr(Sheets(i).Name, "_FA") > 0 Or _ InStr(Sheets(i).Name, "_FV") > 0 Or _ InStr(Sheets(i).Name, "_FF") > 0 Then Sheets(i).Visible = Not Sheets(i).Visible End If Next Application.ScreenUpdating = True End Sub

Hi Matthias,
..,. die ganze Aufregung kann ich nicht so recht verstehen.
Dein Code - auf den ich mich bezog - sah so aus:


Sub SwitchEinAus()
Application.ScreenUpdating = False
Dim i As Integer
Dim wert1
Dim wert2
Dim wert3
For i = 1 To Sheets.Count
wert1 = Sheets(i).Name Like "*_FA*"
wert2 = Sheets(i).Name Like "*_FV*"
wert3 = Sheets(i).Name Like "*_FF*"
If wert1 = True Or wert2 = True Or wert3 = True Then
Sheets(i).Visible = Not Sheets(i).Visible
End If
Next i
Application.ScreenUpdating = True
End Sub

Dazu hatte ich angemerkt:
"Warum lässt du wert2 und wert3 für auch dann noch ermitteln, wenn wert1 True ist?
Das verschenkt Zeit."
wert2 und wert3 werden in deinem Code immer ermittelt - unabhängig von wert1.
Wenn wert1 True ist, brauchen wert2 uind wert3 nicht mehr berechnet zu werden - sie sind egal.
Man könnte das z. B. so schreiben:


Sub SwitchEinAus2()
Dim ii As Integer, blnSwitch As Boolean
Application.ScreenUpdating = False
For ii = 1 To Sheets.Count
If Sheets(ii).Name Like "*_FA*" Then
blnSwitch = True
ElseIf Sheets(ii).Name Like "*_FV*" Then
blnSwitch = True
ElseIf Sheets(ii).Name Like "*_FF*" Then
blnSwitch = True
End If
If blnSwitch Then Sheets(ii).Visible = Not Sheets(ii).Visible
Next ii
Application.ScreenUpdating = True
End Sub

Hier werden die Ausdrücke Sheets(ii).Name Like "*_FV*" und Sheets(ii).Name Like "*_FF*"
nicht mehr ausgewertet, wenn Sheets(ii).Name Like "*_FA*" ist.
Hier wird das noch deutlicher:


Sub SwitchEinAus3()
Dim ii As Integer, blnBleibt As Boolean
For ii = 1 To Sheets.Count
If Not Sheets(ii).Name Like "*_FA*" Then
If Not Sheets(ii).Name Like "*_FV*" Then
If Not Sheets(ii).Name Like "*_FF*" Then blnBleibt = True
End If
End If
If Not blnBleibt Then Sheets(ii).Visible = Not Sheets(ii).Visible
Next ii
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Sub SwitchEinAus3() Dim ii As Integer, blnBleibt As Boolean For ii = 1 To Sheets.Count blnBleibt = False ' ### Die Zeile ist neu ### If Not Sheets(ii).Name Like "*_FA*" Then If Not Sheets(ii).Name Like "*_FV*" Then If Not Sheets(ii).Name Like "*_FF*" Then blnBleibt = True End If End If If Not blnBleibt Then Sheets(ii).Visible = Not Sheets(ii).Visible Next ii End Sub

Beliebteste Forumthreads (12 Monate)

bestimmte Tabellen ein- resp. ausblenden SWITCH

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

168 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

bestimmte Tabellen ein- resp. ausblenden SWITCH

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

168 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread