Laufzeitfehler 1004 in For - Range Zeile
25.11.2018 09:24:11
Andy
ich bekomme hier immer beim aktivieren meiner Tabelle in der For Each-Range-Zeile (C15:C34....) einen Laufzeitfehler 1004 - (Anwendungs- oder Objektspezifischer Fehler). Habe ich da etwas falsch eingebaut? Das lustige ist, dass es beim NEustart der Excel-Datei eine zeitlang keinen Fehler gibt. Hoffe mir kann jemand helfen.
LG Andy
Private Sub Worksheet_Activate()
'Verkleinern von unbenutzten Zeilen, die nicht verwendet werden
Dim Zelle As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Zelle In ActiveSheet.Range("C15:C34,C36:C55,C57:C76,C78:C97,C99:C118")
If Zelle = 0 Then
Zelle.EntireRow.RowHeight = 0.5
Else
Zelle.EntireRow.RowHeight = 15
End If
Next Zelle
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Sub
Anzeige