Spalten ausblenden numerisch
15.03.2016 12:27:46
r2d2
wenn ich Zeilen automatisch ausblenden möchte, wo in Spalte B ein "on" oder "off" steht, so komme ich mit diesem Code klar:
Sub test()
For i = 7 To 62
If Range("B" & i) = "off" Then
Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next i
End Sub
Sub test()
For i = 5 To 58
If Range(Cells(1, i)) = "off" Then
Range(Columns(i)).EntireColumn.Hidden = True
End If
Next i
End Sub
Anzeige