Wie kann ich nur per Mausklick sprich per drücken ins feld c6 oder f9, dass er Inhalt automatisch gespeichert wird und dan nur noch per Ctrl + v in ein word dokument einfügen kann ?
Besten Dank für eure Hilfe!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A:B"), Target) Is Nothing Then
If Target.Row > 1 Then 'ohne Überschrift
Target.Copy
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A:B"), Target) Is Nothing Then
If Target.Row > 1 Then 'ohne Überschrift
Cancel = True
Target.Copy
End If
End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A:B"), Target) Is Nothing Then
If Target.Row > 1 Then 'ohne Überschrift
Cancel = True
Target.Copy
End If
End If
End Sub
Das Beispiel ist mal auf Spalten A:B ab Zeile 2 begrenztPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s As String
Dim objClip As DataObject
Set objClip = New DataObject
If (Intersect(Target, Range("C6")) Is Nothing) And (Intersect(Target, Range("F9")) Is Nothing) _
Then Exit Sub
If Target.Count = 1 Then
s = ActiveCell.Value
objClip.SetText s
objClip.PutInClipboard
Beep '(wenn du magst als Bestätigung, sonst einfach weglöschen)
End If
End Sub