GIF / Webbrowser mit WorksheetChange
24.01.2021 00:09:43
tobi
möchte gerne ein GIF einbinden aber das bereitet mir noch ein paar Probleme.
MIt folgendem Code bekomme ich es über eine Klickfunktion gestartet und auch wieder gestoppt, bzw. versteckt.
If ActiveSheet.WebBrowser1.Visible = False Then
ActiveSheet.WebBrowser1.Visible = True
ActiveSheet.WebBrowser1.Navigate ("C:\Users\datei.gif")
Else
ActiveSheet.WebBrowser1.Visible = False
ActiveSheet.WebBrowser1.Navigate ""
Ich möchte es aber gerne ins WorksheetChange vom Tabellenblatt einbauen.
Es sollen mehrere Zellen abgefragt werden, und sobald ein Wert größer 99 erfasst wird soll es starten.
Hier ergeben sich für mich aber ein paar Probleme.
Wenn ich mit der Abfrage
If Range("b6,c6,d6,e6,f6,g6").Value größer 99 Then
arbeite, startet das GIF zwar, aber nach jeder weiteren Eingabe in egal welchen Zellen startet es erneut.
Dabei spielt es auch keine Rolle welcher Wert in den folgenden Zellen erfasst wird, denn in eine der definierten Zellen zuvor steht immer noch der Wert über 99 und der löst bei den Folgeeingaben das GIF fortlaufend erneut aus.
Und geschlossen bekomme ich das GIF bislang leider auch nur per Klick auf ein separates Makro.
Meine Fragen wären nun:
1. Wie kann ich die Range definieren damit jede Zelle in der Range nur einmal abgefragt wird und nicht immer wieder erneut?
2. Wie könnte ich das GIF komfortabler schließen? Liese sich zumindest ein Code für einen Klick aufs GIF/Webbrowser selbst zum schließen integrieren?
3. Oder noch besser, wie könnte man das GIF, bzw. den Webbrowser nach z.B. 5 Sekunden automatisch verschwinden lassen?
Vielleicht hat jemand Die Muse mir behilflich zu sein.
besten Dank
Gruß