Set Application in AddIN
Lutz
ich habe ein Makro das in einer Datei toll funktioniert - wenn ich es aber in ein AddIN packe geht es nicht mehr - woran liegt das?
In diese Arbeitsmappe:
Option Explicit
Public XL As New NewInsert
Private Sub Workbook_Open()
Set XL.App = Application
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
Als Klassenmodul:
Public WithEvents App As Excel.Application
Private 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
Siehe auch: https://www.herber.de/bbs/user/74900.xls
Was muß ich im AddIn ändern/anpassen damit das Makro da auch geht? Anscheinend lädt er die Auto Open nicht?
Viele Grüße Lutz
Anzeige