WinCC XML - Daten lesen

If OpenXML = True Then

        Set Anzahl_Werkzeuge = XML.getElementsByTagName("Werkzeug/Name")

        For i = 0 To Anzahl_Werkzeuge.length - 1     
        
            For Each XMLChildnodes In Anzahl_Werkzeuge.Item(i).childNodes
                Tag = "Name_" & i + 1
                HMIRuntime.Tags(Tag).Write XMLChildnodes.text   
            Next
            Next
    End If

<Werkzeuge>
<Werkzeug>
<Index>1</Index>
<Nummer>123</Nummer>
<Name>Test_1</Name>
<Schritt_1_Funktion>0</Schritt_1_Funktion>
<Schritt_1_Wert_X>0</Schritt_1_Wert_X>
<Schritt_1_Wert_Y>0</Schritt_1_Wert_Y>
<Schritt_1_Wert_Z>0</Schritt_1_Wert_Z>
.
.
.
<Schritt_200_Geschwindigkeit>0</Schritt_200_Geschwindigkeit>
<Schritt_200_Laufzeit_Band>0</Schritt_200_Laufzeit_Band>
</Werkzeug>
<Werkzeug>
<Index>2</Index>
<Nummer>456</Nummer>
<Name>Test_2</Name>
<Schritt_1_Funktion>0</Schritt_1_Funktion>
<Schritt_1_Wert_X>0</Schritt_1_Wert_X>
<Schritt_1_Wert_Y>0</Schritt_1_Wert_Y>
<Schritt_1_Wert_Z>0</Schritt_1_Wert_Z>
.
.
.
<Schritt_200_Geschwindigkeit>0</Schritt_200_Geschwindigkeit>
<Schritt_200_Laufzeit_Band>0</Schritt_200_Laufzeit_Band>
</Werkzeug>