Makro für Formatierung ändern

[Crazy Tom]

färbe eine Zelle mit deiner Wunschfarbe und lass dabei den Makrorekorder mitlaufen
und dann spielst du einfach ein bissel kit dem Code rum bis du das gewünschte Ergebnis hast

[gitmichi]

das wäre hier der Code für die richige Farbe

leider bekomm ich den gesamten Code nicht zum laufen..

Sub Makro8()
'
' Makro8 Makro
'

'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    Range("F23").Select
End Sub

---

hab mich vertippt und hab es hinbekommen.

Vielen Dank!!!

[Crazy Tom]

zusammen gefasst würde es so aussehen

Code:

With ActiveCell.Characters(Start:=1, Length:=10).Font
    .FontStyle = "Fett"
End With
With ActiveCell.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent4
    .TintAndShade = 0.399975585192419
    .PatternTintAndShade = 0
End With

mfg Tom

[snb]

@CT

 

Code:

Cells(1).Font.Bold = True