Shapes aus- und einblenden. Code kürzen
17.02.2025 16:46:28
Dieter(Drummer)
Kann man den Code kützer fassen? Wenn ja, wie?
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Sub Plus_Minus()
If ActiveSheet.Shapes("PLus 20").Visible = True Then
ActiveSheet.Shapes("PLus 20").Visible = False
ActiveSheet.Shapes("Minus 21").Visible = True
Else
ActiveSheet.Shapes("PLus 20").Visible = True
ActiveSheet.Shapes("Minus 21").Visible = False
End If
End SubAnzeige