Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

'Laufzeitfehler 438...

'Laufzeitfehler 438...
17.01.2005 19:35:17
Sonnenpeter
Hallo zusammen,
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 'Laufzeitfehler 438...
17.01.2005 19:39:08
Josef Ehrensberger
Hallo Peter!
"TextFrame" bezieht sich auf das Textfeld!
Und da gibt's kein ".Fill"!

shp.Fill.ForeColor.SchemeColor = 15

Dann klappt's!
Gruß Sepp
noch was vergessen!
17.01.2005 19:40:57
Josef Ehrensberger
Hallo nochmal!
Wenn du den Code im VBE mit F8 abarbeitest und das Lokalfenster eingeblendet hast,
dann kannst du dort alle Eigenschaften von "shp" sehen!

Gruß Sepp
Immer noch 'Laufzeitfehler 438... jetzt beim text
17.01.2005 21:36:49
Sonnenpeter
Hallo,
leider immer noch der Laufzeitfehler


Sub Makro3()
' Makro am 16.01.2005 von Sonnenpeter
'.Font.ColorIndex = 3 '.ForeColor.SchemeColor = 15
Dim shp As Shape
Set shp = Sheets("Menue").Shapes("Laufschrift")
With shp
.Fill.ForeColor.SchemeColor = 16 'Klappt jetzt!!!!!!!
'immer noch Laufzeitfehler 438
.Font.ColorIndex = 3
End With
End Sub

Gruß / Sonnenpeter
Anzeige
AW: Immer noch 'Laufzeitfehler 438... jetzt beim
17.01.2005 22:03:47
Josef Ehrensberger
Hallo Peter!

With shp
.Fill.ForeColor.SchemeColor = 16
.DrawingObject.Font.ColorIndex = 3
End With


Gruß Sepp
Danke Sepp!
17.01.2005 22:11:37
Sonnenpeter
Hallo Sepp,
meinste, dass hätte ich in der VBA-Hilfe gefunden.
Ach ja :-)))
Gruß / Sonnenpeter
Danke Sepp! Nachtrag...
17.01.2005 22:15:01
Sonnenpeter
Hallo Sepp,
übrigens kommt unter "DrawingObject", Bitte formulieren Sie Ihre Frage neu -(((
Gruß / Sonnenpeter
AW: Danke Sepp! Nachtrag...
17.01.2005 22:18:28
Josef Ehrensberger
Hallo Peter!
Da hast du schon recht!
Zu den "DrawingObjects" kommt man nur, wenn du im Objektkatalog einen
Rechtsklick machst und "Verborgene Elemente anzeigen" wählst!
Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige