Wörter um Html Kommentar ausschneiden

Mein Makro funktioniert nun fast perfekt.

Allerdings kann ich nicht eine Stelle um den Ausgabestart und Ausgabeende Kommentar schneiden.

Das müsste ich aber, dh ich will den Text da dazwischen!

Wie kann ich das machen?


Ich kriege nur hin, dass er mit den Text ausgibt den ich ausschneide, aber ich bräuchte es anders herum und de nText der da zwischen drinsteht!





Sub btn_version_01()

Dim ieApp As Object
Dim IEdoc As Object
Dim ieForm As Object
Dim ieObj As Object
Dim URL As String

Dim r As Integer
Dim c As Integer
Dim votes As String
Dim views As String

Dim Elements As Object
Dim Element As Object


URL = "http://logik.phl.univie.ac.at/~chris/gateway/formular-zentral.html"
Set ieApp = CreateObject("InternetExplorer.Application")
ieApp.Visible = True
ieApp.navigate URL
While ieApp.busy Or ieApp.ReadyState <> 4: DoEvents: Wend

Set IEdoc = ieApp.document
Set ieForm = IEdoc.forms(0)


ieForm.Elements(1).textcontent = ActiveSheet.Cells(1, 1).Value
ieForm.Elements(2).Value = "KNF"
'ieForm.elements(4).Click
ieForm.Elements(5).Click


Do

Loop Until ieApp.ReadyState = READYSTATE_COMPLETE


' Do Until ieApp.ReadyState = READYSTATE_COMPLETE
' DoEvents
' Loop

Set html = IEdoc

'MsgBox html.DocumentElement.innertext

'Cells(1, 2).Value = html.getelementbytagname("body")

'Cells(1, 2).Value = "AAAAAA"

' Cells(1, 2).Value = html.getelementbytagname("body").Value

'On Error Resume Next
' Cells(3, 2).Value = html.DocumentElement.innerhtml


'GEHT aber nur ganzer body text
' Cells(3, 2).Value = html.DocumentElement.innertext
' Cells(3, 2).Value = html.documentelement.getElementById("body").childNodes[1].value

' Cells(3, 2).Value = html.DocumentElement.getElementById("HTML").getElementsByClassName("body")[0].getElementsByClassName("p")[0].innerText





Dim s As String
s = html.DocumentElement.innerhtml

'Dim indexOfThey As Integer
'indexOfThey = InStr(10, s, "Übernehmen")
'Dim finalString As String
'finalString = Right(s, Len(s) - indexOfThey + 1)
'Cells(3, 2).Value = finalString


'Dim Text As String
'Dim suchstr As String

'Text = s
' suchstr = "<!-- Ausgabestart -->"

'Do While InStr(Text, suchstr)
'If Mid(Text, 1, Len(suchstr)) = suchstr Then
' Text = Mid(Text, Len(suchstr) + 1, Len(Text))
' Else
' Text = Mid(Text, 1, InStr(Text, suchstr) - 1) & Mid(Text, InStr(Text, suchstr) + Len(suchstr), Len(Text))
' Cells(3, 2).Value = Text
' End If
' Loop




Dim Text As String


Text = s


'Ergebnis = VBA.Left(Text, VBA.InStr(1, Text, "<!-- Ausgabestart -->") - 1)

'Ergebnis = VBA.Right(Text, VBA.InStr(1, Text, "<!-- Ausgabeende-->") - 1)

'Ergebnis = VBA.Left(Text, VBA.InStr(1, Text, "<!-- Ausgabestart -->") - VBA.Right(Text, VBA.InStr(1, Text, "<!-- Ausgabeende -->")))


Ergebnis = VBA.Left(Text, VBA.InStr(VBA.Right(Text, VBA.InStr(1, Text, "<!-- Ausgabeende -->"), Text, "<!-- Ausgabestart -->")))


Cells(3, 2).Value = Ergebnis






Cells(4, 2).Value = "AAAAAAAAAAA"


ReadyState = READYSTATE_COMPLETE

Cells(5, 2).Value = "BBBBBBBBBBB"






' With ActiveSheet.QueryTables.Add(Connection:= _
' "URL;http://logik.phl.univie.ac.at/~chris/cgi-bin/cgi-logik", Destination:= _
Range("$B$1"))
'ieForm.CallByName = "<p><!-- Ausgabestart -->"

'With ieForm.getElementsByName("<!-- Ausgabestart -->").Value = "<!-- Ausgabestart -->"

'With ActiveSheet.QueryTables.IEdoc

'Dim besucher As String, a As Integer, b As Integer
'Dim lst_row As Integer
'If Not Intersect(Target, Range("C2")) Is Nothing Then
' If Intersect(Target, Range("C2")) Is Nothing Then
' a = Application.WorksheetFunction.Search("<!-- Ausgabestart -->", Cells(2, 2)) + 5
' b = Application.WorksheetFunction.Search("<!-- Ausgabeende -->", Cells(2, 2))
' lst_row = Range("D2").End(xlUp).Row + 1
' Cells(lst_row, 5) = Mid(Cells(2, 2), a, b - a)
'End If
'End With

End Sub