Hallo,

ich bin neu und habe keinerlei VBA Kenntnisse, brauche aber ein paar einfache Funktionen in Excel deaktiviert/modifiziert.

Hintergrund: Habe eine Anwesenheit, in die jeder seine Anwesenheiten eintragen kann, möchte aber verhindern, dass die bedingten Formatierungen beim Ausschneiden / Verschieben von Zellen entfernt, bzw. beim Kopieren mitkopiert werden.

Folgende Einschränkungen möchte ich per VBA durchführen.

1. Zellen können nicht per drag and drop verschoben werden -> Funktioniert

2. Ausgeschnittene Zellen können nicht via Shortcut CTRL-X / Kontextmenü eingefügt werden -> Funktioniert

3. Ausgewählte Zellen können kopiert werden, eingefügt wird nur Wert und Kommentare -> funktioniert nicht

In Bezug auf die dritte Funktion, möchte ich die .pastevalue und .pastecomment nutzen, weiß aber nicht, wie ich das in den bestehenden Code einbinden kann.

Ich wäre für Hilfe dankbar.

Gruß Matt

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^x", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^x"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^x", ""
Application.CellDragAndDrop = False
.PasteSpecial Paste:=xlPasteValues
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^x"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^x", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub