Makros in die Personal.xlsb installieren
25.02.2017 03:39:24
Tim
ich würde gerne ein Makro weiter geben. Habe dazu einen alten Beitrag aus dem Jahre 2004 im Archiv gefunden. Leider funktioniert der nicht mit Office 2010 und der personal.xlsb, wie würde dies angepasst aussehen?
Ich habe probiert den Dateinamen zu ändern, das reicht aber nicht.
Vielen Dank
Sub CopyInPersonlXLS()
Dim vbC As Object
Dim iRow As Integer
Dim sCode As String
On Error GoTo ERRORHANDLER
With ThisWorkbook.VBProject.VBComponents("basMyCode").codemodule
sCode = .Lines(1, .CountOfLines)
End With
Set vbC = Workbooks("Personl.xls").VBProject.VBComponents.Add(1)
vbC.codemodule.deletelines 1, vbC.codemodule.CountOfLines
vbC.codemodule.AddFromString sCode
Exit Sub
ERRORHANDLER:
MsgBox "Das Makro konnte nicht kopiert werden!"
End Sub