Ausblenden von Zeilen
06.12.2018 16:00:54
Zeilen
könnte mir das folgende Makro jemand umschreiben, damit ich es auf verschiedenenen Tabellenblättern verwenden kann? Wäre sehr nett von euch
Sub Zelle_Ausblenden()
'Ausblenden bzw Zeilenhöhe minimal einstellen von Mitarbeiterzeilen, die nicht verwendet werden
Dim i As Integer
Dim Zelle As Range
ActiveSheet.Unprotect Password:="meier"
With Application
.Calculation = xlCalculationManual
For i = 15 To 60 Step 9
For Each Zelle In Cells(i, 2).Resize(8)
Zelle.EntireRow.RowHeight = 0.5 - 14.5 * (Zelle > 0)
Next Zelle
Next i
.Calculation = xlAutomatic
End With
ActiveSheet.Protect AllowInsertingHyperlinks:=True, userinterfaceonly:=True, AllowSorting:= _
False, DrawingObjects:=True, AllowFiltering:=False, Contents:=True, Password:="meier"
ActiveSheet.EnableOutlining = True
Set Zelle = Nothing
End Sub