Special concatenation

[DocAElstein]

Code Again, for last few Posts

Sub  EvalutingQuotes()  'Posts  from  #25      http://www.excelfox.com/forum/f2/special-concatenation-2042/index3.html
'---o00o---`(_)`---o00o---
Rem  1)  Basics
Dim  v  As  Variant
Let  v  =  "3"  '    Results  in  a  Variant  variable  containing  a  string  value  "3"
Let  v  =  3  '        Results  in  a  Variant  variable  containing  a  Long  Number  3  (  actually  an  Integer  ?  )
 
Range("I1").Value  =  Evaluate("=A1")  'Explicit  Version
Range("I1").Value  =  Evaluate("="  &  Range("A1").Address  &  "")  'Explicit  Version
Range("I1").Value  =  Evaluate(""  &  Range("A1").Address  &  "")  'Implicit  Default
 
Range("I1").Value  =  Evaluate("              "  &  Range("A1").Address  &  "              ")  '
 
Range("I1").Value  =  Evaluate(Range("A1").Address)  'Common  but  dangerous  variation
 
Rem  2)  Detailed  code  anylysis
Dim  strEval  As  String  'String  to  be  used  in  Evaluate
 
10    strEval  =  "=A1"  &  "&"  &  "A1":  Debug.Print  strEval  'gives  =A1&A1
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'Result  Gives  11  in  cell  I1
 
20    'strEval  =  "=A1"  &  "&""  &  ";"  &  ""&"  &  "A1":  Debug.Print  strEval  'gives  syntax  error
'Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'errors
 
30    strEval  =  "=A1"  &  "&"";""&"  &  "A1":  Debug.Print  strEval  'gives  =A1&";"&A1
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'Result  Gives  1;1
 
40    strEval  =  "=A1"  &  "&"";""":  Debug.Print  strEval  'gives  =A1&";"
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'Gives  1;
 
50    strEval  =  "=A1"  &  "&"";"  &  """":  Debug.Print  strEval  'gives  =A1&";"
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'Gives  1;
 
60    strEval  =  "=A1"  &  "&"";"""""  &  """":  Debug.Print  strEval  'gives  =A1&";"  ""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'error
70    strEval  =  "=A1"  &  "&"";"";"""  &  """":  Debug.Print  strEval  'gives=A1&";";""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'error
 
80    strEval  =  "=A1"  &  "&"";"""""  &  """":  Debug.Print  strEval  'gives  =A1&";"""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'Did  not  error    Gives  1;"    !!!!!!!!
 
90    strEval  =  "=A1"  &  "&"";"""  &  """"  &  """":  Debug.Print  strEval  'gives  =A1&";"""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'Did  not  error    Gives  1;"    !!!!!!!!
 
Rem  3)  Quotes  in  VBA  ...........
100  strEval  =  "=A1"  &  "&"";""""""":  Debug.Print  strEval  'gives  =A1&";"""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  'Did  not  error    Gives  1;"    !!!!!!!!
 
110  strEval  =  "=A1"  &  "&""""""""":  Debug.Print  strEval  'gives  =A1&""""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  '    Gives  1"
 
120  strEval  =  "=A1&""""""""":  Debug.Print  strEval  'gives  =A1&""""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  '    Gives  1"
 
130  strEval  =  "="  &  """""""""":  Debug.Print  strEval  'gives  =""""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  '  Gives  "
 
140  strEval  =  "=""""""""":  Debug.Print  strEval  'gives  =""""
Range("I1").Value  =  Evaluate(""  &  strEval  &  "")  '    Gives  "
 
150  strEval  =  """""""""":  Debug.Print  strEval  'gives  """"
Range("I1").Value  =  Evaluate(""  &  """"""""""  &  "")  '    Gives  "
Range("I1").Value  =  Evaluate("""""""""")  '    Gives  "
 
End  Sub  'EvalutingQuotes()  ---o00o---`(_)`---o00o---

[snb]

@Alan

Your posts are increasingly unreadable.

If you are interested in 'Evaluate' have a look at:

VBA for smarties How to fill a Combobox / Listbox

[DocAElstein]

@Alan
Your posts are increasingly unreadable...If you are interested in 'Evaluate' have a look at:.....

@snb

. Danke für das Info and hinweisen!
(. Ich probier nur meines beste zu beides verstehen Code die ich benutzen und gleich Mitteilung was ich ( denke ) ich verstehe. )

. Thanks for the info and advice!
(. I just try myself to understand Code I use and at the same time to share what I ( think ) I understand )

Alan