Code in Tabellenblatt per Makro einfügen
19.03.2013 04:12:30
ludmila
ich möchte einen Tabellenblatt-Code aus einem anderen Arbeitsmappen-Modul
einfügen lassen.
Wird aber nicht.
Danke!
Gruß
Ludmila
Windows("Collect.xlsx").Activate
With Workbooks("Collect.xlsx").VBProject.VBComponents("Muster").CodeModule
Code = .Lines(1, 1)
If Code = "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" Then
.DeleteLines 1, 9
Else
linenr = .CreateEventProc("SelectionChange", "Worksheet")
.InsertLines linenr + 1, "Dim KeyCells As Range"
.InsertLines linenr + 2, "On Error Resume Next"
.InsertLines linenr + 3, "Set KeyCells = Range(""A22:F1000"")"
.InsertLines linenr + 4, "If Not Application.Intersect(KeyCells, Range(Target.Address))Is Nothing Then"
.InsertLines linenr + 5, "Cells(11, 9) = 1"
.InsertLines linenr + 6, "End If"
End If
End With