Hallo zusammen,
ich hoffe Ihr könnte mir helfen. Ich habe ein makro code der vor paar Wochen noch funktioniert hat.
Es geht darum, die Gefällt mir Anzahl von einer bestimmten facebook seite auszulesen.
Der Quellcode sieht jetzt so aus.
ich brauche im Prinzip die zahl 2522. Folgender Code hatte mal funktioniert.
X = UBound(Split(antwort, ">"))
For I = 0 To X - 1
If InStr(Split(antwort, ">")(I), "Personen gefällt das<") > 0 Then
'MsgBox Split(antwort, ",")(I)
Ergebnis = Split(antwort, "div>")(I)
'Debug.Print Ergebnis
Ergebnis = Replace(Ergebnis, " X = UBound(Split(antwort, ">"))
For I = 0 To X - 1
If InStr(Split(antwort, ">")(I), "Personen gefällt das<") > 0 Then
'MsgBox Split(antwort, ",")(I)
Ergebnis = Split(antwort, "div>")(I)
'Debug.Print Ergebnis
Ergebnis = Replace(Ergebnis, "div>", "")
End If
Next I", "")
End If
Next I
über eine Hilfe würde ich mich freuen.
gruß Jan
ich brauche im Prinzip die zahl 2522.
folgender Code hatte mal funktioniert.
ich brauche im Prinzip die zahl 2522.
folgender Code hatte mal funktioniert.
|