Tabellenblatt Namensänderung

Bild

Betrifft: Tabellenblatt Namensänderung
von: Marius K
Geschrieben am: 02.11.2015 16:10:47

Hallo,
ich habe eine Excel Tabelle vorgesetzt bekommen, welche entsprechend von 10 Werten (Namen) im ersten Tabellenblatt "#Namen" (A1:A10), die Tabellenblätter 4 bis 13 in der Reihenfolge nach den 10 Namen benennt. Das ganze geschieht, sobald im Tabellenblatt 1 (#Namen) ein Wert geändert wird.
Der Code lautet wie folgt:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Dim intTableNum As Integer
Dim strTableName As String
intFound = 1
For intTableNum = 4 To 13
    ActiveWorkbook.Sheets(intTableNum).Select
    strTableName = ActiveWorkbook.Sheets("#Namen").Cells(intFound, 1)
    
    ActiveSheet.Name = strTableName
    intFound = intFound + 1
Next
ActiveWorkbook.Sheets("#Namen").Select
Application.ScreenUpdating = True
End Sub
Der Code funktioniert perfekt, allerdings muss ich jetzt das Eingabefenster verschieben. Das bedeutet, die 10 Namen, nach denen die Tabellenblätter benannt werden sollen, stehen jetzt in D21:D30 und nicht mehr in A1:A10.
Wie muss ich den Code anpassen?
Vielen Dank für eure Hilfe!

Bild

Betrifft: AW: Tabellenblatt Namensänderung
von: matthias
Geschrieben am: 02.11.2015 16:19:59
Hallo Marius,

intFound = 21
ActiveWorkbook.Sheets("#Namen").Cells(intFound, 4)
lg Matthias

Bild

Betrifft: AW: Tabellenblatt Namensänderung
von: Marius K
Geschrieben am: 02.11.2015 16:28:09
Da sitzt man da und sieht den Wald vor lauter Bäumen nicht.
Vielen Dank!
lg Marius

Bild

Betrifft: AW: Tabellenblatt Namensänderung
von: Marius K
Geschrieben am: 02.11.2015 16:59:47
Da sitzt man da und sieht den Wald vor lauter Bäumen nicht.
Vielen Dank!
lg Marius

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt Namensänderung"