表示される回答中の特定文字を太字にしたいです。

Question

前提・実現したいこと

表示される回答中の特定文字を太字にしたいです。

Worksheet"Result"のA8に記入された国名がWorksheet"Grouping"上のL3:L10に含まれている場合、Worksheet"Result"のC8に、Worksheets("Textbausteine")上に準備した回答を表示させるシステムを作成しています（今回の場合C2, C3, C5の回答）。そして、表示回答中の特定文字（今回はC5に含まれる"any"）を太字にしたいと思っております。

以下エラーメッセージの解決とは別で、今回Charactersを使用して特定文字を判別しておりますが、もし特定文字を太字にする上で別の方法があれば、そちらも合わせてご教授いただければたいへん嬉しいです。

発生している問題・エラーメッセージ

特定文字を太字にするためのコードを追記する前は、Worksheet"Result"のC8に適切な回答を表示することができておりました。
文字"any"はWorksheet"Result"C8上では53文字目から始まるため、wsresult.Range("C8").Characters(Start:=53, Length:=3).Font.Bold = Trueと追記したところ、エラーメッセージRun-time error 13 type mismatch が表示されました。

該当のソースコード

Dim Africa6
Sub Frage()
 
    Set wsresult = Worksheets("Result")
    Set wsgroup = Worksheets("Grouping")
    Set wstext = Worksheets("Textbausteine")
   
    For Each Africa6 In wsgroup.Range("L3:L10")
        If InStr(Africa6.Value, wsresult.Range("A8").Value) > 0 Then
        wsresult.Range("C8").Value = wstext.Range("C2").Value & vbCrLf & vbCrLf & wstext.Range("C3").Value & vbCrLf & vbCrLf & wstext.Range("C5").Value And wsresult.Range("C8").Characters(Start:=53, Length:=3).Font.Bold = True
        End If
     Next Africa6
 
End Sub

補足情報

拙い説明で申し訳ありませんが、上記ご不明点があれば追記致しますので、どうぞよろしくお願いいたします。

Answer 1

エラー回避について。
特定文字を太字にするためのコードは別行とする必要があります。

wsresult.Range("C8").Value = wstext.Range("C2").Value & vbCrLf & vbCrLf & wstext.Range("C3").Value & vbCrLf & vbCrLf & wstext.Range("C5").Value
wsresult.Range("C8").Characters(Start:=53, Length:=3).Font.Bold = True

Comments

[harryban]

早速回答いただきありがとうございます。ご指摘の通り、コードを別行とすることで、指定箇所を太字にすることができました。