Suche in Wikipedia, Leo... nach Begriffen in Excel

Computer: Software & Programmierung Office Software
#1

Hallo Zusammen,

Ich habe einen E-book-Reader, den ich sehr häufig benutze - und bei jedem Buch/ Artikel, in dem mir Begriffe auffallen, zu denen ich mehr wissen möchte, die ich nicht kenne, oder deren direkte/ nicht kontext-bezogene Übersetzung mir fehlt, mache ich ein Lesezeichen.
Diese übertrage ich dann in Excel und schaue manuell bei Wikipedia, Wikipedia (englisch) und LEO nach.

Da es sehr viele Begriffe sind (viele Bücher, wissenschaftliche Artikel), ist dies sehr zeitraubend - wie aufwändig ist eine VBA-Programmierung, so dass alles in Spalte 1 bei Leo, 2 bei Wiki, 3 bei Wiki engl, Begriffe in Spalte 4 und 5 (verküpft mit „+“) bei Google gesucht wird?

Wenn es nicht zu aufwändig ist - könnte es jemand schreiben? Ich kann es leider nicht. Ich kann mir vorstellen, das viele an so etwas interessiert wären, und es die Zugriffshäufigkeit einer Website zum Download deutlich steigern würde.

Ansonsten: Kennt jemand solch ein Programm/Makro/Hilfe?

Vielen Dank Beste Grüße

Michael Schmidt

#2

Hallo Michael,

Ich kann mir vorstellen, das viele
an so etwas interessiert wären, und es die Zugriffshäufigkeit
einer Website zum Download deutlich steigern würde.

mit der Zugriffhäufigkeot habe ich nihct verstanden, die Zugriffe auf z.B. Google?

Nimm mal eine neue Mappe schreibe in A1:C1 jeweils ein Suchwort herein.

Alt+F11, Einfügen–Modul, dort den Code reinkopieren. Stelle den Curser mitten in den Code und drücke F5.

In D1 siehst du im Code die Internetaadresse so wie sie oben bei Google dargestellt wird.
Wenn es bei Wiki, Leo genauso läuft müßtest du da analog auch zugreifen können.

Sub Google()
Dim appIE, Adresse As String
Adresse = "http://www.google.de/search?hl=de&num=100&q="
Adresse = Adresse & Range("A1") & "%2B" & Range("B1") & "%2B" & Range("C1")
Adresse = Adresse & "&btnG=Suche&meta=lr%3Dlang\_de"
range("D1")=Adresse
Set appIE = CreateObject("InternetExplorer.Application")
With appIE
 .Visible = True
 .navigate Adresse
End With
End Sub

Gruß
Reinhard

#3

Hi Richard,

vielen Dank, ich probiere es gleich aus!

Bye

Michael

#4

Stern für Dich! Is ja super.
owT