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

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

02.01.2005 17:39:42

Sonnenpeter

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ß / Sonnenpeter

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

02.01.2005 17:45:33

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

02.01.2005 17:53:17

Sonnenpeter
Noch offen.....

02.01.2005 17:54:44

Sonnenpeter
AW: Noch offen.....

02.01.2005 18:15:04

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

02.01.2005 18:24:43

Sonnenpeter

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

02.01.2005 17: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 17:53:17

Sonnenpeter

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 / Sonnenpeter

Noch offen.....

02.01.2005 17:54:44

Sonnenpeter

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

AW: Noch offen.....

02.01.2005 18: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

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

02.01.2005 18:24:43

Sonnenpeter

Danke Matthias,
genau das habe ich gesucht.
Funktioniert auch einwandfrei.
Gruß / Sonnenpeter

Beliebteste Forumthreads (12 Monate)

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

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

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread