VBA Code Fehlerhaft???
23.01.2004 07:52:12
Harald
ich habe hier mal ein Problem. Ich habe dieses Script:
Private Sub Worksheet_calculate()
Dim bereich As Range, zelle, zellfärben As Range
Set bereich = Range("AC26:AC35", "AI5:AI27")
For Each zelle In bereich
If zelle = "Fronleichnam" Then
Range(zelle, zelle.Offset(0, 1)).Interior.ColorIndex = 6
Range(zelle, zelle.Offset(0, -4)).Interior.ColorIndex = 6
Else
Range(zelle, zelle.Offset(0, 1)).Interior.ColorIndex = x1None
Range(zelle, zelle.Offset(0, -4)).Interior.ColorIndex = x1None
End If
Next
Set bereich = Nothing
End Sub
Das Problem was ich habe ist, dass es im Bereich von AC26 bis ac35 nicht richtig läuft, d.h. das nur eine Zelle makiert wird. Aber im Bereich von AI5 bis AI27 läuft es fehlerfrei.
Habt ihr eine Ahnung an was das liegen könnte??
Kann es an irgendwelchen Zellanweisungen(=wenn...) liegen, dass dieses Script nicht richtig ausgeführt wird??
MfG
Harald