Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ISBN-Ziffern, Infos aus dem Internet?

Forumthread: ISBN-Ziffern, Infos aus dem Internet?

ISBN-Ziffern, Infos aus dem Internet?
JoWE
Hallo Forum,
ich möchte Bücher in einer Tabelle erfassen. Stelle mir vor, den Strichcode vieler Bücher (die ISBN-Ziffer) über einen Handscanner in eine Tabelle einzulesen. Im Anschluß möchte ich die entsprechenden Infos zum jeweiligen Buch über das Internet herausfinden und in meine Liste übernehmen. Würde wegen der Menge der zu erfassenden Bücher (aber weniger als 2000) ungern mit jeder ISBN-Ziffer einzeln ins Internet gehen. Vielleicht könnte man das automatisieren. Habe da mal was von einem WEB-Service von Amazon gehört, aber keine Ahnung wie ich da vorzugehen hätte. Da mir weiter auch noch unklar ist, welche Daten eine automatisierte Abfrage enthalten könnte, ist die Tabellenstruktur natürlich auch noch völlig offen; abgesehen vom Eintrag der ISBN-Nummer in Spalte A; die Individualdaten wie Titel, Autor, Verlag, Genre etc. würden sich nach rechts erweiternd anschließen.
Würdet ihr mir von meinem Vorhaben eher ab- oder zuraten?
Hat jemand einen Vorschlag?
Vielleicht gibt es eine fertige Lösung für kein oder wenigstens kleines Geld?
Gruß
Jochen
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: ISBN-Ziffern, Infos aus dem Internet?
04.10.2011 13:54:07
Yal
Hi Jochen,
es gibt manche Fragen, die Google besser beantwortet als die versierten Profis vom Forum.
Mit den Begriffe "ISBN Freeware" kann man schnell auf Freeware wie "Bookmanager" oder "Buchliebhaber". Letzteres hat ausführliche Video-Anleitungen. Wer will da noch mit Excel arbeiten?
Viel Erfolg
Yal
Anzeige
AW: ISBN-Ziffern, Infos aus dem Internet?
04.10.2011 22:38:31
Jowe
Hallo Yal,
natürlich muss ich Dir Recht geben, aber es geht ja nicht nur um den letzendlichen Zweck, es geht doch auch um den Spaß! Trotzdem Danke, dass Du Dich meiner Frage angenommen hast.
Gruß
Jochen
AW: ISBN-Ziffern, Infos aus dem Internet?
04.10.2011 14:01:58
Dirk
Hallo!
Im Grunde reicht dafuer eine Schleife ueber Deine ISBN Nummern und einsetzen der ISBN in eine Webabfrage.
In der Webabfrage muesste dann noch bestimm t werden, welche informationen benoetigt werden.
als Beispiel mal eine kleine Routine fuer mein Lieblingsbuch:

Sub webabfrage()
Dim i As Long
Dim Itext As String
Dim MyUrl As String
Dim MyISBN As String
Dim IEApp As Object
Dim IEDocument As Object
MyISBN = "978-0-393-97283-2"
MyUrl = "http://www.amazon.de/s/ref=nb_sb_noss?__mk_de_DE=%C5M%C5Z%D5%D1&url=search-alias%3Daps& _
field-keywords=" & MyISBN & "&x=22&y=24"
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate MyUrl
Do
DoEvents
Loop Until IEApp.readyState = 4
Set IEDocument = IEApp.Document
Itext = IEDocument.body.innertext
MsgBox Mid(Itext, InStr(1, Itext, "Treffer") - 3, 1024)
IEApp.Quit
Set IEApp = Nothing
Set IEDocument = Nothing
End Sub

Gruss
Dirk aus Dubai
Anzeige
AW: ISBN-Ziffern, Infos aus dem Internet?
04.10.2011 22:40:30
Jowe
Hallo Dirk,
genau das hatte ich gesucht! Klappt hervorragend, danke.
Bist Du echt in Dubai?
Gruß
Jochen
;
Anzeige
Anzeige

Infobox / Tutorial

ISBN-Ziffern in Excel automatisiert erfassen und abfragen

Schritt-für-Schritt-Anleitung

  1. Vorbereitung der Excel-Tabelle: Erstelle eine Excel-Datei, in der du die ISBN-Nummern in Spalte A eingibst. Du kannst weitere Spalten für Titel, Autor, Verlag und Genre anlegen.

  2. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor in Excel zu öffnen.

  3. Modul hinzufügen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. VBA-Code einfügen: Kopiere den folgenden Code in das Modul:

    Sub webabfrage()
   Dim i As Long
   Dim Itext As String
   Dim MyUrl As String
   Dim MyISBN As String
   Dim IEApp As Object
   Dim IEDocument As Object

   For i = 2 To 2000 ' Beginne bei Zeile 2 und gehe bis 2000
       MyISBN = Cells(i, 1).Value ' ISBN aus Spalte A holen
       MyUrl = "http://www.amazon.de/s/ref=nb_sb_noss?url=search-alias%3Daps&field-keywords=" & MyISBN

       Set IEApp = CreateObject("InternetExplorer.Application")
       IEApp.Visible = True
       IEApp.Navigate MyUrl

       Do
           DoEvents
       Loop Until IEApp.readyState = 4

       Set IEDocument = IEApp.Document
       Itext = IEDocument.body.innerText
       Cells(i, 2).Value = Mid(Itext, InStr(1, Itext, "Treffer") - 3, 1024) ' Ergebnis in Spalte B schreiben

       IEApp.Quit
       Set IEApp = Nothing
       Set IEDocument = Nothing
   Next i
End Sub

  5. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle das Makro webabfrage und klicke auf Ausführen.

  6. Daten überprüfen: Die Informationen zu den jeweiligen ISBN-Nummern sollten nun in der Excel-Tabelle erscheinen.

Häufige Fehler und Lösungen

  • Fehler: Internet Explorer öffnet sich nicht.

    • Lösung: Stelle sicher, dass Internet Explorer auf deinem System installiert ist und korrekt funktioniert, da der Code diesen Browser verwendet.

  • Fehler: Die Seite wird nicht geladen.

    • Lösung: Überprüfe deine Internetverbindung und teste, ob die URL korrekt ist.

  • Fehler: Keine Informationen in der Tabelle.

    • Lösung: Stelle sicher, dass die ISBN-Nummer korrekt eingegeben wurde und dass die Suchanfrage Ergebnisse liefert.

Alternative Methoden

  • ISBN-Abfrage mit Online-Diensten: Es gibt zahlreiche Online-Services, die ISBN-Abfragen unterstützen. Du kannst Tools wie "Bookmanager" oder "Buchliebhaber" verwenden, um Buchinformationen ohne Excel zu erfassen.

  • Excel-Add-Ins: Suche nach Add-Ins, die speziell für die ISBN-Verwaltung in Excel entwickelt wurden. Diese bieten oft einfachere Lösungen zur Automatisierung.

Praktische Beispiele

  • Beispiel für eine ISBN-Nummer in Spalte A:

    • A2: 978-3-16-148410-0
    • Nach der Ausführung des Makros wird in B2 der Titel des Buches angezeigt.

  • Du kannst die Tabelle so erweitern, dass auch andere Informationen wie Autor oder Verlag abgerufen werden, indem du den VBA-Code entsprechend anpasst.

Tipps für Profis

  • Optimierung des Codes: Wenn du viele ISBN-Nummern abfragst, kann es sinnvoll sein, die Abfragen in Batches durchzuführen, um die Serverlast zu reduzieren.

  • Nutzung von APIs: Überlege, ob du die Amazon API für Buchinformationen nutzen kannst. Damit kannst du automatisierte Abfragen effizienter gestalten.

  • Datenvalidierung: Implementiere eine Datenvalidierung in Excel, um sicherzustellen, dass die eingegebenen ISBN-Nummern im richtigen Format sind (ISBN 10 oder ISBN 13).

FAQ: Häufige Fragen

1. Wie bekomme ich eine ISBN? Um eine ISBN zu erhalten, musst du dich an die zuständige ISBN-Agentur in deinem Land wenden. In Deutschland ist dies die MVB GmbH.

2. Kann ich die ISBN auch manuell abfragen? Ja, du kannst die ISBN-Nummer auf Websites wie Amazon oder Buchhandlungen manuell eingeben, um die entsprechenden Buchinformationen zu erhalten.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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