Kalendervorlage - bedingte Formatierung vor Kopieren schützen

[philist]

Hallo liebe Clever-Excel-Community,

ich habe für unseren Fußballverein einen Jahreskalender erstellt, welcher von allen Mannschaften zur Saisonplanung genutzt werden soll. Damit die Dokumentation so einheitlich wie möglich erfolgt, sind die meisten Parameter vorformatiert und nur eine begrenzte Anzahl an Zellen für freie Einträge freigegeben.

Zur Struktur:

Das Tabellenblatt "Daten" beinhaltet die Daten, welche im Tabellenblatt "Jahreskalender" und den einzelnen Monatsübersichten angezeigt werden sollen. Hierbei handelt es sich bspw. um die Ferien und Feiertage aber auch um frei definierte Ereignisse, wie Lehrgänge, Geburtstage oder weitere Termine. 

Das Tabellenblatt "Jahreskalender" ist das Hauptarbeitsblatt. Hier ist das gesamte Jahr abgebildet. Zur Bearbeitung frei geschaltet sind die jeweiligen Zellen in den Spalten "Art", "Zeit" und "Ort o. Gegner". Die übrigen Zellen ziehen sich ihre Daten aus dem Tabellenblatt "Daten" und sind geschützt. 

Die Werte in der Spalte "Art" sind vorgegeben und lassen sich über eine Dropdown-Liste auswählen. Die Spalten "Zeit" und "Ort o. Gegner" sind freie Textfelder. Die drei Spalten sind durch bedingte Formatierungen so gestaltet, dass sie sich, je nach Inhalt in der Spalte "Art", farblich einfärben.

Beim Testen ist mir folgendes Problem aufgefallen:

Werden Inhalte aus den Spalten "Zeit" oder "Ort o. Gegner" nicht manuell eingetragen sondern kopiert, wird auch die Formel aus der bedingten Formatierung mitkopiert. Somit orientiert sich die farbliche Kennzeichnung nicht mehr an der Vorgabe "Art" aus der gleichen Zeile, sondern an dem Inhalt aus der kopierten Zeile. 

Da die Datei von vielen unterschiedlichen Usern genutzt wird, würde ich die Kopierfunktion gerne ausschließen. Ist dies problemlos möglich? Oder gibt es evtl. einen einfacheren und/oder besseren Ansatz?

Ich freue mich auf eure Rückmeldungen und bedanke mich bereits im Voraus recht herzlich für eure Unterstützung.

BG Philipp

[marose67]

Hier mal ein Beispielcode. Muss noch angepasst werden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngBereich As Range
Set rngBereich = Range("A1:E5")
Set rngBereich = Intersect(Target, Range("A1:E5"))
If Not rngBereich Is Nothing Then
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then
        Application.CutCopyMode = False
        MsgBox "Kopieren und Ausschneiden verboten"
    End If
End If
End Sub

Gruß

Marcus

[snb]

Verichte auf verbundene Zellen.

[philist]

Hallo Marcus,

vielen Dank für deinen Lösungsvorschlag, welcher auch super funktioniert.

Ich hatte mich zunächst wieder anderen "Baustellen" gewidmet, daher kommt meine Reaktion etwas verspätet.

BG Philipp