Hallo,
ich habe folgende Prozedur programmiert:
Sub Worksheet_Calculate() 'Hide columns that are not needed
Application.ScreenUpdating = False
Dim i As Integer
Dim r As Integer
i = 1
For r = 6 To 126
If Cells(6, r + i) > Cells(7, 127) Then
Columns(r).EntireColumn.Hidden = True
End If
If Cells(6, r + i) <= Cells(7, 127) Then
Columns(r).EntireColumn.Hidden = False
End If
If i = 0 Then
i = 1
Else
i = 0
End If
Next r
End Sub
Leider bekomme ich immer wieder die Fehlermeldung "Run-time error '1004' - application-defined or object-defined error". Komischerweise passiert dies aber nur wenn der Wert in Zelle (7,127) einen bestimmten Wert uebersteigt :-/
Kann mir jemand helfen??
Vielen Dank,
Sven