Laufzeitfehler Excel 97-2003
03.04.2009 15:51:33
Roger
ich habe ein Problem mit einem Makro, das eine Freihandform farblich anpassen soll anhand eines hinterlegten Farbindexes. Dieser ändert sich je nachdem welcher Wert neu berechnet wird. Im Excel 2007 funktioniert das ganze ausgezeichnet. In Excel 97-2003 bekomme ich aber folgende Meldung:
Laufzeitfehler '-2147024809 (80070057)
Das Objekt mit dem angegebenen Namen wurde nicht gefunden
Wäre echt genial, wenn jemand eine Idee hätte, woran es bei der Excel-Version 97-2003 liegen könnte - bin schon fast ein wenig verzweifelt. Herzlichen Dank im voraus
Gruss Roger
Der Code lautet übrigens wie folgt:
Sub ändern001()
Range("E75") = Not Range("E75")
Range("B71") = Range("D24")
Range("B71").Select
Select Case Range("F75")
Case 1
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L59")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M59" _
_
)
Case 2
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L60")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M60" _
_
)
Case 3
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L61")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M61" _
_
)
Case 4
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L62")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M62" _
_
)
Case 5
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L63")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M63" _
_
)
Case 6
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L64")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M64" _
_
)
Case 7
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L65")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M65" _
_
)
Case 8
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L66")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M66" _
_
)
Case 9
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L67")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M67" _
_
)
Case 10
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range( _
_
"L68")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range(" _
M68")
Case 11
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = Range(" _
_
L69")
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Font.ColorIndex = Range("M69" _
_
)
Case Else
ActiveSheet.Shapes("Freihandform 50").OLEFormat.Object.Interior.ColorIndex = xlNone
End Select
End Sub