UnMerge verhindern
27.07.2021 01:21:00
Nubi
Ich habe ein Formular, das etliche KollegInnen benutzen werden und in dem mitunter Inhalte von einem Bereich in einen anderen kopiert werden (müssen).
Bei diesen Bereichen handelt es sich um verbundene Zellen.
Nun kam es vor, dass jemand bei der Benutzung von strg+c / strg+v die Steuerungstaste dabei nicht loslässt. Sobald dann zum Einfügen das "v"
gedrückt wird, wird die Verbindung der Zellen im markierten Bereich aufgehoben - obwohl das Blatt wie folgt geschützt ist:
Private Sub Schutz ()
Sheets("Protokoll").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Nun dachte ich mir dann verbinde ich die Zellen halt wieder automatisch mit folgendem Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("EL32:EL44")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Selection.Merge
End If
End Sub
Kann mir jemand sagen, wie ich das Aufheben der Verbindung wirksam unterbinden oder auch bei geschütztem Blatt die Verbindung wieder herstellen kann?
Besten Dank!
Anzeige