CodeModule zur Laufzeit in Sheet einfügen

Hallo an alle Excel-Experten in diesem Forum.
Ich habe folgendes Problem:
Ich möchte ein CodeModule während der Laufzeit in den Code-Bereich eines Tabellenblatts schreiben.
Die folgenden Lines-of-code befinden sich im Bereich "Arbeitsmappe" und sind
Teil des "Workbook_Open()"-Ereignis:
'
' Insert sheet "name_of_sheet"
'
Sheets.Add.Name = name_of_sheet
'
' Get CodeName of sheet
'
codename_of_sheet = Sheets("CONTROL").CodeName
'
' Generate CodeModule
'
code = code & vbLf
code = code & "


Private Sub Worksheet_Activate()" & vbLf
code = code & "    panel_control.Show" & vbLf
code = code & "End Sub

" & vbLf
code = code & vbLf
code = code & vbLf
code = code & "


Private Sub Worksheet_Deactivate()" & vbLf
code = code & "    panel_control.Hide" & vbLf
code = code & "End Sub

"
'
' Pass CodeModule to sheet "codename_of_sheet"
'
--> With ThisWorkbook.VBProject.VBComponents(codename_of_sheet).CodeModule .AddFromString code
End With
Der Debugger zeigt mir immer einen Fehler in der mit den Pfeilen (--> Füge ich den o. a. Code in ein eigenes Modul ein und gehe im Debug-Modus schrittweise durch, so funktioniert alles einwandfrei.
Ich hoffe es kennt jemand eine Lösung für mein Problem.
Im Voraus: Vielen Dank!
Chat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heiko...
Vielen Dank für Deine schnelle Antwort.
Im Folgenden füge ich Ausschnitte aus Deiner Antwort ein um sie direkt beantworten zu können:
>> ich wundere mich ein bisschen über diesen Teil:
>>
>> ' Insert sheet "name_of_sheet"
>> Sheets.Add.Name = name_of_sheet
>> ' Get CodeName of sheet
>> codename_of_sheet = Sheets("CONTROL").CodeName
>>
>> Meine Fragen dazu:
>> Wann und wo wird die Variable name_of_sheet mit einen Namen (Inhalt) "versorgt" ?
>> Soll der Code in das neu angelegte Blatt, oder soll er in das Blatt "Control" ?
Der Variablen "name_of_sheet" wird schon der Name "CONTROL" zugewiesen. Ich hatte dummer Weise vergessen, diese Zeile in meiner Anfrage einzufügen.
>> Wenn ich das bei mir so schreibe:
>> Sheets.Add.Name = "CONTROL"
>> ' Get CodeName of sheet
>> codename_of_sheet = Sheets("CONTROL").CodeName
>>
>> dann läuft es bei mir im Workbook_Open so durch.
Wenn ich Deinen Code schrittweise debugge, dann funktioniert das bei mir auch!
Aber füge doch bitte mal folgende Zeilen in den Bereich "DieseArbeitsmappe" ein:


Private Sub workbook_open()
Sheets.Add.Name = "CONTROL"
codename_of_sheet = Sheets("CONTROL").CodeName
With ThisWorkbook.VBProject.VBComponents(codename_of_sheet).CodeModule
.AddFromString "' " & codename_of_sheet
End With
End Sub

Wenn die Mappe geschlossen war und ich sie per doppelklick öffne, dann kommt eine Fehlermeldung. Wenn ich mir dann den Inhalt von "codename_of_sheet" anzeigen lasse, muss ich feststellen, dass der Variablen kein Zeichen zugewiesen wurde.
Gibt es keine andere Möglichkeit auf eine "frisch" erzeugte VB-Komponente zuzugreifen?
So was wie: ActiveComponent?
Oder: LastComponent?
Ich muss das Tabellenblatt nicht zwingender Weise über seinen CodeNamen ansprechen.
Chat.

Private Sub workbook_open() Application.ScreenUpdating = False With Application.VBE.MainWindow .SetFocus .Visible = True End With Sheets.Add.Name = "CONTROL" codename_of_sheet = Sheets("CONTROL").CodeName With ThisWorkbook.VBProject.VBComponents(codename_of_sheet).CodeModule .AddFromString "' " & codename_of_sheet End With With Application.VBE.MainWindow .SetFocus .Visible = False End With Application.ScreenUpdating = True End Sub

Private Sub workbook_open() Dim strHilf As String, strNameOfSheet As String Application.ScreenUpdating = False ' Name festlegen strNameOfSheet = "CONTROL" ' Neues Sheet anlegen Sheets.Add ' Nun erstmal den Namen auslesen um auch den "VBA-Namen" zu bekommen. strHilf = ActiveSheet.Name ' Und dann erst umbenennen Sheets(strHilf).Name = strNameOfSheet ' Diesee Zeile kann auch weggelassen werden, dann bleibt der VBA-Name halt Tabelle... ThisWorkbook.VBProject.VBComponents.Item(strHilf).Name = strNameOfSheet ' Ohne die Zeile über "mir" müßte die With Zeile so aussehen. ' With ThisWorkbook.VBProject.VBComponents(strhilf).CodeModule With ThisWorkbook.VBProject.VBComponents(strNameOfSheet).CodeModule .AddFromString "' " & strNameOfSheet End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

CodeModule zur Laufzeit in Sheet einfügen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread