csv Artikel im Internet mit Lieferzeiten abgleichen

[schauan]

Hallöchen,

ersetze
cht
durch
chr

[DTM_]

Hallo schauan,

danke für den Tip.

Kommt leider ebenfalls ein Fehler: 

Fehler beim Kompilieren: End Sub erwartet

[schauan]

Hallöchen,

das hast Du dann eventuell aus dem Codefenster hier nicht mit kopiert

[DTM_]

Hallöchen :)

Wie meinst Du das?


Ich habe den Code von snb copiert und die Stelle "cht" durch "chr" ersetzt.

Code:

Sub M_snb()
  With CreateObject("msxml2.xmlhttp.6.0")
    .Open "GET", "https://www.fox-sportauspuff.de/store-products.php?pName=alfa-romeo-147-endschalldaempfer-135x80-typ-53-p-2", False
    .send
  
    Do
      DoEvents
    Loop Until .readystate = 4

    MsgBox Split(Split(.responseText, "title=""Lieferzeit")(1), chr(34))(0)
  End With

Ergebnis ist dann: (siehe Bild anbei)

Aber wie auch immer:
Der Code verweist ja auf einen bestimmten Artikel/URL.
Die Artikelnummern habe ich ja aber in der Excelliste in Spalte A (siehe bereits hochgeladene Liste "Traumvorstellung")

Das Makro müsste ja erst jede Artikelnummer in die Suche eingeben, auf die individuelle Detailseite des Artikel kommen und dann da die Lieferzeit abgreifen.

Oder?

Liegt es evtl. daran?

Anbei nochmals die Beispielliste.

[schauan]

Hallöchen,

wenn Du in das Codefenster in snb's Beitrag gehst, sieht Du, im Gegensatz zu Deinem, auf dessen rechter Seite einen Scrollbalken. Wenn Du damit runter scrollst, siehst Du den fehlenden Code ...

[DTM_]

Guten Morgen,

oh wie peinlich - Du hast Recht.

Jetzt funktioniert es und (ich schätze), dass Excel nun den im Code hinterlegten Link prüft, also den hier:
(https://www.fox-sportauspuff.de/store-products.php?pName=alfa-romeo-147-endschalldaempfer-135x80-typ-53-p-2)

Und mir durch ein Fenster die dort stehende Lieferzeit auswirft.

Wie bekomme ich es denn jetzt hin, dass alle >6000 Artikel (nicht nur der eine in dem Link) geprüft wird und mir das Ergebnis nicht als Fenster sondern als gefüllte Zelle angezeigt wird?

Aktuell bezieht sich der Code meiner Meinung nach ja nur auf 1 Produkt.

[DTM_]

Keiner mehr Lust? 

Dann Thema gerne löschen.