Microsoft Excel

Herbers Excel/VBA-Archiv

Bedingte Formatierung vor Copy/Paste schützen


Betrifft: Bedingte Formatierung vor Copy/Paste schützen von: Christian Blome
Geschrieben am: 01.10.2019 10:49:00

Hallo, ich habe jetzt schon ein bisschen versucht mich hier rein zu lesen und eine Lösung zu finden. Doch leider ohne Erfolg.

Ich möchte meine Formatierung vor Änderungen schützen. So das wenn jemand aus einer anderen Liste die Namen kopiert und in dieses Blatt einfügt die Formatierung so bleibt wie sie ist.
Folgendes habe ich ich in VBA probiert:

Modul 1
Public rng, rng2(20, 10)

Tabelle 2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim n, i
i = ActiveSheet.Index
For n = 1 To rng.FormatConditions.Count
     If Not Intersect(Target, rng2(i, n)) Is Nothing Then
         With rng.FormatConditions(n)
               .ModifyAppliesToRange (rng2(i, n))
          End With
     End If
Next n
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim n, x, i
     i = ActiveSheet.Index
     Set rng = Range(Cells(1, 1), Cells(1000, 1000))
     x = rng.FormatConditions.Count
     For n = 1 To x
          With rng.FormatConditions(n)
               Set rng2(i, n) = .AppliesTo
          End With
     Next n
End Sub

Hier noch die Datei: https://www.herber.de/bbs/user/132306.xlsm

Könnt ihr mir sagen wo mein fehler ist?

Beiträge aus dem Excel-Forum zum Thema "Bedingte Formatierung vor Copy/Paste schützen"