Hallo Liebe Leute,
Ich habe eine Excel mit etlichen Worksheets. Mein Ziel ist es, dass ich auf dem Inhaltsverzeichnis die einzelnen Zeilen Ausblenden lassen kann wenn 1) ein "x" gesetzt (F2) wurde und 2) der Wert auf der selben Zeile andere Spalte (B2) wo das x gesetzt wurde übereinstimmt.
Mein Code sieht folgendermaßen aus:
Sub ZeilenAusblenden()
Application.ScreenUpdating = False
Dim i As Integer
Dim z As Integer
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Activate
For z= 1 To 100
For i = 1 To 100
If Cells(i, 1).Value = Worksheets("Funktionsverzeichnis").Cells(z, 3).Value And Worksheets("Funktionsverzeichnis").Cells(z, 6).Value = "x" Then
Rows(i).Hidden = True
End If
Next i
Next z
Next sh
Application.ScreenUpdating = True
Range("A1").Select
'
End Sub
Kann mir da jemand weiterhelfen? Was habe ich nicht bedacht bzw übersehen.
|