Sub SensorDatenEinlesenAusXML_pur()
Dim url As String, xmlDocument As Object, knotenAlleSensorDaten As Object, knotenEinzelSensorDaten As Object, sprachenDurchgehen As Byte
url = "G:\Rest\Herber Forum\XML einlesen Englisch Deutsch - Simon\Messwerte.xml"
Set xmlDocument = CreateObject("MSXML2.DOMDocument.6.0")
xmlDocument.async = False
xmlDocument.Load url
For sprachenDurchgehen = 0 To 1
Select Case sprachenDurchgehen
Case 0: Set knotenAlleSensorDaten = xmlDocument.getElementsByTagName("DATA")
Case 1: Set knotenAlleSensorDaten = xmlDocument.getElementsByTagName("DATEN")
End Select
If Not knotenAlleSensorDaten Is Nothing Then
For Each knotenEinzelSensorDaten In knotenAlleSensorDaten
MsgBox knotenEinzelSensorDaten.Text
Next knotenEinzelSensorDaten
End If
Next sprachenDurchgehen
End Sub