Ich habe eine UF, da hätte gerne wenn ich ComboBox1 anklicke, das die Werte vom unteren Code wieder zurückgesetzt werden.
Also keine Zellenverbindungen usw. mehr. Ebenso sollte der Wert "Umbau" auch gelöscht werden.
Eben so wie es vor CheckBox17 Click war.
Könnte mir dazu bitte jemand weiterhelfen ?
Gruß Heinz
Private Sub CheckBox17_Click()
Worksheets("Prüfungen").Unprotect Password:="vetro"
With Sheets("Prüfungen").Range("B4:B13")
Select Case CheckBox17.Value
Case True
.MergeCells = True
.HorizontalAlignment = xlCenter
.Orientation = 90
.Value = "Umbau"
Case False
.Value = ""
End Select
End With
End Sub