Tabellen-CodeName über Variable ändern

Mein Problem bei dem folgenden Makro ist, dass ich den CodeName und den Tabellenname über eine Variable ändern muss, da das folgende Makro über ein anderes Makro in ein Tabellenblatt einschreibe, dessen Name sich in einer Liste befindet.
Sub EreignisEinstellenMP(Blatt)
With ThisWorkbook.VBProject.VBComponents(Blatt).CodeModule
.InsertLines 1, _
"


Private Sub Worksheet_Change(ByVal Adresse As Range)" & Chr(13) & _
"Dim Bereich As Range" & Chr(13) & _
"Set Bereich = Range(""I2:BH72"")" & Chr(13) & _
"If Not Intersect(Adresse, Bereich) Is Nothing Then" & Chr(13) & _
"Adresse.Interior.ColorIndex = 4" & Chr(13) & _
"Adresse.Offset(-1, 0).Interior.ColorIndex = 4" & Chr(13) & _
"End If" & Chr(13) & _
"End Sub

"
End With
End Sub
gruss Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hansueli,
mag sein, das ich meine Fähigkeiten überschätze. Der Hintergrund ist folgender:
Um eine Datei, deren Vorraussetzungen sich öfter ändern, nicht immer anpassen zu müssen muss der Benutzer seine Daten (z.B. Anzahl und Namen der Mitglieder, Anzahl und Namen der benötigten Tabellen und ähnliches) in ein Tabellenblatt eintragen. Durch ein entsprechendes Makro soll dann eine komplette Datei nach seinen Anforderungen erstellt werden. Hierzu muss ich auch unter anderen Makros hinter Tabellenbläter und nicht nur in Modulen ablegen. Da bei jedem einfügen eines Tabellenblattes ein anderer CodeName vergeben wird muss ich die CodeNamen und Tabellennamen anhand der vom Benutzer erstellten Liste ändern.
gruss Bernd

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.CodeName = "Tabelle1" Or _ Sh.CodeName = "Tabelle4" Then Exit Sub ' Blätter nicht berücksichtigen If Not (Intersect(Target, Sh.Range("I2:BH72")) Is Nothing) Then Target.Interior.ColorIndex = 4 Target.Offset(-1, 0).Interior.ColorIndex = 4 End If End Sub

Sub test2() ThisWorkbook.Worksheets(1).Name = "Geheim2" 'MsgBox Worksheets(1).CodeName 'MsgBox ThisWorkbook.VBProject.VBComponents(Worksheets(1).CodeName).Name ThisWorkbook.VBProject.VBComponents(Worksheets(1).CodeName).Name = "Geheim1" End Sub

Beliebteste Forumthreads (12 Monate)

Tabellen-CodeName über Variable ändern

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellen-CodeName über Variable ändern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread