Sub SensorDatenEinlesenAusXML()
Dim url As String
Dim xmlDocument As Object
Dim knotenAlleSensorDaten As Object
Dim knotenEinzelSensorDaten As Object
Dim einzelSensorDaten As String
Dim 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 = Nothing
Set knotenAlleSensorDaten = xmlDocument.getElementsByTagName("DATA")
Case 1:
Set knotenAlleSensorDaten = Nothing
Set knotenAlleSensorDaten = xmlDocument.getElementsByTagName("DATEN")
End Select
If Not knotenAlleSensorDaten Is Nothing Then
For Each knotenEinzelSensorDaten In knotenAlleSensorDaten
einzelSensorDaten = knotenEinzelSensorDaten.Text
MsgBox einzelSensorDaten
Next knotenEinzelSensorDaten
End If
Next sprachenDurchgehen
Set xmlDocument = Nothing
Set knotenAlleSensorDaten = Nothing
Set knotenEinzelSensorDaten = Nothing
End Sub