Rechtecke Ein-und Ausblenden
Mate
ich habe ein Problem, welches ich leider nicht lösen kann. Ich möchte beim Klicken auf ein Kommandobutton erreichen, dass beim klicken die Zelle AG 18 den Wert 0 annimmt. Sobald dies passiert ist, sollen die entsprechenden Rechtecke ausgeblendet werden.
Wenn ich nun ein zweites mal auf den gleichen Kommandobutton klicke, soll AG 18 den Wert 1 annehmen und folglich sollen die Rechtecke wieder eingeblendet werden.
Ich schaffe nun den Wechsel zwischen 0 und 1 und vica versa nicht. Könnt Ihr mal schauen, wo der Fehler im Makro ist?
Vielen vielen Dank!!!!
Máté
Sub Vergleich_Neutralwerte()
Application.ScreenUpdating = False
Blattschutz_aus
With Worksheets("Simulation")
ActiveSheet.Range("AG18").Value = Range("AG19").Value
'In AG 19 steht der Wert 0
If Worksheets("Simulation").Range("AG18") = 0 Then
ActiveSheet.Shapes("Rechteck712").Visible = False
ActiveSheet.Shapes("Rechteck713").Visible = False
ActiveSheet.Shapes("Rechteck714").Visible = False
ActiveSheet.Shapes("Rechteck715").Visible = False
ActiveSheet.Shapes("Rechteck716").Visible = False
ActiveSheet.Range("AG18").Value = Range("AG21").Value
'In AG 19 steht der Wert 1
If Worksheets("Simulation").Range("AG18") = 1 Then
ActiveSheet.Shapes("Rechteck712").Visible = True
ActiveSheet.Shapes("Rechteck713").Visible = True
ActiveSheet.Shapes("Rechteck714").Visible = True
ActiveSheet.Shapes("Rechteck715").Visible = True
ActiveSheet.Shapes("Rechteck716").Visible = True
End If
End If
End With
End Sub