title image


Smiley Nachtrag Re: xl2k: Absturz bei Ersetzen von Workbook_open-Prozedur
Hi,

bin gerade zu Hause am Testen. So scheint es zu funktionieren:



Sub WB_Open_ersetzen()

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

For i = 1 To .CountOfLines

.DeleteLines (1)

Next i

End With

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

.AddFromFile "D:\Tabellen\WB_Open.txt"

End With

End Sub



Fragt sich nur, warum mein Bürorechner dabei abstürzt.



Gruß

Hermann
Gruß, Hermann

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: