Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Webabfrage - mehrere Seiten - Liste

Webabfrage - mehrere Seiten - Liste
15.11.2015 21:13:10
Werner
Hallo Excel-Freunde
wir haben in unserer Firma eine Intranet-Seite
bei der nach Eingabe einer UserKennung
der entsprechende Name ausgegeben wird.
Jetzt habe ich per xls eine Liste aller UserKennungen
erstellt, und möchte nur in dieser Liste
Spalte A steht die Userkennung
Spalte B steht der Link
Spalte C soll der Name ausgeben werden.
Bislang habe ich das per "Webabfrage" in xls 'gelöst'
Nur setzt sich der entsprechende Link wie folgt zusammen
www.intranet.usercheck/USERKENNUNG/output ...
Ich müsste also eine Lösung finden
in der in Spalte C nach dem "Zusammensetzen" der Link-Daten
www.intranet.usercheck/ & B1 & /output...
das Ergebnis angezeigt wird.
Ein Hinweis:
auf der Intranetseite wird nach der Eingabe der Userkennung
NUR der Name angezeigt - mehr nicht
Freu mich auf einen Tipp
LG und guten Abend
Werner
.. der Name www.intranet.usercheck ... ist fiktiv ;)

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Webabfrage - mehrere Seiten - Liste
17.11.2015 16:15:04
Michael
Hi Werner,
versucht mal das hier:
Option Explicit
Sub TextAusWeb()
Dim aufruf As String, ergebnis As String, status As String
Dim i as long
aufruf = "https://www.herber.de/mailing/" & _
"Internetdaten_abrufen_und_in_MsgBox_anzeigen.htm"
' da steht ne andere Lösung mit IE
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "GET", aufruf, False
.Send
status = .status & " - " & .StatusText
ergebnis = .ResponseText
End With
MsgBox status
MsgBox ergebnis
End Sub
Du mußt nur den String entsprechend zusammensetzen, halt mit "" - analog zu Deinem Beispiel dann eben in einer Schleife: 

for i = 1 to 20
aufruf = "www.intranet.usercheck/" & Range("B" & i) & "/output..."
'  wie oben und wegschreiben, etwa so:
Range("C" & i).Value= ergebnis
next
Happy Exceling,
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige