Textteile Fett mit VBA möglich...........

Forumthread: Textteile Fett mit VBA möglich...........
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Textteile Fett mit VBA möglich...........

02.01.2005 18:39:42

Gast

Hallo zusanmmen,
erstmal ein gesundes, frohes und erfolgreices 2005.
Ich suche nach einer VBA-Möglichkeit Teile eines Textes fett hervozuheben.
ZB. Sie werden gebeten das Forum nicht uber Gebühr zu strapazieren.
Hier sollte jetzt per VBA im Gesamttext einer Tabelle das Wort Forum erkannt und Fett hervorgehoben werden.
Kennt Ihr so etwas?
Gruß / Gast

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textteile Fett mit VBA möglich...........

02.01.2005 18:45:33

Matthias
Ja ja das mit dem VBA gut....... ?

02.01.2005 18:53:17

Gast
Noch offen.....

02.01.2005 18:54:44

Gast
AW: Noch offen.....

02.01.2005 19:15:04

Matthias
Danke Matthias.............

02.01.2005 19:24:43

Gast

AW: Textteile Fett mit VBA möglich...........

02.01.2005 18:45:33

Matthias

Hallo Peter,
mein Makrorekorder sagt mir dies:

Sub Makro1()
With ActiveCell.Characters(Start:=30, Length:=5).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End Sub

Den Rest müsstest du mit VBA gut selbst erledigen können...
Gruß Matthias

Ja ja das mit dem VBA gut....... ?

02.01.2005 18:53:17

Gast

Hallo Matthias, soweit war ich auch mit Recorder :-(((
VBA Gut ist aber übertrieben. Nur welche Möglichkeiten habe ich da noch "nein wäre falsch" nur mit Recorder wäre falsch. Bastler da ungelernt wäre wohl richtiger.
Na ja, trotzdem Danke / Gast

Noch offen.....

02.01.2005 18:54:44

Gast

Hallo noch mal,
die Frage ist noch offen.
Gruß / Gast

AW: Noch offen.....

02.01.2005 19:15:04

Matthias

Hallo Peter,

Option Explicit
Sub SchreibeFett()
Const finde = "Forum"
Dim found As Range
Dim firstaddress As String
Set found = Cells.Find(What:=finde, LookIn:=xlValues, LookAt _
:=xlPart, MatchCase:=False)
If Not found Is Nothing Then
firstaddress = found.Address
Do
Machfett found, finde
Set found = Cells.FindNext(found)
Loop While Not found Is Nothing And found.Address <> firstaddress
End If
End Sub
Sub Machfett(z As Range, f As String)
Dim z0 As String
Dim fx As Long, start As Long
z0 = z.Value
start = 1
fx = InStr(start, z0, f)
Do While fx > 0
With z.Characters(start:=fx, Length:=Len(f)).Font
.FontStyle = "Fett"
End With
start = start + Len(f)
fx = InStr(start, z0, f)
Loop
End Sub

Grüße,
Matthias