Erzeugen von Macro code durch macro error
10.08.2008 11:07:41
Macro
Ein Macro erzeugt einen Code fuer einen Button.
With Workbooks(WBname).VBProject.VBComponents(ActiveSheet.Index).CodeModule
.InsertLines 1, "Private Sub " & LastButton & "_Click()"
.InsertLines 2, "If bActive = True then Exit Sub"
.InsertLines 3, "LCell = ActiveSheet.OLEObjects(" & """" & LastButton & """" & ").LinkedCell"
.InsertLines 4, "Range(LCell).Select"
.InsertLines 5, "Activecell.Offset(0, -14).Select"
etc...
...
End With
Das Funktioniert auf meinem Rechner einwandfrei, aber leider nicht auf den Rechnern anderer.
Habe anstelle von Workbooks(WBname) auch Thisworkbook ausprobiert, aber leider mit dem selben ergebnis. WBname ist gesetzt und enthaelt den Tabellennamen als string
Wo koennte das Problem liegen?
Danke fuer jeden Rat.
Gruss
Dirk aus Dubai