Wie muss ich das angehen?
Vielen Dank für Eure Hilfe
Gruß Bernd
Sub SuchstringFett()
Dim Suchstring As String
Dim Position As Integer
Suchstring = "(*/*)"
Position = WorksheetFunction.Search(Suchstring, ActiveCell.Text)
'MsgBox Position
With ActiveCell.Characters(Start:=1, Length:=Position - 1).Font
.Name = "Arial"
.FontStyle = "Standard"
End With
With ActiveCell.Characters(Start:=Position, Length:=5).Font
.Name = "Arial"
.FontStyle = "Fett"
End With
With ActiveCell.Characters(Start:=Position + 5, Length:=Len(ActiveCell.Text) - Position - 4).Font
.Name = "Arial"
.FontStyle = "Standard"
End With
End Sub