VBE -Problem
30.04.2009 15:45:13
Fischer
ich versuche gerade verzweifelt ein Makro zu schreiben, das eine andere Exceldatei öffnet und dann im Codemodel des aktiven Sheets einen code einzufügen. Das mit dem öffnen der anderen Dateien ist kein Problem. Aber wenn ich den code so ausführe wie hier, dann hängt sich Excel auf!!!
Sub fu_Code_erstellen()
Dim VBProj As VBIDE.VBProject
Dim VBCom As VBIDE.VBComponent
Dim VBcm As VBIDE.CodeModule
Set VBProj = ActiveWorkbook.VBProject
Application.DisplayAlerts = False
With VBProj.VBComponents(ActiveSheet.CodeName).CodeModule
.InsertLines 1, "ich steh ganz oben"
End With
End If
Next
Application.DisplayAlerts = True
End Sub
könnt ihr mir sagen wie ich das hinbekomme?