Gruppe
Extern
Problem
Wie kann ich eine HTML-Seite aus dem Internet öffnen, einen Zellinhalt herausgreifen und diesen in das aktive Arbeitsblatt übertragen?
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