ich habe folgendes Problem:
Ich könnte bisher mit folgendem Code dierekt in der Tabell die Bilder 1 bis 8 jenach abhängigkeit einer Eigaben in einem weitren Tabellenblatt.
Ein bzw. Ausblenden.
Private Sub Worksheet_Calculate()
Dim b As Byte
For b = 1 To 8
Me.Shapes("Bild " & b).Visible = False
Next
Select Case [BG1]
Case 1: Me.Pictures("Bild 1").Visible = True
Case 2: Me.Pictures("Bild 2").Visible = True
Case 3: Me.Pictures("Bild 3").Visible = True
Case 4: Me.Pictures("Bild 4").Visible = True
Case 5: Me.Pictures("Bild 5").Visible = True
Case 6: Me.Pictures("Bild 6").Visible = True
Case 7: Me.Pictures("Bild 7").Visible = True
Case 8: Me.Pictures("Bild 7").Visible = True
End Select
End Sub
Dies Funktioniert leider nun nicht mehr !
Warum kann ich mir nicht erklären.
Alle Bilder 1 bis 8 sind vorhanden.
Es tritt eine Fehlermeldung auf:
Me.Shapes("Bild " & b).Visible = False
Laufzeitfehler -21470 bla bal...
Das Elemet mit angegebenem name wurde nicht gefunden.
Kann mir iregnd jemand erklären was hier passiert ist. bzw. wie ich dies wieder zum laufen bekomme.
Danke im voraus
Ralph