Office: Laufzeitfehler 450

User · 27. Februar 2012

Guten Tag,
Sry, falls Frage wiederholend oder nur zu simple, da diese gerade von einem Neuling gestellt wird ;D

Was ich beabsichtige ist die Formatierung ausgewählter Zellen durch drücken eines Buttons.

Mein Code sieht folgendermaßen aus:
Code:

Sub FormatSelection()
Dim sRange As Range
Set sRange = Selection.Range
With sRange
.Bold = False
.HighlightColorIndex = wdYellow
.Font.Name = "Tahoma"
.Font.Size = 12
sRange.ParagraphFormat.Alignment = wdAlignParagraphJustify
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das, was ich dabei bekomme, ist jedoch nur der dämliche Laufzeitfehler 450 (Objekt unterstütz Eigenschaft oder Methode nicht). Der Debugger markiert die 3. Zeile dabei gelb.

Danke im Vorraus an alle Antworten und Hilfeversuche *Smilie

:)

Peter9 · 29. Februar 2012

hallo Nerevar

Probiere mal die Code:

Set sRange = Selection '.Range Set sRange = Selection '.Range
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ohne .Range

« Gruß Peter9 »

Nerevar · 29. Februar 2012

Hey, vielen Dank nochmals für die schnelle Hilfe.

nach ein paar weiteren Fehlermeldungen, hab ich den Code nun folgendermaßen angepasst:
Code:

Sub FormatSelection()
Dim sRange As Range
Set sRange = Selection
With sRange
.Font.Name = "Calibri"
.Font.Size = 11
.Font.Bold = True
.Font.Color = -4165632
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den Feinschliff mach ich nach der Pause, aber er scheint die Wahl nun anzunehmen. Schon witzig, dass der Fehler an einer solch' simplen Sache lag ^^'

mücke · 29. Februar 2012

Moin Nerevar,
Code:

Option Explicit
Sub FormatSelection()
With Selection
.Font.Name = "Calibri"
.Font.Size = 11
.Font.Bold = True
.Font.Color = -4165632
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Laufzeitfehler 450

Laufzeitfehler 450

Laufzeitfehler 450

Laufzeitfehler 450

Laufzeitfehler 450 - Similar Threads - Laufzeitfehler 450

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

MS Access Lauftzeitfehler "2501"