Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1332to1336
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
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Internetliste auslesen

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

Betreff
Datum
Anwender
Anzeige
AW: Internetliste auslesen
25.10.2013 10:49:33
ChrisL
Hi Tom
Probier mal...
Sub Makro1()
Dim i As Byte
For i = 1 To 49
Call WAbfrage(i, Range("A65536").End(xlUp).Offset(3, 0))
Next i
End Sub 
Private Sub WAbfrage(ipage As Byte, rng)
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://vote.swr.de/swr/voting/abstimmung/ergebnis/t444448-0?page=" & ipage, Destination _
:=rng)
.Name = "t444448-0_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10,14,18,22,26,30,34,38,42,46,50,54,58,62,66,70,74,78,82,86"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

cu
Chris

Anzeige
AW: Internetliste auslesen
25.10.2013 16:00:01
Tom
Hi Chris,
danke mal für Deine Mühe. Da ich aber mit Makros nicht so fit bin: Wo kommt was hin?
Tabelle1 das mit Private Sub ?
Modul1 = Makro1?
Gruß
Tom

AW: Internetliste auslesen
27.10.2013 09:12:36
ChrisL
Hi Tom
Alt + F11, Menü Einfügen, Standardmodul, Code reinkopieren, abspielen.
For i = 1 To 49
bedeutet Seite 1 bis 49 durchlaufen. Vielleicht erstmal For i = 1 To 3 weil dauert ziemlich lang.
cu
Chris

AW: Internetliste auslesen
27.10.2013 20:41:13
Tom
Super Vielen Dank. Klappt wunderbar!
Guten Wochenstart!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige