Office: Wert aus Webseite auslesen (Laufzeitfehler 5)

Sabine93 · 18. Juni 2017

Hallo zusammen,

mein Ziel ist es, einen Wert von einer Webseite auszulesen.

In mehreren Foren habe ich bereits nach Lösungen gesucht und folgenden Quellcode für mich entdeckt:

Code:

Option Explicit
Sub Makro_Beispiel()
Dim WsName As String

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;Mit Excel Preis aus Website auslesen" _
, Destination:=Range("A1"))
.Name = "excel-preis-website-auslesen-1279986"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

WsName = ActiveSheet.Name

Range("A101").Copy

Sheets("Tabelle1").Select
Range("C3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = False
Sheets(WsName).Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allerdings bekomme ich einen Laufzeitfehler 5 an der Stelle With ActiveSheet... , sodass ich nicht mal dazu komme, es weiter zu testen.

Kann mir jemand einen Tipp geben?

Vielen Dank.

Liebe Grüße
Sabine

:)

Fennek11 · 19. Juni 2017

Hallo Sabine,

ein Vorschlag: Du beschreibst, welche Daten aus welcher Webseite ausgelesen werden sollen. Zusätzlich sollten Informationen über die Häufigkeit (einmal/regelmäßig) und auch die Art der Weiterverarbeitung angegeben werden.

Falls sich dann jemand dieses THemas annehmen möchte, gibt es einen Vorschlag ähnlich wie bei Chip, vielleicht auch ein ganz anderer Ansatz.

mfg

Sabine93 · 19. Juni 2017

Du hast Recht.
@Admins: Bitte löschen, ich erstelle den Thread neu

Hasso · 19. Juni 2017

Hallo Sabine,

so funktioniert das Makro bei mir: Code:

Option Explicit
Sub Makro_Beispiel()
Dim WsName As String

ActiveWorkbook.Worksheets.Add
With ActiveSheet.QueryTables.Add(Connection:="URL;Mit Excel Preis aus Website auslesen", Destination:=ActiveSheet.Range("$A$1"))
.Name = "excel-preis-website-auslesen-1279986"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

WsName = ActiveSheet.Name

Worksheets(WsName).Range("A101").Copy Destination:=Sheets("Tabelle1").Range("C3")
Application.CutCopyMode = False
Application.DisplayAlerts = False
Sheets(WsName).Delete
Application.DisplayAlerts = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sabine93 · 20. Juni 2017

Hallo Hasso,

ja, damit funktioniert es bei mir auch.

Mit jeder x-beliebigen Webseite. Außer meiner :-(
Dort müsste ich wohl ein Feld auslesen.
Habe dazu noch mal einen neuen Thread aufgemacht, da es jetzt in eine andere Richtung geht.

Aber man kann sagen, du hast das hier erst mal gelöst :-)

Danke dafür!

Office: Wert aus Webseite auslesen (Laufzeitfehler 5)

Wert aus Webseite auslesen (Laufzeitfehler 5)

Wert aus Webseite auslesen (Laufzeitfehler 5)

Wert aus Webseite auslesen (Laufzeitfehler 5)

Wert aus Webseite auslesen (Laufzeitfehler 5) - Similar Threads - Wert Webseite auslesen

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Abfrageergebnis soll keine doppelten Werte enthalten

Teilstring einer Zelle auf Wert aus anderer Zelle überprüfen

konti aufzählung und wert gleicher konti zusammenfassen

Werte zusammenzählen - ab einer Zelle die nächsten 5

Bedingte Formatierung basierend auf Wert anderer Zelle

Werte in Webseite eintragen und Submit klicken