könnte mir jemand sagen, warum ich hier immer wieder einen Fehler erhalten? Gemeldet wird "Die Methode Range für das Objekt_Worksheet ist fehlgeschlagen.
Wenn ich die Range auf B15:B67 setze, funktioniert das ganze. Stelle ich aber nur einzelne Bereiche ein (s.u.) kommt der Fehler. Hintergrund ist, dass ich einzelne Zellen nicht bearbeitet haben möchte, in denen Überschriften stehen.
Private Sub Worksheet_Activate()
Dim Zelle As Range
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
'For Each Zelle In Range("B15:B67").Cells
For Each Zelle In Range("B15:B19;B24:B28;B33:B37;B42:46;B51:B55;B60:B67").Cells
Zelle.EntireRow.RowHeight = 0.5 - 14.5 * (Zelle > 0)
Next Zelle
.Calculation = xlAutomatic
.ScreenUpdating = True
End With
ActiveSheet.EnableOutlining = True
Set Zelle = Nothing
End Sub
Vielen Dank