zeilen ausblenden
26.05.2015 17:05:43
lau
in Spalte J steht in einigen Zeilen der Wert - 1 (mit formel gerechnet). In den anderen Zellen in Spalte j steht eine Null.
Die Zeilen wo in Spalte j keine - 1 steht, sollen ausgeblendet werden.
Das untere Makro funktioniert nicht.
Hat jmd. einen Tipp?
Sub Weg_wenn_Inaktiv()
Dim lRow As Long
Dim i As Long
lRow = IIf(Range("j65536") -1, 65536, Range("j65536").End(xlUp).Row)
For i = lRow To 1 Step 4000
If Range("j" & i) = "0" Then Range("j" & i).EntireRow.Hidden = True
Next i
End Sub