Hallo Zusammen,
ich versuche alle Grafiken in einem Tabellenblatt mit einer Schleife anzusprechen. Wenn Bedingungen gegeben sind, soll die entsprechende Grafik eingeblendet werden ansonsten soll sie ausgeblendet bleiben. Mit dem Code:
For i = 1 To 17
If Sheets("Eingaben").Cells(i, 153) = True Then Sheets("Belegung").OLEObject("Grafik " & i + 99).visible = True
If Sheets("Eingaben").Cells(i, 153) = False Then Sheets("Belegung").OLEObject("Grafik " & i + 99).visible = False
Next
erhalte ich die Meldung "Objekt unterstützt Eigenschaft oder Methode nicht"
hat jemand eine Idee?
Vielen Dank und Gruß
Martin