Ich hätte gerne wenn ich in einer UF bei einer Checkbox ein en Hacken setze, das mir dann im Sheets "Prüfungen" das Wort "Umbau" von B4:B13 Horizontal zentriert erscheint.
Könnte mir dazu bitte jemand helfen ?
Danke Heinz
Private Sub CheckBox1_Click()
With Sheets("Prüfungen").Range("B4:B13")
Select Case CheckBox1.Value
Case True
.MergeCells = True
.HorizontalAlignment = xlCenter
.Value = "Umbau"
Case False
.Value = ""
End Select
End With
End Sub
Schönen Gruß,
Andi