wie baue ich folgenden Code um, das ich eine Datei auswähle, und in die ausgewählte Datei einen Makro Code einfüge?
Sub Makro_einfuegen()
'öffnet die ausgewählte Datei
Dim varDatei As Variant
varDatei = Application.GetOpenFilename()
If varDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
'Else
' MsgBox "Folgende Datei wurde ausgewählt:" & vbCrLf & varDatei
End If
'fügt in die Tabelle Tabelle1 das Makro ein
Dim x As Integer
With Workbooks(varDatei).VBProject.VBComponents("Tabelle1").CodeModule
x = .CreateEventProc("SelectionChange", "Worksheet")
.InsertLines x + 1, "'dieses Makro wurde per Makro eingefügt"
.InsertLines x + 2, "MsgBox ""Hallo, Hallo !!!"""
End With
End Sub