habe folgendes Problem:
Ich will den code des aktiven worksheets in alle sheets eines anderen workbooks,
hier Mappe3, kopieren.
Sub copy_code()
Dim scode As String
Dim i As Integer
For i = 1 To Workbooks("Mappe3.xls").Sheets.Count
With ThisWorkbook.VBProject.VBComponents("Tabelle1").CodeModule
scode = .Lines(1, .CountOfLines)
End With
x = Workbooks("Mappe3.xls").Sheets(i).Name
Workbooks("Mappe3.xls").VBProject.VBComponents(x).CodeModule.AddFromString scode
Next
End Sub
1. Wie kann ich die Krücke mit der Zuweisung das sheet-Namens an die Variable
x umgehen?
Workbooks("Mappe3.xls").VBProject.VBComponents(sheets(i)). ......
gibt einen Syntaxfehler
2. Excel stürzt am Ende des 1. Schleifendurchganges ab. Produziere ich da
vielleicht einen Stacküberlauf oder geht so was prinzipiell nicht mt einer
Schleife
Viele Grüße und danke im Voraus
Volker