Formel unverändert 1:1 kopieren
19.01.2015 14:33:09
Lutz
ich hatte mir mal mit Hilfe das Forums ein Makro gebaut bei dem die Formel 1:1 unverändert kopiert wird.
D.h. ich möchte z.B. A1:A3 mit Strg+C kopieren und dann z.B. nach D1:D3 gehen und dort die Formel aus A1:A3 unverändert reinkopieren.
Das Makro und das Klassenmodul sehen so aus:
Im KlassenmoduL.Public WithEvents App As Excel.Application
Sub App_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
Set OldRange = rngNewRange
Set rngNewRange = Target
If Application.CutCopyMode = False Then
ChangeRange = False
End If
If Application.CutCopyMode = 1 And ChangeRange = False Then
ChangeRange = True
Set rngSaveRange = OldRange
End If
End Sub
Option Explicit
Public rngNewRange As Range
Public OldRange As Range
Public rngSaveRange As Range
Public ChangeRange As Boolean
Sub PastingFormula()
Dim x As Long
Dim y As Long
rngNewRange = rngNewRange.Resize(rngSaveRange.Rows.Count, rngSaveRange.Columns.Count)
For x = 1 To rngSaveRange.Columns.Count
For y = 1 To rngSaveRange.Rows.Count
rngNewRange(y, x).FormulaLocal = rngSaveRange(y, x).FormulaLocal
Next y
Next x
End Sub
Leider funktioniert das irgendwie nur manchmal und gar nicht wenn ich das Makro und das Klassenmodul in ein AddIn kopiere.
Weiß jemand einen Rat?
Vielen Dank und viele Grüße Lutz