Makro in die ... setzen

Hallo Zusammen,
erst mal ein schönes Weihnachtsfest ALLEN "im Haus" Herber,
habe ein kleines Problem, ich kopieren ein Modul und eine UF
in eine neue Datei, das klappt soweit alles.
Jetzt möchte ich gern noch in die "Dies Arbeitsmappe"
ein Workbook_Open einsetzen, krieg das nicht hin.
Hier mein funktionierendes Makro:
Sub test()
'------- ab Modul kopieren ---------------
Dim Pfade As String
Pfade = ThisWorkbook.Path & "\modPW.bas"
Application.VBE.ActiveVBProject.VBComponents("modPW").Export Pfade
Workbooks(WBName).Activate
With ActiveWorkbook
Application.VBE.ActiveVBProject.VBComponents.Import Pfade
End With
'-------------------
'Workbooks(akw).Activate
Application.VBE.ActiveVBProject.VBComponents("DatumSuchen").Export Pfade
Workbooks(WBName).Activate With ActiveWorkbook
Application.VBE.ActiveVBProject.VBComponents.Import Pfade
End With
'--------------------------------------------
Workbooks(akw).Activate
End Sub

Das sollte rein:
With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule
.InsertLines 3, "


Private Sub Workbook_Open()"
.InsertLines 8,  "Call Speicherung_ins_C_Laufwerk"
.InsertLines 11, "End Sub

" End With
Hoffentlich kann mir jemand helfen,
danke im voraus,
gru Kurt aus K

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim strCodeString As String strCodeString = "Private Sub Workbook_Open()" & Chr(10) & _ " .InsertLines 8, ""Call Speicherung_ins_C_Laufwerk""" & Chr(10) & _ " .InsertLines 11, """"" & Chr(10) & _ "End Sub" With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule .InsertLines 3, strCodeString End With

Hallo Tino,
leider passiert nichts, es wird nicht in die "DieseArbeitsmappe" geschrieben.
habe so reingesetzt:
'------- ab Modul kopieren ---------------
Dim Pfade As String
Pfade = ThisWorkbook.Path & "\modPW.bas"
Application.VBE.ActiveVBProject.VBComponents("modPW").Export Pfade
Workbooks(WBName).Activate '-- Name neue Datei: Lauf+Abge.xls
With ActiveWorkbook
Application.VBE.ActiveVBProject.VBComponents.Import Pfade
End With
'-------------------
Dim wkb As Workbook
Dim strCodeString As String
With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule
.InsertLines 3, strCodeString
End With
strCodeString = "


Private Sub Workbook_Open()" & Chr(10) & _
"    .InsertLines 8, ""Call Speicherung_ins_C_Laufwerk""" & Chr(10) & _
"    .InsertLines 11, """"" & Chr(10) & _
"End Sub

"
'--------------------------
' ActiveSheet.Unprotect
' ActiveSheet.Shapes("Button 63").Select
' Selection.Delete
'Workbooks(akw).Activate '-------------------------------------------
Application.VBE.ActiveVBProject.VBComponents("DatumSuchen").Export Pfade
Workbooks(WBName).Activate With ActiveWorkbook
Application.VBE.ActiveVBProject.VBComponents.Import Pfade
End With
'--------------------------------------------
Workbooks(akw).Activate
Application.VBE.ActiveVBProject.VBComponents("UFAktion").Export Pfade
Workbooks(WBName).Activate
With ActiveWorkbook
Application.VBE.ActiveVBProject.VBComponents.Import Pfade
End With
'--------------------------------------------
Workbooks(akw).Activate
es wird aber jetzt ein 2. Modul reingesetzt modPW1
mfg Kurt aus K

Dim wkb As Workbook Dim strCodeString As String strCodeString = "Private Sub Workbook_Open()" & Chr(10) & _ " .InsertLines 8, ""Call Speicherung_ins_C_Laufwerk""" & Chr(10) & _ " .InsertLines 11, """"" & Chr(10) & _ "End Sub" With wkb.VBProject.VBComponents(wkb.CodeName).CodeModule .InsertLines 3, strCodeString End With

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread