Einzelne Makro aktivieren und deaktivieren?

Hallöchen,
ich habe da mal wieder eine Frage, in der Hoffnung das ihr mir weiterhelfen könnt.
Und zwar habe ich ein Makro, dass mir nur die Werte einfügt ohne Formatierung o.ä.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub

Es wird eine Zelle markiert, STRG+C gedrückt und mit einem Mausklick auf die gewünschte Zelle
wird automatisch der WERT eingefügt (ohne STRG+V).
Das Problem ist, dass das Makro ständig läuft, ich möchte aber, das Feature nur Sporadisch nutzen. Zusätzlich würde durch das Makro auf Dauer andere VBA Anwendungen gestört
Meine Idee war, dass Makro per Button zu aktiveren und deaktivieren nur, wenn ich das auch nutzen möchte.
Leider konnte ich die Idee nicht so recht umsetzten und deshalb wollte ich bei euch mal nachfragen,
ob einer evtl. eine Idee hat.
Vielen Dank und
Frohe Festtage
Grüße
Ray

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Copy Cancel = True On Error Resume Next Target.PasteSpecial xlPasteValues Application.CutCopyMode = True End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Select Case Application.CutCopyMode Case Is = False Target.Copy Case Is = xlCopy Target.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Select End Sub

Hallo Ray,
dann würde ich den Rechtsklick verwenden.
Ins Codemodul der Tabelle:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Application.CutCopyMode = False Then
If Target.Cells(1, 1)  "" Then
Cancel = True
Set raBereich = Target
Target.Copy
End If
Else
If Not raBereich Is Nothing Then
Target.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Else
Cancel = False
End If
End If
End Sub

In ein allgemeines Modul
-ein allgemeines Modul mit "Einfügen Modul" anlegen und dann nur diese Codezeile ins Codefenster kopieren (keine Prozedur im Modul anlegen)

Public raBereich As Range

Du kannst zunächst mehrere Zellen auswählen und dann mit Rechtsklick kopieren. Mit Rechtsklick in der Zielzelle wird der vorher markierte Bereich eingefügt.
Du kannst auch eine einzelne Zelle mit Rechtsklick kopieren. Dann kannst du mehrere Zellen als Zielbereich auswählen und mit Rechtsklick die Daten einfügen.
Gruß Werner

Beliebteste Forumthreads (12 Monate)

Einzelne Makro aktivieren und deaktivieren?

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread