den untenstehenden Code hatte mir Tino soweit zur Verfügung gestellt und er läuft auch super. Nun kam mir nur die Überlegung, ob die zu importierenden Daten anstatt in eine Tabelle auch in ein Userform mit entsprechenden Textboxes eingefügt werden können (Textbox1 = Vorname, Textbox 2 = Nachname) etc. - Ich hatte hierzu auch einen Thread geöffnet, der aber wohl vermutlich als erledigt gilt, da mein grundsätzliches Problem Dank Tino gelöst war und die jetzige Frage sich nun spontan ergab. Bedanke mich schon jetzt wieder für die Rückmeldungen,
Herzliche Grüße
Wolfgang
Option Explicit
'Pfad zur Datei
Const strPFAD = "C:\Dokumente und Einstellungen\ts\Eigene Dateien\Forum\"
Sub XMLLesen()
Dim F As Integer
Dim sInhalt As String
Dim sFilename As String
Dim tempText() As String
Dim A As Long
'Datei Pfad + Name
sFilename = strPFAD & "Wolfgang.xml"
Application.ScreenUpdating = False
On Error GoTo Fehler:
'Überschrift
Range("A1") = "Vorname"
Range("B1") = "Nachname"
Range("A1:B2").Font.Bold = True
'Datei in String einlesen
F = FreeFile
Open sFilename For Binary As #F
sInhalt = Space$(LOF(F))
Get #F, , sInhalt
Close #F
'String aufteilen nach Vorname
tempText = Split(sInhalt, "MitarbeiterVorname"">")
For A = 1 To Ubound(tempText)
Cells(A + 1, 1) = Left$(tempText(A), InStr(tempText(A), "")
For A = 1 To Ubound(tempText)
Cells(A + 1, 2) = Left$(tempText(A), InStr(tempText(A), "
Sub
'Fehlerbeandlung
Fehler:
Application.ScreenUpdating = True
If Err.Number 0 Then MsgBox Err.Description, vbCritical, "Fehler"
On Error Resume Next
Close #F
End
Sub