Sub ZuweisungsvielfaltExcelVBA()
    
    'Gesamten Code in ein normales VBA-Modul kopieren (aus Excel: Alt-F11 Einfügen Modul). Dann:
    'Dieses VBA-Fenster verkleinern und mit F8 schrittweise so
    'über der Excel-Tabelle ausführen, dass A1:I4 sichtbar sind
    
    'Leeren eines Bereichs
    Range("A1:I4").Clear
    
    'Schaffen einer benannten Excel-Formel, hier: benannte Excel-Konstante
    On Error Resume Next
    ActiveWorkbook.Names("Vektor").Delete
    ActiveWorkbook.Names.Add Name:="Vektor", RefersToR1C1:="={1;3;5;7}"
    On Error GoTo 0
    
    'Zuweisen einer Excel-Konstante in einen Excel-Bereich, als Name oder direkte Werte. Resultat: Werte
    Range("A1:A4") = Evaluate("=Vektor")
    Range("B1:B4").Value = Evaluate("={2;4;6;8}")
    
    'Zuweisen einer Excel-Konstante in einen Excel-Bereich, als Name oder direkte Werte. Resultat: Array
    Range("C1:C4").FormulaArray = "=Vektor"
    Range("D1:D4").FormulaArray = "={3;5;7;9}"
    
    'Zuweisen einer Excel-Konstante in einen VBA-Variant, als Name oder direkte Werte
    Arr = Evaluate("=Vektor"): MsgBox Arr(2, 1)
    Brr = Evaluate("={2;4;6;8}"): MsgBox Brr(3, 1)
    
    'Zuweisen eines VBA-Variants in einen zu großen, gleich großen und zu kleinen Excel-Bereich
    Range("E1:E5") = Arr
    Range("F1:E4") = Arr
    Range("G1:G3") = Arr
    
    'Zuweisen eines VBA-Variants in einen VBA-Werte-String
    S = "": For Each i In Arr: S = S & i & ";": Next: S = Replace("={" & S & "}", ";}", "}"): MsgBox S
    
    'Zuweisen eines Excel-Bereichs in einen VBA-Werte-String
    S = "": For Each i In Range("G1:G3"): S = S & i & ";": Next: S = Replace("={" & S & "}", ";}", "}"): MsgBox S
    
    'Zuweisen eines VBA-Werte-Strings in einen Excel-Bereich. Resultat: Werte oder Array
    Range("H1:H4") = Evaluate(S)
    Range("I1:I4").FormulaArray = S
    
    'Zuweisen eines VBA-Werte-Strings in einen VBA-Variant
    Crr = Evaluate(S): MsgBox Crr(3, 1)
    
    'Zuweisen eines VBA-Werte-Strings in eine benannte Excel-Formel, hier: benannte Excel-Konstante
    On Error Resume Next
    ActiveWorkbook.Names("Vektor").Delete
    ActiveWorkbook.Names.Add Name:="Vektor", RefersToR1C1:=S
    On Error GoTo 0
    
    'Zuweisen einer benannten Excel-Formel in einen VBA-Werte-String
    T = ActiveWorkbook.Names("Vektor").RefersToR1C1: MsgBox T

End Sub