Makro Zeilen ausblenden
06.11.2015 13:05:18
Jessi
Ich habe bereits ein Makro das auch super funktioniert:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
With Range("A10:A150")
.NumberFormat = "General"
.Value = .Value
End With
Dim ws As Worksheet
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.Columns(6).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
Next
On Error GoTo 0
End Sub
Ich hab gedacht ich könnte einfach folgendes Makro noch einfügen, das hat aber leider nicht funktioniert:
Columns(6).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = True
Vielen Dank im Voraus!
Gruß
Jessi
Anzeige