Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveWorkbook.XmlMaps.Add( _
        Range("A2").Text _
        , "params").Name = "params_Zuordnung1"
    ActiveWorkbook.XmlMaps("params_Zuordnung1").DataBinding.Refresh
End Sub