Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

xml-to-excel-via-url Part II
#1
Hola los todos!

Ich hatte vor einiger Zeit eine Anfrage gestellt:

https://www.clever-excel-forum.de/Thread...el-via-url

Die Lösung von "ZWENN" funktioniert einwandfrei, NUR das bei NULL Treffer in der Anfrage kein Wert in die Ergebnistabelle geschrieben wird. Somit reduziert sich die ganze Tabelle immer um den Wert der NULL Treffer produziert.


Code:
<response version="3">
<totalresults>0</totalresults>
<results/>
</response>


Sollte nur eine Abfrage keine Treffer produzieren, kann ich die Ergebnisliste noch manuell nachbessern. Sollten dann mehrere Abfragen NULL Treffer produzieren, macht das Nachbessern kaum noch Sinn.

Könnte mir eine(r) von euch auf Basis der Formel von "ZWENN" = https://www.clever-excel-forum.de/Thread...el-via-url eine Lösung integrieren, die NULL Treffer berücksichtigt und egal was anstelle in die Zeile schreibt?

Anbei die aktuelle Vorlage.

Danke und Gruss

Peter


Angehängte Dateien
.xlsm   XML aus Web einlesen-vorlage.xlsm (Größe: 18,85 KB / Downloads: 2)
Antworten Top
#2
Hallöchen,

wann steigt denn der Code entsprechend aus?
Wenn das z.B. in der Schleife passiert, dann könntest Du als erstes den festen Eintrag schrieben der dann ggf. überschrieben wird.

z.B. statt

Sheets(tabelle).Cells(aktuelleZeile, aktuelleSpalteEins).Value = knotenJobkey.Text

dann

Sheets(tabelle).Cells(aktuelleZeile, aktuelleSpalteEins).Value = "egal was anstelle"
if knotenJobkey.Text <> "" Then Sheets(tabelle).Cells(aktuelleZeile, aktuelleSpalteEins).Value = knotenJobkey.Text
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste