Tabelle aus HTML Dokument auslesen

Hi Mirco,
ich habe mir das Original mal angesehen: der HTML-Code ist ziemlich wirr; alleine die Werte auszulesen bringt eigentlich nichts, weil die Position innerhalb der Tabelle entscheidend für die Zuweisung von Wochentag & Zeit ist.
D.h., man müßte die ganze Table-Arithmetik (mit den ganzen col- & rowspans) auswerten.
Machbar ist ja immer alles; die Frage ist nur, mit welchem Aufwand. Wenn es Dir darum geht, einen Stundenplan mit Deinen eigenen Kursen zu erstellen, ist es wahrscheinlich schneller händisch erledigt als programmiert.
Hm, hm. Lies die Pläne mal damit ein (Makro in ein allg. Modul, z.B. Modul1, das sind die Dinger, die automatisch erzeugt werden, wenn Du den Makrorekorder benutzt):

Option Explicit
Sub NochEinTest()
'Mirco Ackermann
'Tabelle aus HTML Dokument auslesen
Dim oData As New DataObject
's. a.:
' http://www.online-excel.de/ _
excel/singsel_vba.php?f=28
Dim objXMLHTTP As Object
Dim sURL As String, sResult As String, ausCP$
Dim pLi As Long, pRe As Long
Dim mC&, i& ' max. Spalte, i &=as long
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'sURL = "https://www.hafl.bfh.ch/fileadmin/stundenplaene/hs/P3/c/c00022.htm"
sURL = "https://www.hafl.bfh.ch/fileadmin/stundenplaene/hs/P3/f/f00001.htm"
objXMLHTTP.Open "GET", sURL, False
objXMLHTTP.Send
If objXMLHTTP.Status  200 Then
MsgBox "Status  200: " & objXMLHTTP.Status
Exit Sub
End If
sResult = objXMLHTTP.ResponseText
Set objXMLHTTP = Nothing
ActiveSheet.Cells.Clear
pLi = InStr(sResult, " 0 Then
pRe = InStrRev(sResult, "")
If pRe  0 Then
ausCP = Mid(sResult, pLi, pRe - pLi + 1) & "/TABLE>"
MsgBox Right(ausCP, 50) ' stimmt das Ende?
With oData
.SetText ausCP
.PutInClipboard
End With
Range("B3").Select
ActiveSheet.PasteSpecial Format:="Unicode-Text", Link:=False, _
DisplayAsIcon:=False
Stop
mC = Cells(3, Columns.Count).End(xlToLeft).Column
Range("B2").Resize(, mC).FormulaLocal = "=Anzahl2(B3:B500)"
For i = mC To 5 Step -1
If Cells(2, i) = 0 Then Columns(i).Delete
Next
End If
End If
End Sub

Es kopiert die komplette Tabellenstruktur in das gerade aktive Tabellenblatt, schreibt die Formel = Anzahl2 in die Zeile 2, die ermittelt, ob in der Spalte Daten stehen, und löscht selbige, wenn nichts vorhanden ist.
Du hast ja zwei unterschiedliche Links angegeben; der im Makro erzeugt eine einzelne Tabelle, der andere drei untereinander.
Jedenfalls stellt Dir das Makro eine "geraffte" Ansicht zur Verfügung, die sich innerhalb von Excel sicher leichter auswerten läßt als das eklige HTML.
Wenn Du genau beschreibst, wie die Ausgabe aussehen soll, wird sich's mit vertretbarem Aufwand machen lassen.
Schöne Grüße,
Michael
P.S.: Das Makro verwendet die Zwischenablage, die nicht ohne Weiteres funktioniert (Infos dazu im eingestreuten link auf online-Excel).
Damit Du damit keinen Ärger hast, anbei doch eine Datei mit leicht geändertem Makro: https://www.herber.de/bbs/user/110564.xlsm

Hallo Michael
Vielen Dank für deine super Antwort!
Die HTML-Tabelle ist wirklich sehr wirr. Wahrscheinlich ist aus diesem Grund unsere Schule nicht fähig, benutzerdefinierte Stundenpläne zu generieren. Ich finde den Ansatz aber sehr gut von dir, erst einmal alle Stundenpläne in Excel zu integrieren und anschliessend zu bearbeiten (auch wenn ich den code nicht vollständig lesen kann).
Ich versuche mal etwas zu schreiben, das die integrierten Pläne bearbeitet und werde bestimmt bald weitere Fragen posten! ;-)
Gruss Mirco

Hi Mirco,
ich sehe grad, daß die Forumssoftware ein paar Zeilen verhackstückt hat, z.B.

pLi = InStr(sResult, " 0 Then

Das liegt wohl an den enthaltenen ">" usw.
Wenn Du mir mitteilst, was Du nicht verstehst, erkläre ich's Dir gerne.
Happy Exceling,
Michael

Hallo Michael
Den folgenden Part begreife ich nicht ganz. Man zählt zuerst von links bis das gesuchte Element vorkommt, dann von rechts. Aber was macht man dann mit diesen Zahlen?

If pLi  0 Then
pRe = InStrRev(sResult, "