Gibt es eine Möglichkeit eine Anweisung wie die folgende in eine Zeile zu schreiben?
If (.A1 = True) Then
.Shapes("BildA1").Visible = True
End If
Habe es schon probiert mit Doppelpunkten, hat aber nicht funktioniert. Auch folgendes funktioniert nicht (Syntaxfehler?):
iif(.A1, .Shapes("BildA1").Visible=true)
Grüße
markus