Gesperrte Zellen copy mit Rechter Maus T

Hallo an alle VBA Experten,
Möchte Gesperrte Zellen R4:R18 mit Rechter Maus Taste Kopieren und in einer anderen Mappe X beliebige einfügen.
Kann ich dies in diesen vorhandenen Code einbauen? bzw. bewerkstelligen.
möchte aber die anderen Möglichkeiten mit der Rechten Maus Taste beibehalten.

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
Me.Unprotect ("1234")
If Not Intersect(Target, Range("G4:G18")) Is Nothing Then
Target = IIf(Target = "", "A", "")
Cancel = True
End If
If Not Intersect(Target, Range("I4:I18")) Is Nothing Then
Target = IIf(Target = "", "X", "")
Cancel = True
End If
If Not Intersect(Target, Range("B7:B7")) Is Nothing Then
Cancel = True
Rudel.Show
End If
If Not Intersect(Target, Range("R4:R18")) Is Nothing Then
Clipboard.SetText Text1.SelText, vbCFText
Cancel = True
End If
Me.Protect ("1234")
End Sub

Danke

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If Not Intersect(Range("R4:R18"), Target) Is Nothing Then Cancel = True If Application.CutCopyMode Then 'es wurde schon was kopiert Target.PasteSpecial Paste:=xlPasteValues ' nur Werte einfügen Application.CutCopyMode = False Else 'noch nichts kopiert Target.Copy End If

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean) If Not Intersect(Range("R4:R18"), Target) Is Nothing Then Cancel = True Me.Unprotect ("1234") If Application.CutCopyMode Then 'es wurde schon was kopiert Workbooks("Test.xlsx").Worksheets("Tabelle2").Cells(1).PasteSpecial Paste:= _ xlPasteValues ' nur Werte einfügen Application.CutCopyMode = False Else 'noch nichts kopiert Range("R4:R18").Copy Workbooks("Test.xlsx").Worksheets("Tabelle2").Cells(1).PasteSpecial Paste:= _ xlPasteValues ' nur Werte einfügen Application.CutCopyMode = False End If Me.Protect ("1234") End If End Sub

Hallo Werner,
den Code brauche ich weil es noch zusätzliche Codes wie E-Mail versenden, Menü Band löschen, etc. auf der Seite vorhanden sind.
Habe diese Test Seite gesendet um zu sehn ob man es so bewerkstelligen kann, ohne all die anderen Codes aufzuheben.
Der Code in diesen VBA Bereich soll wie schon gesagt, den Benutzer die Möglichkeit geben nur diesen Bereich mit rechter Maus Taste (oder irgend eine andere Möglichkeit) kopieren zu können und es dann in irgendeine beliebige Seite oder Mappe einfügen können, ohne die anderen vorhandenen Möglichkeiten auszuschließen/aufzuheben.
Weiß zwar nicht ob und wie dies möglich gemacht werden kann, doch so ist die Vorstellung einen Anfängers...wie ich :-)
Danke.

Beliebteste Forumthreads (12 Monate)

Gesperrte Zellen copy mit Rechter Maus T

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread