Shortcut für "Inhalte einfügen"

Für ein spezielles Worksheet brauche ich den folgenden Ablauf sehr oft, aber an unterschiedichen Stellen:
Bereich markieren, rechte Maustaste, "Kopieren", anderen Bereich markieren, rechte Maustaste, "Inhalte einfügen", "Werte", Enter.
Ich hab versucht, diese Folge mit dem Recorder aufzuzeichnen und anzupassen, komme aber mit der Übergabe der beiden Bereiche (also dem zu kopierenden und dem Zielbereich) nicht klar. Das heißt, wie mache ich Excel klar, daß ich den zuerst ausgewälten Bereich in einen gleich großen Bereich kopieren möchte, aber eben nur die Werte, sonst nichts, und das mit so wenig Mausklicks wie möglich? Wie man das Makro dann auf eine Schaltfläche legt, weiß ich. Wie Ihr seht, bin ich ein blutiger Anfänger was VBA für Excel betrifft, für Euch "Cracks" ist das wahrscheinlich eine leichte Übung. Hat jemand einen Tip für mich ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo freunde der nacht
ich hab versucht was anzupassen
allerdings fehlt da noch was


'in diese arbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Cell").Controls("CopyPaste").Delete
End Sub
Private Sub Workbook_Open()
ZellenKontextMenuErganzen
End Sub
'in modul1
Sub ZellenKontextMenuErganzen()
Dim MB As CommandBarControl
Set MB = Application.CommandBars("cell").Controls.Add
With MB
.Caption = "Kopiere nur Werte"
.OnAction = "CopyPaste"
.BeginGroup = True
End With
End Sub
Private Sub CopyPaste()
Dim ber1 As Range 'kopierbereich
Dim ber2 As Range 'zielbereich
Range(ber1).Select
Selection.Copy
MsgBox ("Klick auf die Zelle, wo es soll eingefügt werden soll?")
Range(ber2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range(ber2).Select
Application.CutCopyMode = False
End Sub

bitte lasst es mich wissen, wenn ihr eine lösung habt
gruss
mehmet

'in diese arbeitsmappe Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("Cell").Controls("Kopiere nur Werte").Delete End Sub Private Sub Workbook_Open() ZellenKontextMenuErganzen End Sub

Beliebteste Forumthreads (12 Monate)

Shortcut für "Inhalte einfügen"

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Shortcut für "Inhalte einfügen"

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread