Supportnet / Forum / Tabellenkalkulation
XML Daten in Excel
Frage
Hallo,
fang grad an ein bisschen mit XML Importierung zu Excel (2007) auszuprobieren. Mein Problem ist, dass die Werte eines Elements (ca. 50 Zahlen in Folge) als fortlaufenden Text in einer Zelle, mit Leerzeichen getrennt, geschrieben sind. Natürlich könnte ich jetzt mit "Text in Spalten" die Zahlen auf einzelne Zellen aufteilen, aber das müsste ich ja dann manuell bei jeder Datenaktualisierung wiederholen... man könnte auch mit text-Funktionen den String zerlegen, aber...
Geht das nicht irgendwie einfacher? Hab ich da was in den XML Optionen übersehen?
Wie gesagt, der Output in der Zelle ist ein mehrere hundert Zeichen langer String, den ich automatisch in Zellen aufgeteilt haben möchte, damit ich die Zahlen automatisch mit Formeln zu einem Bericht weiterverarbeiten kann.
Wäre für jeden Tipp dankbar!
Grüße
janusch
Antwort 1 von janusch
Naja, jetz hab ich mir selber ne funktion gebastelt. Den Code kann man aber sicher optimieren, ist ein bisschen umständlich, hat jemand vorschläge?
Function XMLDataDelimiter(Inputcell As String, Delimiter As String, OutputNumber As Integer)
num = 0
i = 0
Do
outputvalue = ""
currentchar = ""
While currentchar <> Delimiter And i < Len(Inputcell)
If currentchar <> Delimiter Then
i = i + 1
currentchar = Mid(Inputcell, i, 1)
outputvalue = outputvalue & currentchar
End If
Wend
num = num + 1
Loop Until num = OutputNumber Or i >= Len(Inputcell)
XMLDataDelimiter = Int(outputvalue)
End Function
Function XMLDataDelimiter(Inputcell As String, Delimiter As String, OutputNumber As Integer)
num = 0
i = 0
Do
outputvalue = ""
currentchar = ""
While currentchar <> Delimiter And i < Len(Inputcell)
If currentchar <> Delimiter Then
i = i + 1
currentchar = Mid(Inputcell, i, 1)
outputvalue = outputvalue & currentchar
End If
Wend
num = num + 1
Loop Until num = OutputNumber Or i >= Len(Inputcell)
XMLDataDelimiter = Int(outputvalue)
End Function