ich habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
With Target.MergeArea
' Zellverbund aufheben
.UnMerge
' Ausrichtung über alle Zellen
.HorizontalAlignment = xlCenterAcrossSelection
' automatische Zeilenhöhe
.EntireRow.AutoFit
' Zellen verbinden
.Merge
' Ausrichtung links
.HorizontalAlignment = xlGeneral
End With
End Sub
Der funktioniert allerings nur, wenn ich keinen Blattschutz habe. Kann ich diesen auch mit Blattschutz aktivieren?Vielen Dank.