title image


Smiley einzelnes Wort in Zelle Fett formatieren (von Charly1945)-Lösung
Hallo Gemeinde !



Bin neu hier und habe so gestöbert dabei bin auf untenstehenden Beitrag von Cahrly1945 gestolpert:

Habe mir eine Lösung überlegt.



Sub Fett()

Let Wort = "Kleiderschrank"

Let LW = Len(Wort)

Let LS = Len(ActiveCell.Value)

Let Zelle = ActiveCell.Address

Let Satz = ActiveCell.Value

Range(Zelle).Formula = "=FIND(" & Chr(34) & Wort & Chr(34) & "," & Chr(34) & Satz & Chr(34) & ")"

Let Stw = ActiveCell.Value

Range(Zelle) = Satz

With ActiveCell.Characters(Start:=1, Length:=Stw - 1).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

With ActiveCell.Characters(Start:=Stw, Length:=LW).Font

.Name = "Arial"

.FontStyle = "Bold"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

With ActiveCell.Characters(Start:=LW + Stw, Length:=LS - Stw - LW).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

Range("C8").Select

End Sub



Ich hoffe es kann jemand etwas damit anfangen.

MfG

Thomsch



Frage con Charly1945 vom 01.10.2003



einzelnes Wort in Zelle Fett formatieren

Hallo und guten Morgen liebe Helfer!

Gibt es eine Möglichkeit per Macro ein bestimmtes Wort, das in einer Zelle vorkommt fett zu formatieren?

Beispiel: Zellinhalt = "Dies ist ein Kleiderschrank von Müller"

Das Wort "Kleiderschrank" soll jetzt nach Ausführung eines Macros fett geschrieben sein (wenn möglich auch noch größer)



Gruß Charly





Geschickt von Charly1945 am 01.10.2003 um 09:05:09



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: