Fehler (Version) Nr.13
21.09.2004 07:11:41
köbi
Habe in der Version Excel 2000 nachfolgendes Makro geschrieben. Datei wird nun mit einer Excel Version 2002 verwendet. Wenn das Makro gestartet werden soll erscheint ein Fehler und es wird nicht ausgeführt.
Kann mir jemand sagen was falsch ist?
Vielen Dank zum Voraus und ich wünsche noch einen schönen Tag.
köbi
Sub Farbe()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Sheets("Arbeitsplan").Select
Range("alle").Select
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
For Each a In Range("alle")
If a.Value = "a" Then
a.Interior.ColorIndex = 38
End If
If a.Value = "b" Then
a.Interior.ColorIndex = 17
End If
If a.Value = "c" Then
a.Interior.ColorIndex = 44
End If
If a.Value = "d" Then
a.Interior.ColorIndex = 45
End If
Next
Range("a4").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub