Herbers Excel/VBA-Archiv

Anstatt Doppelklick, Strg+V

• Anstatt Doppelklick, Strg+V von Mikexcel vom 30.09.2020 11:14:18
• AW: Anstatt Doppelklick, Strg+V - von SF am 30.09.2020 11:17:30
• AW: Anstatt Doppelklick, Strg+V - von Rudi Maintaire am 30.09.2020 11:59:51

Betrifft: Anstatt Doppelklick, Strg+V von: Mikexcel
Geschrieben am: 30.09.2020 11:14:18

Was muss ich in der folgende Formel ändern das nur der Wert einfügt wird wenn ich strg+v drücke. Den Doppelklick nutze ich auf einem anderen Tabellenblatt aber in meinem Orgaprogramm für die Uni ist der Doppelklick schon belegt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Application.CutCopyMode Then
    Target.PasteSpecial xlPasteValues
    Cancel = True
    'Application.CutCopyMode = False  'beendet Kopiermodus
  End If
End Sub

  

Betrifft: AW: Anstatt Doppelklick, Strg+V
von: SF
Geschrieben am: 30.09.2020 11:17:30

Hola,

warum machst du immer einen neuen Thread auf?

Gruß,
steve1da

  

Betrifft: AW: Anstatt Doppelklick, Strg+V
von: Rudi Maintaire
Geschrieben am: 30.09.2020 11:59:51

in DieseArbeitsmappe:

Private Sub Workbook_Open()
  Call NurWerte_ein
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Call NurWerte_aus
End Sub

Private Sub Workbook_Activate()
  Call NurWerte_ein
End Sub

Private Sub Workbook_Deactivate()
  Call NurWerte_aus
End Sub

in ein Modul:

Sub NurWerte_ein()
  Application.OnKey "^v", "nurwerte"
End Sub

Sub NurWerte_aus()
  Application.OnKey "^v"
End Sub

Sub NurWerte()
  If Application.CutCopyMode Then _
    ActiveCell.PasteSpecial xlPasteValues
End Sub