'Laufzeitfehler 438...
17.01.2005 19:35:17
Sonnenpeter
leider mal wieder am aufgeben bin ;-((((
Wo ist der Fehler??
Gruß / Sonnenpeter
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 Sonnenpeter
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 Sonnenpeter
ActiveSheet.Shapes("Laufschrift").Select
With Selection.Characters(Start:=1, Length:=5).Font
.ColorIndex = 3
End With
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
End Sub
'Aus der VBA-Hilfe
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