'Laufzeitfehler 438...

Sub myShape()
Dim shp As Shape
Set shp = Sheets("Menue").Shapes("Laufschrift")
shp.TextFrame.Characters.Text = "Hallo" 'funktioniert
'Laufzeitfehler 438
shp.ShapeRange.TextFrame.Fill.ForeColor.SchemeColor = 15
End Sub

Sub Makro3()
' Makro am 16.01.2005 von Gast
Dim shp As Shape
Set shp = Sheets("Menue").Shapes("Laufschrift")
'Laufzeitfehler 438
With shp.TextFrame.ShapeRange.Fill.ForeColor.SchemeColor = 15
End With
End Sub

Sub Makro1()
' Makro1 Makro
' Makro am 17.01.2005 von Gast
ActiveSheet.Shapes("Laufschrift").Select
With Selection.Characters(Start:=1, Length:=5).Font
.ColorIndex = 3
End With
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
End Sub

Sub FormatiereBereich()
With Worksheets("Tabelle1").Range("A1:C10")
.Value = 30
.Font.Bold = True
.Interior.Color = RGB(255, 255, 0)
End With
End Sub

Sub FormatiereBereich()
With Worksheets("Menue").Shapes("Laufschrift")
'Laufzeitfehler 438
.Font.Bold = True
.Interior.Color = RGB(255, 255, 0)
End With
End Sub