Grafiken in tabellenblatt mit schleife ansprechen
08.04.2017 12:41:32
Mister-B
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
Anzeige