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
Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!