Gruppe
Extern
Bereich
Internet
Thema
Import aus dem Internet
Problem
Wie kann ich eine HTML-Seite aus dem Internet öffnen, einen Zellinhalt herausgreifen und diesen in das aktive Arbeitsblatt übertragen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub HTML()
Dim rng As Range
Dim sPage As String, sTxt As String
Application.ScreenUpdating = False
sPage = "https://www.herber.de/mailing/extern.htm"
Workbooks.Open Filename:=sPage
Set rng = Columns(6).Find( _
what:="232", _
LookIn:=xlValues, _
lookat:=xlPart)
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value = _
rng.Offset(0, 1).Value
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub