Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: EAN-Code Infos aus dem WEB in Tabelle

EAN-Code Infos aus dem WEB in Tabelle
10.10.2020 14:04:56
JoWE
Hallo zusammen,
ich habe eine Liste von ca. 500 EAN-Codes.
Beispiel: In A2 steht der EAN-Code 9783550081804.
Ich möchte den Code im WEB suchen und mir den zugehörigen Buchtitel (nach B2), den Verlag (nach C2)
und Autor*in (nach D2) zurückgeben lassen.
Eine einzelne Abfrage klappt über www.ean-suche.de, da erhalte ich einen Teil der gesuchten
Antwort (für das Beispiel: "Buch: Funkenmord (ISBN 3550081804)".
Leider fehlt mir jegliche Idee wie ich das mit VBA bewerkstelligen soll.
Und überdies werden mit die weiteren Detaildaten ja nicht zurückgegeben.
Ideen?.
Grüße
Jochen
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: EAN-Code Infos aus dem WEB in Tabelle
10.10.2020 14:17:17
Günther
Moin,
ich denke, dass diese Seite für deine Anforderungen optimal sein könnte. Und wenn du etwas blätterst wirst du feststellen, dass es sogar eine API gibt, womit du fast unbegrenzt viele Abfragen machen kannst.
 
Gruß
Günther  |  mein Excel-Blog
Anzeige
AW: Get-Methode
10.10.2020 14:18:02
Fennek
Hallo,
die Form der Seite nutzt ein Get-Request, also

https://www.ean-suche.de/?q=+9783550081804
Wenn du diesen String in Excel zusammensetzt, sollte ein Aufruf mit "MSXLM2.HTTP" gehen.
mfg
Anzeige
AW: EAN-Code Infos aus dem WEB in Tabelle
10.10.2020 14:41:59
JoWE
Hui, das ging schnell :=))
Vielen Dank Euch beiden. Werde mal schauen ob ich damit klar komme.
Gruß
Jochen
Einfacher und effizienter über AWS
10.10.2020 16:27:19
EtoPHG
(Amazon Webservices), Jowe
Denn ich nehme an alle deine Codes beziehen sich auf Bücher.
Bei denen ist die ISBN Bestandteil der EAN.
Also mit RECHTS ISBN Ausschneiden
und dann in diesen Request einbauen: https://www.amazon.de/gp/product/3550081804/?tag=ean-21
Dort dann Autor und Verlag aus dem Response extrahieren und in die entsprechenden Zellen transferieren.
AWS bietet übrigens ebenfalls API an.
Gruess Hansueli
Anzeige
AW: komme nicht weiter, please help
10.10.2020 20:21:53
JoWE
Hallo,
habe dies hier:
Sub GetAmazonISDNInfos()
Dim hReq As Object
Dim response As String
Dim ws As Worksheet
Set ws = Tabelle2
Dim strUrl As String
strUrl = "https://www.amazon.de/gp/product/3550081804"
Set hReq = CreateObject("MSXML2.XMLHTTP")
With hReq
.Open "GET", strUrl, False
.Send
End With
response = hReq.ResponseText
Tabelle2.[A1] = response
End Sub

erhalte jede Menge Text im Response, jedoch nichts davon ist das was ich benötige.
Kenne mich mit dem Zugriff auf Web-Sites allerdings überhaupt nicht aus.
Gruß
Jochen
Anzeige
Erledigt. Hatte inzwischen. Rechercheerfolg
12.10.2020 19:32:21
JoWE
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

EAN-Code Infos aus dem WEB in Excel übertragen


Schritt-für-Schritt-Anleitung

Um EAN-Codes aus dem Web in Excel zu suchen und die zugehörigen Informationen wie Buchtitel, Verlag und Autor*in zu extrahieren, kannst du folgende Schritte befolgen:

  1. Öffne Excel und erstelle eine neue Tabelle.
  2. Gib deine EAN-Codes in Spalte A ein, beginnend ab Zelle A2.
  3. Füge eine Schaltfläche für das Makro hinzu:
    • Gehe zu "Entwicklertools" -> "Einfügen" -> "Button".
    • Ziehe den Button auf das Arbeitsblatt.
  4. Füge den folgenden VBA-Code ein:

    Sub GetBookInfo()
       Dim hReq As Object
       Dim response As String
       Dim ws As Worksheet
       Set ws = ThisWorkbook.Sheets("Tabelle1") ' Tabelle anpassen
       Dim ean As String
       Dim url As String
       Dim row As Long
    
       For row = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
           ean = ws.Cells(row, 1).Value
           url = "https://www.ean-suche.de/?q=" & ean
    
           Set hReq = CreateObject("MSXML2.XMLHTTP")
           With hReq
               .Open "GET", url, False
               .Send
               response = .ResponseText
           End With
           ws.Cells(row, 2).Value = response ' Hier anpassen, um spezifische Infos zu extrahieren
       Next row
    End Sub
  5. Starte das Makro durch Klicken auf den Button. Die Informationen werden in die Tabelle geladen.

Häufige Fehler und Lösungen

  • Fehler: „Zugriff auf das Web ist nicht möglich“
    Lösung: Stelle sicher, dass deine Excel-Version die Verwendung von VBA und HTTP-Anfragen unterstützt.

  • Fehler: Keine Daten im Response
    Lösung: Überprüfe die URL und stelle sicher, dass die EAN-Codes korrekt sind. Eventuell ist die Website nicht erreichbar oder hat die Struktur geändert.

  • Fehler in den extrahierten Daten
    Lösung: Möglicherweise muss der Code angepasst werden, um spezifische Informationen aus dem HTML-Code der Website zu extrahieren.


Alternative Methoden

Eine weitere Möglichkeit, um EAN-Codes in Excel zu verarbeiten, ist die Verwendung von APIs. Beispielsweise:

  • Amazon Webservices (AWS): Hier kannst du EAN-Nummern für Bücher abfragen. Verwende die ISBN-Nummer, die Bestandteil der EAN ist, und baue die URL entsprechend auf:

    strUrl = "https://www.amazon.de/gp/product/" & ISBN & "/?tag=ean-21"
  • Web Scraping mit Python: Wenn du mit Python vertraut bist, kannst du Bibliotheken wie BeautifulSoup oder requests verwenden, um die Daten von der Webseite zu extrahieren.


Praktische Beispiele

Hier sind einige Beispiele für EAN-Codes und deren Verwendung:

  • Beispiel EAN-Code: 9783550081804

    • Such-URL: https://www.ean-suche.de/?q=9783550081804
    • Erwartete Informationen: Buchtitel, Verlag, Autor*in.
  • Beispiel für die Verwendung in Excel:

    ws.Cells(row, 2).Value = ExtractBookTitle(response) ' Funktion zur Extraktion des Buchtitels

Tipps für Profis

  • Verwende Fehlerbehandlung in deinem VBA-Code, um sicherzustellen, dass das Programm auch bei unerwarteten Fehlern stabil bleibt.
  • Halte die API-Dokumentation von ean-suche.de oder AWS bereit, um die besten Abfragen zu gestalten.
  • Experimentiere mit Regulären Ausdrücken (Regex) in VBA, um Daten präziser aus dem HTML-Response zu extrahieren.

FAQ: Häufige Fragen

1. Wie kann ich EAN-Codes in Excel eingeben?
Gib die EAN-Codes einfach in eine Spalte ein, beginnend ab Zelle A2.

2. Kann ich die Informationen automatisch aktualisieren?
Ja, indem du das Makro regelmäßig ausführst oder einen Timer implementierst.

3. Wo finde ich weitere Informationen zu EAN-Codes?
Du kannst Websites wie www.ean-suche.de oder Amazon für die EAN-Code Suche verwenden.

4. Ist VBA die einzige Möglichkeit, um EAN-Daten zu verarbeiten?
Nein, du kannst auch Python oder andere Programmiersprachen nutzen, um Web Scraping durchzuführen.

5. Welche Excel-Version benötige ich?
Die meisten modernen Versionen von Excel unterstützen VBA und HTTP-Anfragen, jedoch ist Excel 2016 oder neuer empfohlen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige