Zeilen ausblenden Makro

Sub DatenAusblenden() Application.ScreenUpdating = False For i = 1 To Cells(Rows.Count,1).End(xlUp).Row If Cells(i, 1).Value = "Visits" Then '-----------------------> Möchte hier 5 Kriterien _ angeben Rows(i).EntireRow.Hidden = True End If Next i Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub DatenAusblenden() Application.ScreenUpdating = False For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Select Case Cells(i, 1) Case "Visits", "a", "b", "c" Rows(i).EntireRow.Hidden = True End Select Next i Application.ScreenUpdating = True End Sub

Hallo Mustafa,
danke für deine Hilfe!!! Ich habe den Code angepasst und ich möchte das der Code nur auf 2 Tabellenblätter angewendet wird. Leider habe ich was falsch gemacht. Kannst du oder jemand mir helfen, wie der Syntax richtig sein muß. Meine Passage ist Fett im code...


Sub DatenEinAusblenden()
Dim Wks As Worksheet
Dim Blatt As Worksheet, Zeilemax As Long, 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
'Für alle Tabellennamen hinter "case is ="  (Namen.... Anpassen, erweitern)
Select Case Wks.Name
Case Is = "Auto e Moto", "Search"
Zeilemax = Wks.Cells(Rows.Count, "A").End(xlUp).Row
End Select
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).EntireRow.Hidden = Not (Rows(i).EntireRow.Hidden)
End Select
Next i
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

Gruß
MAris

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

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread