vbComponent nach Worksheets.Add leer?

Worksheets.Add After:=Worksheets(Worksheets.count) sCodeName = ActiveSheet.CodeName With ActiveWorkbook.VBProject.VBComponents(sCodeName).CodeModule i = .CreateEventProc("SelectionChange", "Worksheet") .InsertLines i + 1, "ProcessSelectionChange Target" End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test1() Dim sCodeName As String, i As Long Worksheets.Add After:=Worksheets(Worksheets.Count) sCodeName = ActiveSheet.CodeName DoEvents With ActiveWorkbook.VBProject.VBComponents(sCodeName).CodeModule i = .CreateEventProc("SelectionChange", "Worksheet") .InsertLines i + 1, "ProcessSelectionChange Target" Debug.Print VarType(i) End With End Sub

Worksheets.Add After:=Worksheets(Worksheets.count) sCodeName = Worksheets(Worksheets.count).CodeName MsgBox "1 sCodeName: " & sCodeName ==> sCodeName ist LEER sCodeName = ActiveWorkbook.VBProject.VBComponents(Worksheets.count).Name MsgBox "2 sCodeName: " & sCodeName ==> sCodeName ist "Tabelle6" (FALSCH) sCodeName = Worksheets(Worksheets.count).CodeName MsgBox "3 sCodeName: " & sCodeName ==> sCodeName ist "Tabelle8" (RICHTIG)

Sub test1() Dim sCodeName As String, i As Long Dim objSheet As Worksheet Set objSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count)) With ActiveWorkbook.VBProject.VBComponents(objSheet.CodeName).CodeModule i = .CreateEventProc("SelectionChange", "Worksheet") .InsertLines i + 1, "ProcessSelectionChange Target" End With Set objSheet = Nothing End Sub

Hallo Sepp,
die Idee mit dem worksheet-object finde ich gut - aber das hilft leider auch nicht. Schau dir bitte mal den folgenden Codeausschnitt an:

[...]
Set wsSheet = Worksheets.Add(After:=Worksheets(Worksheets.count))
sCodeName = wsSheet.CodeName
Stop
'    With ActiveWorkbook.VBProject.VBComponents(sCodeName).CodeModule
With ActiveWorkbook.VBProject.VBComponents(wsSheet.CodeName).CodeModule
[...]

Wenn nach dem Stop der VB-Editor aufgeht, hat sCodeName den Inhalt "", wsSheet.CodeName den korrekten Inhalt "Tabelle8".
Wenn ich den Stop weglasse (und das muss ich ja wohl irgendwann einmal), geht der nachfolgende Zugriff auf die Components im With-Block in die Hose, egal ob mit sCodeName oder wsSheet.CodeName ...
Irgendetwas müsste also zwischen dem Set und dem With eingefügt werden, damit der CodeName auch zur Laufzeit und nicht nur bei geöffneter Entwicklungsumgebung verfügbar ist.
Grüße
Burkhard

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub test1() Dim objSheet As Object Set objSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count)) Call Application.OnTime(Now, "'insertCode """ & objSheet.CodeName & """'") Set objSheet = Nothing End Sub Sub insertCode(strCodename As String) Dim i As Long With ActiveWorkbook.VBProject.VBComponents(strCodename).CodeModule i = .CreateEventProc("SelectionChange", "Worksheet") .InsertLines i + 1, "ProcessSelectionChange Target" End With End Sub

' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Sub test1() Dim objSheet As Object, strCodeName As String, i As Long Set objSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count)) With Application.VBE strCodeName = objSheet.CodeName End With With ActiveWorkbook.VBProject.VBComponents(strCodeName).CodeModule i = .CreateEventProc("SelectionChange", "Worksheet") .InsertLines i + 1, "ProcessSelectionChange Target" End With Application.VBE.MainWindow.Visible = False Set objSheet = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

vbComponent nach Worksheets.Add leer?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread