09.06.2021, 08:01
Seiten: 1 2
09.06.2021, 09:59
Hallo schauan,
danke für den Tip.
Kommt leider ebenfalls ein Fehler:
Fehler beim Kompilieren: End Sub erwartet
danke für den Tip.
Kommt leider ebenfalls ein Fehler:
Fehler beim Kompilieren: End Sub erwartet
09.06.2021, 17:29
Hallöchen,
das hast Du dann eventuell aus dem Codefenster hier nicht mit kopiert
das hast Du dann eventuell aus dem Codefenster hier nicht mit kopiert
09.06.2021, 19:16
Hallöchen :)
Wie meinst Du das?
Ich habe den Code von snb copiert und die Stelle "cht" durch "chr" ersetzt.
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.
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 WithErgebnis 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.
09.06.2021, 20:12
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 ...
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 ...
10.06.2021, 07:30
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.
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.
20.06.2021, 07:16
Keiner mehr Lust? 
Dann Thema gerne löschen.
Dann Thema gerne löschen.
Seiten: 1 2