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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen