Public Function XMLAusgeben2(strDateiname As String, attribut As String) As String
Dim objXMLDocument As New MSXML2.DOMDocument
Dim objXMLDocumentElement As Object
Dim objXMLProjekt As Object
Dim objXMLProjektphase As Object
Dim objXMLProjektleiter As Object
With objXMLDocument
.async = False
.preserveWhiteSpace = False
.validateOnParse = True
.resolveExternals = False
End With
If objXMLDocument.Load(strDateiname) = True Then
Set objXMLDocumentElement = objXMLDocument.documentElement
For i = 0 To objXMLDocumentElement.childNodes.length - 1
Set objXMLProjekt = objXMLDocumentElement.childNodes.Item(i)
Debug.Print objXMLProjekt.nodeName
If objXMLProjekt.nodeName = "my:ExamAppointment" Then
End If
Next i