01
02
03
04
05
06
07
08
09
10 |
|
Sub Makro1()
Dim P1 As Long, P2 As Long, Antwort As String
P2 = InStr(Antwort, "Aufrufe</span>")
For P1 = P2 To 1 Step -1
If Mid$(Antwort, P1, 1) = ">" Then
Ergebnis = Mid$(Antwort, P1 + 1, P2 - P1 - 2)
End If
Next P1
End Sub
|