Tabellenblatt Namensänderung
02.11.2015 16:10:47
Marius
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
Wie muss ich den Code anpassen?
Vielen Dank für eure Hilfe!
Anzeige