Thema Datum  Von Nutzer Rating
Antwort
Rot Nur Werte und Kommentare kopieren
 08.03.2023 13:05:51 matt2984
*****
NotSolved
08.03.2023 18:08:01 xlKing
NotSolved

Ansicht des Beitrags:
Von:
matt2984		 Datum:
08.03.2023 13:05:51		 Views:
540		 Rating:
     
Antwort:
  Ja
Thema:
Nur Werte und Kommentare kopieren

 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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Nur Werte und Kommentare kopieren
 08.03.2023 13:05:51 matt2984
*****
NotSolved
08.03.2023 18:08:01 xlKing
NotSolved