'leise weinend angenommen gefiltert = Variable
gefiltert = "irgendwas"
Dim strCell As String
Const C_Ort As String = "Ort :"

   With Blatt3.Cells(1, 2)
      .Value = gefiltert & vbCrLf & C_Ort & Ort.Text
      strCell = .Value
      With .Characters(Start:=InStr(strCell, C_Ort) + Len(C_Ort)).Font
         .ColorIndex = 3
      End With
   End With