title image


Smiley priblem mit ThisWorkbook.VBProject.VBComponents("test").CodeModule
mein code (Dank an das forum)



Dim ws As Worksheet

Set ws = ActiveWorkbook.Worksheets.Add



'ws.CodeName = "c_" & dateiname

ws.Name = dateiname



With ActiveWorkbook.VBProject.VBComponents(ws.CodeName).CodeModule

.InsertLines 2, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)"

.InsertLines 3, "eingabemaske.Show"

.InsertLines 4, "End Sub"

End With



problem :



wenn ich eine tabelle lösche gibt er mir eine fehler meldung

"index auserhalb des gültigen bereiches"



also es fehlt die richtige tabelle denn excel macht einen sprung in den tabellennamen



Was muß ich ändern?? oder muß ich den tabellenindex zurücksetzen ??



Danke für alle hilfe

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: