Private Sub button_anwenden_Click()
Dim VarXSDname As String
Dim Datensatz As String
Dim VarXMLname As String
Dim XMLDatensatz As String
Dim headline As String
Dim name As String
Worksheets("Desktop").Activate
ActiveWindow.Zoom = 100
Cells.Select
With Selection
.ClearContents
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.NumberFormat = "@"
End With
If Daten_Eingabe.button_XSD.Value = True _
Then
VarXSDname = Daten_Eingabe.eingabe_XSDDTD.Text
Open VarXSDname For Input As #1
While Not EOF(1)
Line Input #1, Datensatz
If InStr(Datensatz, ":element") > 0 Then
If InStr(Datensatz, "name") > 0 Then
headline = Mid("name", 6, 6)
End If
End If
If Right(Datensatz = "/>") _
Then
Else
If InStr(Datensatz, "</") > 0 _
Then
Else
End If
End If
Wend
Close #1
If Daten_Eingabe.button_XSD.Value = True _
Then
VarXMLname = Daten_Eingabe.eingabe_XML.Text
Open VarXMLname For Input As #2
While Not EOF(2)
Line Input #2, XMLDatensatz
Wend
Close #2
End If
End If
End Sub