Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1452to1456
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblatt Namensänderung

Tabellenblatt Namensänderung
02.11.2015 16:10:47
Marius
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!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt Namensänderung
02.11.2015 16:19:59
matthias
Hallo Marius,
intFound = 21
ActiveWorkbook.Sheets("#Namen").Cells(intFound, 4)
lg Matthias

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige