Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anstatt Doppelklick, Strg+V

Anstatt Doppelklick, Strg+V
30.09.2020 11:14:18
Mikexcel
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anstatt Doppelklick, Strg+V
30.09.2020 11:17:30
SF
Hola,
warum machst du immer einen neuen Thread auf?
Gruß,
steve1da
AW: Anstatt Doppelklick, Strg+V
30.09.2020 11:59:51
Rudi
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige