Userform1mit webbrowser für aniemiertes Gif

[Sabine2519960707]

Hallo könnt ihr mir bitte nochmals auf die Sprünge helfen,
Und zwar der Wechsel wären dessen funktioniert nicht, das gif stagniert ganz Kurz aber wechselt nicht im Laufenden betrieb?? Ich habe hier eine recht einfache Methode zum testen genommen.
Zufallsreich(1;2) die macht ein C.B1  welcher auf der userform Integriert ist, wo liegt der Fehler bitte.
Um es zu veranschaulichen ...alle cods im UF Modul

Private Sub CommandButton1_Click()
    Range("R9").Select
    ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,2)"
    Range("R9").Select
    Selection.Copy
    Range("R5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

Private Sub UserForm_Activate()
    Dim i As String, Bild As String
    i = Tabelle1.Range("R5")
    Bild = ThisWorkbook.Path & "\SabineG\Sabinchenordner\" & i & ".Gif"
    WebBrowser1.Navigate2 (ThisWorkbook.Path & "\Sabinchenordner\" & [R5] & ".gif")
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    With WebBrowser1
        .Document.images(0).Style.Border = "0"
        .Document.body.Scroll = "no"
    End With
End Sub




habe auch eingebunden gehabt UF Wechsel ....

Sub UF_Zeigen()
    UserForm1.Show vbModeless
End Sub
Sub UF_wechsel()
    UserForm1.Hide
    DoEvents
    UserForm1.Show vbModeless
End Sub


ist aber gleich viel als ob nicht im Cod Modul der UF wäre  oder gehört dies in ein Klassenmodul ?
 bitte lg sabi

[Sabine2519960707]

ist erledigt es läuft  ...