dotNETportal.cz

Třeba takhle

Dim zacatek As Integer
Dim konec As Integer
Dim text As String

Range("CFG!A106").Value = "VZ: " & Range("CFG!H1").Value & " = " & Range("CFG!G2").Value & Chr(10) & "Strecke Dispo: " & Range("CFG!H1").Value & " = " & Range("CFG!G3").Value & Chr(10) & "Strecke Man.: " & Range("CFG!H1").Value & " = " & Range("CFG!G4").Value & Chr(10) & Chr(10) & "Durchsnittliche Anzahl" & Chr(10) & "Artikel" & Chr(10) & "VZ: " & Range("CFG!H1").Value & " = " & Range("CFG!H2").Value & Chr(10) & "Strecke Dispo: " & Range("CFG!H1").Value & " = " & Range("CFG!H3").Value & Chr(10) & "Strecke Man.: " & Range("CFG!H1").Value & " = " & Range("CFG!H4").Value

text = Range("A106").text
zacatek = InStr(1, text, "Durchsnittliche Anzahl")
konec = InStr(1, text, "Artikel") + 7 ' (délka slova Artikel)
cely = Len(text)

    With Range("A106")
        .Characters(start:=1, Length:=zacatek - 1).Font.FontStyle = "obyčejné"
        .Characters(start:=zacatek, Length:=konec - zacatek).Font.FontStyle = "Tučné"
        .Characters(start:=konec + 1, Length:=cely).Font.FontStyle = "Obyčejné"
    End With