Der Code von dir funktioniert leider nciht auf mehrere Tabellenblätter.... nur wenn ich ein Tabellenbltt angeben :-(
An was könnte das liegen?
Sub DatenEinAusblenden()
Dim Wks As Worksheet
Dim Blatt As Worksheet, Blattda As Boolean
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'Für alle Tabellen in dieser Arbeitsmappe
For Each Wks In ThisWorkbook.Worksheets
With Wks
'Für alle Tabellennamen hinter "case is =" (Namen.... Anpassen, erweitern)
Select Case .Name
Case "Auto e Moto", "Search"
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Select Case Cells(i, 1)
Case "Instances", "Sum of EANs", "Sum of MPNs", "Conversion (Click-outs/Instances) _
_
Rows(i).Hidden = Not (Rows(i).Hidden)
End Select
Next i
End Select
End With
Next Wks
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Gruß
Rudi
gruß, Maris