Microsoft Excel

Herbers Excel/VBA-Archiv

Textstellen formatieren


Betrifft: Textstellen formatieren von: Swoopo
Geschrieben am: 29.08.2016 10:11:10

Moin,

kann man mittels VBA bestimmte Textstellen formatieren?

Formatiern tue ich ja so:
Range("B30").Value = "Herber ist toll"
Range("B30").Font.Bold = True

Wie mache ich es denn wenn ich zb. nur "Herber" Fett haben möchte?

Gruß
Swoopo

  

Betrifft: AW: Textstellen formatieren von: Mullit
Geschrieben am: 29.08.2016 10:42:02

Hallo,

z.B. so:

Option Explicit

Public Sub test()
With Range("B30")
    .Characters(Start:=InStr(1, .Value, "Herber", vbTextCompare), Length:=Len("Herber")).Font. _
Bold = True
End With
End Sub

Gruß, Mullit


  

Betrifft: AW: Textstellen formatieren von: baschti007
Geschrieben am: 29.08.2016 10:44:49

So zB.

Sub Bla()
Dim Ra As Long
Dim StrFinden As String

StrFinden = "Herber"

     With Tabelle1.Range("B30")
      .Value = "Herber ist toll"
      Ra = InStr(Tabelle1.Range("B30"), StrFinden)
     With .Characters(Ra, Len(StrFinden)).Font
      .Bold = True
     End With
     End With
    
End Sub



  

Betrifft: AW: Textstellen formatieren von: Swoopo
Geschrieben am: 29.08.2016 13:40:25

Danke


Beiträge aus den Excel-Beispielen zum Thema "Textstellen formatieren"