ToggleButton
27.01.2020 09:39:19
Theo4u
Ich hätte da "für mich" ein Kompliziertes Problem und die Suchfunktion via Google und co. ergab auch keine zufriedenstellende Lösung.
Ich möchte gerne mit einem ToggleButton zwei Zellen Ein-, bzw. Ausblenden und das beim Einblenden dort jeweils die Zahl Null als Grundwert eingeblendet wird.
Des Weiteren soll der ToggleButton, wenn er auf True steht, einen Wert aus einer Zelle in einer anderen wiedergeben.
Dieses habe ich auch soweit mit folgendem Code hinbekommen
Private Sub ToggleButtonFachverr_Click()
With ToggleButtonFachverr
.BackColor = IIf(.Value = True, RGB(0, 255, 0), RGB(255, 0, 0))
End With
Worksheets("Tabelle1").Unprotect "1234"
Range("I21") = IIf(ToggleButtonFachverr.Value = True, "0", "")
Range("J21") = IIf(ToggleButtonFachverr.Value = True, "0", "")
Range("A113").Value = Range("A106").Value
Worksheets("3-seitige Stahlzarge").Protect "1234"
Das Problem, das ich jetzt habe ist, dass die Werte, die in den Zellen I21 und J21 an die Zellen A114 und A115 weitergeben werden. Ist der ToggleButton auf False und Zelle I21 und J21 werden Ausgeblendet (Was auch so sein soll), werden auch die anderen Zellen ausgeblendet, aber in denen wird zwingend für eine weitere Bearbeitung ein Wert von Null benötigt.
Ich hoffe ich habe mein Problem, einigermaßen verständlich erklärt und Ihr könnt mir weiterhelfen.
In dem Sinne auf eine gute zusammen Arbeit.
Gruß Theo