Sobald auf eine Zelle in einem bestimmten Bereich (Range G5:G19) z.B. G7geklickt wird, sollen die Formeln der Range G7:G10 kopiert werden und die Werte wieder in die selben Zellen eingefügt werden. Danach soll die aktive Zelle die sein, auf welche geklickt wurde (G7) und in den Zellen G7:G10 sollen anstelle der Formeln die Werte stehen.
Habe mit dem Makrorekorder das Formel kopieren und Werte einfügen aufgenommen und wollte das ganze zusammenfügen, doch leider funktionietr das so nicht ?
Kann jemand helfen ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("G5:G19")) Is Nothing Then
'mit Makrorekorder aufgenommen
Range("G7:G10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' --------------------------
End If
End Sub