Probleme mit
themaker
ich hoffe, dass mir hier jemand weiterhelfen kann.
Ich habe ein Problem.
Ich lese mit folgendem Code Grafiken von C:\ aus:
=WENN(U16=50;grafik(C146;"C:\S2F.jpg");"");WENN(U16=60;grafik(C146;"C:\S1F.jpg");"")
Diese Grafik soll dann, wenn eine andere Grafik ausgelesen wird wieder gelöscht werden, usw.
Als Code zum Löschen verwende ich in VBA folgendes:
Private Sub prcTimer(ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long)
On Error Resume Next
Call prcStopTimer
ActiveSheet.Pictures.Delete
Call Grafik_einfuegen
End Sub
Klapp auch super. Dumm nur, dass ich noch zwei Logos und weitere drei erklärende Grafiken
in der Tabelle habe, der er mir dann alle löscht und nur die Graifk im Feld C146 stehen lässt.
Ich dachte zwar, ich könnte es so lösen, dass auch die Logos mit
=WENN(U2=1;grafik(O6;"C:\GLOGO.jpg");"")
ausgelesen werden, wobei U2 ein Feld mit dem festen Wert 1 ist.
Funktioniert auch ganz gut. Leider nur in der Zelle O6. Weiter unten
in der Tabelle klappt dieser Code nicht mehr.
Ich denke, dass man das ganze ggf. mit einem Range-Ansatz lösen kann,
nur leider funktioniert es nicht.
Über Tipps, Tricks und eine Lösung würde ich mich sehr freuen.
Vielen Dank!
LG
themaker