Code in Sheet eingefügt =>EXCEL-Absturz



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Code in Sheet eingefügt =>EXCEL-Absturz
von: Wolfram
Geschrieben am: 16.07.2002 - 14:37:14

Hallo ...
ich habe ein Problem:
Mit Hilfe der folgenden Codezeilen habe ich ein Makro (Privat_sub) in ein Sheet eingefügt. Sobald ich meinem Makro sage, es möge das Sheet (oder ein anderes) anfassen, steigt EXCEL komplett aus (Beenden). Innerhalb des Sheets kann ich alles machen.
Gibt es einen Trick?? Muss/kann ich irgendwas umschalten??

Hier ist der Code (aus Herbers Beispielen):
ActiveSheet.Select
With ThisWorkbook.VBProject
With .vbcomponents("Tabelle4").codemodule
txt = .Lines(1, .CountOfLines)
End With
With .vbcomponents(ActiveSheet.CodeName).codemodule
'.DeleteLines 1
.AddFromString txt
End With
End With
Kann mir jemand helfen??

Gruß
Wolfram

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Quartalsformel in Englisch und Deutsch"