03.11.2019, 09:59 (Dieser Beitrag wurde zuletzt bearbeitet: 03.11.2019, 10:35 von maninweb.)
Hallo,
keine Ahnung, ob ich jetzt 100 Prozent verstanden habe, was Du möchtest - anbei jedoch eine benutzerdefinierte VBA-Funktion,
die Dir je nach Parametern die Werte in eine Zelle schreibt. Textumbruch für die Zielzellen einschalten.
Code:
A1 = Der XML Text
C1 = XMLSplitter(A1;"label")
D1 = XMLSplitter(A1;"value")
E1 = XMLSplitter(A1)
Code:
Public Function XMLSplitter(Source As Range, Optional Key As String) As String
Dim d() As String
Dim r As String
Dim n As Long
r = ""
d = Split(Replace(Source.Cells(1, 1).Value, "><", ">$<"), "$")
Select Case Key
Case "label"
For n = LBound(d, 1) To UBound(d, 1)
r = r & Split(Split(d(n), Key & "=""")(1), """")(0)
r = r & IIf(n < UBound(d, 1), vbCrLf, "")
Next
Case "value"
For n = LBound(d, 1) To UBound(d, 1)
r = r & Split(Split(Split(d(n), Key & "=""")(1), """")(0), ":")(1)
r = r & IIf(n < UBound(d, 1), vbCrLf, "")
Next
Case Else
For n = LBound(d, 1) To UBound(d, 1)
r = r & Split(Split(d(n), """>")(1), "</")(0)
r = r & IIf(n < UBound(d, 1), vbCrLf, "")
Next
End Select
XMLSplitter = r
End Function
Gruß
Microsoft Excel Expert · Microsoft Most Valuable Professional (MVP) :: 2011-2019 & 2020-2022 :: 10 Awards https://de.excel-translator.de/translator:: Online Excel-Formel-Übersetzer :: Funktionen :: Fehlerwerte :: Argumente :: Tabellenbezeichner
Also WERT1 und WERT3 sind immer identisch? Dann kann man sich ja WERT3 ersparen.
Lösung in M-Code (Power Query):
Code:
let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Changed Type" = Table.TransformColumnTypes(Source,{{"Column1", type text}}),
#"Split Column by Delimiter" = Table.ExpandListColumn(Table.TransformColumns(#"Changed Type", {{"Column1", Splitter.SplitTextByDelimiter("</option>", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Column1"),
#"Changed Type1" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Column1", type text}}),
#"Inserted Text Between Delimiters" = Table.AddColumn(#"Changed Type1", "Text Between Delimiters", each Text.BetweenDelimiters([Column1], "=", " "), type text),
#"Inserted Text Between Delimiters1" = Table.AddColumn(#"Inserted Text Between Delimiters", "Text Between Delimiters.1", each Text.BetweenDelimiters([Column1], ":", ">"), type text),
#"Removed Columns" = Table.RemoveColumns(#"Inserted Text Between Delimiters1",{"Column1"}),
#"Filtered Rows" = Table.SelectRows(#"Removed Columns", each [Text Between Delimiters] <> null and [Text Between Delimiters] <> "")
in
#"Filtered Rows"
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Also aktuell habe ich jetzt vier offene Baustellen:
snb = Deinen Code habe ich zum Laufen gekriegt, aber er trennt alles in eine Zeile. Also nebeneinander und ich bräuchte die getrennten 3-er Blöcke untereinander in Spalte C, D und E.
fennek = Ich verstehe leider nicht wie und wo ich Deinen Code zum Laufen kriegen soll. Soll ich die Datei umbenennen und auf dem Desktop speichern? Kannst Du mir bitte eine Liste schicken wo das läuft?
shift-del = Wie kriege ich M-Code (Power Query) zum Laufen? Kannst Du mir bitte eine Liste schicken wo das läuft?
manimweb = Mit meiner Beispielzeile funktioniert es prima. Nur wenn ich A1 durch eine andere Zeile wie meine Beispielzeile zum trennen austausche passiert nichts. Wie kann ich den Code denn mit einer anderen Liste starten/nutzen?
