Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
03.10.2025 18:57:58
Ersatz für PrettyCode.Print
03.10.2025 12:02:13
leere Zeilen nicht drucken (trotz Kontrollkästchen)
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
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Web page öffnen und nach Text durchsuchen

Forumthread: Web page öffnen und nach Text durchsuchen

Web page öffnen und nach Text durchsuchen
05.07.2016 11:07:21
Hermann
Hallo zusammen,
ich habe eine Excel, in der mehrere Hundert Hyperlinks beinhaltet sind.
Nun such ich nach einem Macro, welches diese Links der Reihe nach öffnet und nach dem Begriff "Fahrrad:" sucht und mir anschließend die nächsten 30 Zeichen in meine Excel (am besten eine Zeile daneben) kopiert.
Leider wurde ich nach einem solchen bzw. einem ähnlichen Macro im Archiv nicht fündig.
Kann mir jemand weiterhelfen?
Beste Grüße
Hermann

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
bitte testen
05.07.2016 17:21:37
Michael
Hi,
das geht z.B. so: https://www.herber.de/bbs/user/106776.xlsm
Das Makro gibt auf dem Blatt "Ausgabe" ALLE Treffer innerhalb jeder URL aus, d.h. auch solche, die möglicherweise innerhalb von HTML-Tags stehen.
Wenn der Server-Status 200 ist, war der Zugriff erfolgreich, falls nicht, konnte die Seite nicht gelesen werden.
Viel Spaß,
Michael

Anzeige
AW: bitte testen
05.07.2016 17:41:29
Hermann
Hallo Michael,
vielen Dank für deine Hilfe. Leider erscheint die Fehlermeldung "Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert".
Weißt du was ich anpassen muss?
Gruß, Hermann

AW: bitte testen
05.07.2016 17:54:21
Michael
Hi,
in welcher Zeile? Ich habe die Datei nochmal heruntergeladen, bei mir geht sie.
Was hast Du gemacht? Das Makro in Deine Datei kopiert oder Deine Daten in "meine" Datei kopiert?
Gruß,
Michael
P.S.: hast Du am Ende einen Mac? Der wird schwerlich ein "MSXML2.XMLHTTP" haben.

Anzeige
AW: bitte testen
05.07.2016 18:57:31
Hermann
Hallo Michael,
dein Makro läuft reibungslos. Habe nun auf deine Excel aufgebaut, leider funktioniert es nicht wie gewünscht.
Es erscheint generell "Status 200" und nicht der gewünschte Suchbegriff.
Anbei meine Excel.
Vielen Dank für deine Unterstützung.
https://www.herber.de/bbs/user/106778.xlsm
Hermann

Anzeige
bitte Quelltext ansehen...
05.07.2016 19:18:01
Michael
Hi Hermann,
das ist doch ok, wenn "Status 200" erscheint.
Das Prinzip ist: weil die gesuchten Begriffe mehrfach in einer Website vorkommen können, schreibt das Makro erst Mal jede URL in "Ausgabe", gefolgt von so vielen Zeilen, wie eben Begriffe gefunden werden.
Wenn in der Seite KEINE Begriffe gefunden werden, kommt halt auch nix.
Auf die Art erhältst Du alle Infos, die Du brauchst:
a) wurde die Seite gefunden? Wenn ja: =200=ok
b) wird der Begriff gefunden? Wenn ja: so viele Zeilen wie Treffer; wenn nein: nächste URL
Sonst weißt Du hinterher doch nie, ob nur keine Sachen gefunden wurden oder ob die Seite nicht existiert.
So! Wenn Du jetzt mal einen Blick in den Quelltext der gewünschten Seiten wirfst, wirst Du feststellen, daß da nicht 
Geschäftsführer
steht, sondern 
geschäftsführer
Dann solltest Du auch nach dem unteren Begriff suchen. Bei der Ausgabe mit 
Ausgabe.Range("B" & ausZ) = "'" & Mid(sResult, pLi + 23, 35)
erscheint noch das "er:", da kannste die 23 durch 26 ersetzen...
Schöne Grüße,
Michael

Anzeige
AW: bitte Quelltext ansehen...
05.07.2016 19:40:46
Hermann
vielen Dank!

AW: Web page öffnen und nach Text durchsuchen
05.07.2016 19:21:19
Hermann
@ Michael: habe die Lösung gefunden. Ich muss die Umlaute anders betrachten ;-)

dann sind wir uns ja einig... Gruß & erl. owT
05.07.2016 20:01:20
Michael

Anzeige
AW: dann sind wir uns ja einig... Gruß & erl. owT
05.07.2016 20:43:03
Hermann
Hallo Michael,
leider kommt relativ häufig die Meldung "Status : 403" - und somit nicht der gewünschte Output.
Da die Homepages auf die ich zugreife sehr ähnlich sind, glaube ich kaum, dass es daran liegen könnte.
Hast du eine Idee?
Grüße
Hermann

Server: Status-Codes
06.07.2016 13:23:11
Michael
Hallo Hermann,
die Status-Codes findest Du hier: http://de.wikipedia.org/wiki/HTTP-Statuscode
403 heißt "Zugriff nicht erlaubt", siehe dort...
Schöne Grüße,
Michael
Anzeige
;

Forumthreads zu verwandten Themen

Zeile nach Wort durchsuchen
Anton

Hallo,
und zwar gehts darum, dass ich ein makro brauch, dass meine Tabelle nach dem Wort Warnung durchsucht, und wenns das gefunden hat, dann soll er dahin springen..
Danke im Voraus!
17.02.2011 11:13:15
Thread-ID: 1201401
9 Beiträge
Anzeige
Zwischenablage nach mehrere Begriffe durchsuchen
Mexsalem

Hallo,
ich hab da mal wieder ein Problem....
Vom Anwender wird aus einer anderen Anwendung etwas markiert und per STRG+C in die Zwischenablage kopiert. Es handelt sich um Text und Zahlenreihen.
Ich möchte vor dem Einfügen in Excel sicherstellen, dass der Inhalt der Zwischenablage be...
08.11.2012 15:44:22
Thread-ID: 1285886
5 Beiträge
Anzeige
Tabelle nach Wörtern durchsuchen und Kommentar ein
Steffen

Hallo,
ich habe ein Problem beim Programmieren von VBA in Excel.
Ich suche eine Möglichkeit ein Excel Datei mit einer Referenz-Excel-Tabelle (in der bestimmte Wörter stehen) zu vergleichen und die gefundenen Wöter in der durchsuchten Datei mit Kommentaren, welche ebenfalls in der Refere...
11.03.2013 14:50:08
Thread-ID: 1303194
2 Beiträge
Kommentare nach best. Wörtern durchsuchen
Hartmut

Hallo zusammen,
gibt es eine einfache und schnelle Möglichkeit um in einem Tabellenblatt, wo Kommentare hinterlegt sind, diese nach bestimmten Wörtern zu durchsuchen.
Z.B. in einer Tabelle sind mehrere hundert Kommentare hinterlegt und ich möchte jeden dieser Kommentare z.B. nach dem Wo...
11.07.2013 11:45:13
Thread-ID: 1322032
3 Beiträge
Zelle nach verschiedenen Wörtern durchsuchen
Juri

Hallo,
es wäre nett, wenn mir jmd einen Tip geben könnte, wie ich meinen schwierigen Fall lösen kann.
Die Ausgangslage:
Ich hab eine Spalte A "Texte" und eine Spalte B "URL". Die Url gibt an wo die Texte verwendet werden.
In A2 ist also sämtlicher Text (ca. 300 Wörter pro Zelle...
02.12.2013 19:17:38
Thread-ID: 1340967
19 Beiträge
Anzeige
Textdatei nach Begriff durchsuchen
Matterhorn

Hallo Leute ich habe diesen Beitrag hier im Forum gefunden:
"Textdatei nach Begriff durchsuchen" Sub findWordinTXT() Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData Dim AnzFound As Integer AnzFound = 0 'Wort nach dem gesucht werden soll sWord = "De...
04.04.2014 14:49:33
Thread-ID: 1356146
2 Beiträge
Textdatei nach Begriff durchsuchen und Kopieren
Matterhorn

Hallo ich habe vor zwei Wochen schon mal was in der richtig gepostet und wollte meine Frage erweitern, aber anscheinend wurde der post schon geschlossen.
Danke erst mal an den Oberschlumpf dein Tipp mit dem Leerzeichen war gut =).
So jetzt zu meiner Frage:
Ich habe mehrere Textdatei...
17.04.2014 13:33:38
Thread-ID: 1357722
4 Beiträge
Anzeige
Spalte nach Teilwort durchsuchen und...
VBA

Hallo zusammen,
ich habe ein VBA Problem, bei dem ich absolut keinen Anfang finde, ich habe schon nach vorhandenen Codes geschaut, aber ich verstehs einfach nicht. =/
Folgendes Problem:
Ich habe eine Spalte mit den Tagen des aktuellen Monats
z.B. A1 = 01.01.2014
A2 = A1+1 (e...
12.05.2014 10:52:58
Thread-ID: 1361054
12 Beiträge
Tabellenblatt nach wort oder zahl durchsuchen und
PascalB

Hallo Zusammen,
Bin ziemlicher Neuling im VBA Bereich und habe mir gleich großes vorgenommen ;)
Ich arbeite gerade an einer Artikeldatenbank. Ich habe in einem Tabellenblatt(Datenblatt) alle Artikel untereinander stehen.
in der ersten Zelle steht der Artikelnummer in der zweiten...
22.10.2014 11:33:03
Thread-ID: 1387918
10 Beiträge
Zelle nach Wörtern durchsuchen
Kevin

Hallo Liebes Forum,
ich versuche mich schon eine Weile an einem vielleicht kleinem Problem.
Undzwar habe ich in einer Zelle A1 z.B. stehen : " Haus; Auto; Telefon; Ball"
Nun möchte ich die Zelle nach mehreren Wörtern durchsuchen.
Jedoch habe ich keinen weiteren Ansatz außer dies...
08.01.2015 14:15:36
Thread-ID: 1401492
3 Beiträge
Tabellenblätter nach Begriffen durchsuchen
Christian

Hallo zusammen,
folgenden Code nutze ich um bestimmte Zellwerten aus einem Sheet in ein anderes zu kopieren. Dabei wird in Tabelle1, Spalte A, vorab nach einem bestimmten Begriff gesucht und nur die entsprechenden Zeilen kopiert. Dieser Code funktioniert soweit wunderbar.
Private Sub...
28.10.2015 09:59:39
Thread-ID: 1454920
3 Beiträge
VBA: Daten nach Begriff durchsuchen und Werte kum.
Josef

Hallo allerseits,
ich stehe vor einer Herausforderung, welche ich gerne mit einem Excel-Makro lösen möchte. Ich bin was VBA angeht noch ein Rookie und hoffe daher, hier Hilfe zu finden.
Die Beispieldatei gibt euch einen Überblick, über das was ich möchte:
https://www.herber.de/bbs/u...
01.06.2017 11:10:54
Thread-ID: 1561625
19 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Webpages automatisiert durchsuchen und Text extrahieren

Schritt-für-Schritt-Anleitung

Um eine Internetseite nach einem Wort zu durchsuchen und die relevanten Informationen in Excel zu extrahieren, kannst du ein Makro verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und erstelle ein neues Arbeitsblatt.

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

  3. Füge ein neues Modul hinzu:

    • Rechtsklick auf "VBAProject (deineDatei.xlsx)".
    • Wähle "Einfügen" und dann "Modul".

  4. Kopiere und füge das folgende VBA-Skript ein:

    Sub WebDurchsuchen()
    Dim http As Object
    Dim url As String
    Dim searchTerm As String
    Dim result As String
    Dim outputRow As Integer
    Dim i As Integer

    searchTerm = "Fahrrad:"
    outputRow = 1

    For i = 1 To 100 ' maximal 100 Links
        url = Cells(i, 1).Value ' Links in Spalte A
        Set http = CreateObject("MSXML2.XMLHTTP")
        http.Open "GET", url, False
        http.send

        If http.Status = 200 Then
            result = http.responseText
            If InStr(result, searchTerm) > 0 Then
                Cells(outputRow, 2).Value = Mid(result, InStr(result, searchTerm), 30) ' 30 Zeichen nach dem Suchbegriff
                outputRow = outputRow + 1
            End If
        End If
    Next i
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Gib in Spalte A die URLs ein, die du durchsuchen möchtest.

  7. Führe das Makro aus:

    • Drücke ALT + F8, wähle WebDurchsuchen und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert

    • Überprüfe, ob du die richtige Excel-Version verwendest. MSXML2.XMLHTTP ist nicht in allen Versionen verfügbar.

  • Status 403 - Zugriff nicht erlaubt

    • Dies kann passieren, wenn die Website den Zugriff auf ihre Ressourcen einschränkt. Stelle sicher, dass du die Erlaubnis hast, die komplette Webseite nach einem Wort zu durchsuchen.

  • Kein Suchbegriff gefunden

    • Überprüfe den Quelltext der Webseite. Möglicherweise ist der gesuchte Begriff nicht in der erwarteten Form vorhanden (z.B. Umlaute oder HTML-Kodierung).

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du folgende Methoden in Betracht ziehen:

  • Web Scraping Tools: Nutze Tools wie Import.io oder ParseHub, um Daten von Webseiten zu extrahieren, ohne manuell Makros zu erstellen.
  • Excel-Add-Ins: Einige Add-Ins ermöglichen das Durchsuchen von Webseiten direkt aus Excel heraus.

Praktische Beispiele

  1. Beispiel-URL-Liste: Stelle sicher, dass du eine Liste von Hyperlinks hast, die du in Spalte A einfügst.
  2. Suchbegriff anpassen: Ändere den searchTerm im Skript, um andere Begriffe zu suchen, wie beispielsweise „Fahrradteile“.
  3. Datenanalyse: Nach dem Ausführen des Makros kannst du die extrahierten Informationen analysieren oder weiterverarbeiten.

Tipps für Profis

  • Fehlermeldungen protokollieren: Füge Code hinzu, um Fehler beim Zugriff auf Webseiten zu protokollieren, damit du auf Probleme schnell reagieren kannst.
  • Mehrere Suchbegriffe: Erweitere das Makro, um mehrere Begriffe gleichzeitig zu durchsuchen, indem du eine Schleife über ein Array von Suchbegriffen machst.
  • Quelltext öffnen: Wenn du den Quelltext öffnen möchtest, kannst du das Ergebnis in einer Textdatei speichern, um es später zu analysieren.

FAQ: Häufige Fragen

1. Kann ich das Skript für andere Suchbegriffe anpassen?
Ja, ändere einfach den Wert von searchTerm im Skript, um nach anderen Begriffen zu suchen.

2. Funktioniert das Makro in allen Excel-Versionen?
Das Makro sollte in den meisten modernen Versionen von Excel funktionieren. Ältere Versionen oder Mac-Versionen könnten Einschränkungen bei MSXML haben.

3. Wie kann ich die Ausgabe anpassen?
Die Ausgabe erfolgt aktuell in Spalte B. Du kannst die Zielzelle im Code ändern, um die Daten an einen anderen Ort zu speichern.

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