Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Tabellenblätter umbenennen

VBA Tabellenblätter umbenennen
25.01.2017 10:29:24
Georg
Folgenden Code kann man doch sicherlich vereinfachen, kriegs aber nicht richtig hin.
Versuch war schon mit i = 3 to x, aber wie dann die C8,9 etc unterkriegen?
DANKE

Sub RegRename()
ThisWorkbook.Activate
Sheets(3).Select
Sheets(3).Name = Sheets(1).Range("C8")
Sheets(4).Select
Sheets(4).Name = Sheets(1).Range("C9")
Sheets(5).Select
Sheets(5).Name = Sheets(1).Range("C10")
usw.....
Sheets(1).Activate
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Tabellenblätter umbenennen
25.01.2017 10:37:05
EtoPHG
Hallo Georg,
z.B. so:
Sub RegRename()
Dim lX As Long
With ThisWorkbook
For lX = 3 To .Sheets.Count
.Sheets(lX).Name = .Worksheets(1).Cells(lX + 5, 3).Text
Next lX
End With
End Sub
Gruess Hansueli
AW: VBA Tabellenblätter umbenennen
25.01.2017 10:42:07
Anton
Servus,
hier auch noch ein Vorschlag:
Sub TabellenblätterUmbenennen()
Dim wkbQ As Workbook
Dim wksBlatt As Worksheet
Set wkbQ = ThisWorkbook
For Each wksBlatt In wkbQ.Worksheets
Select Case wksBlatt.Index
Case 3
wksBlatt.Name = wkbQ.Worksheets("Tabelle1").Range("C8")
Case 4
wksBlatt.Name = wkbQ.Worksheets("Tabelle1").Range("C9")
Case 5
wksBlatt.Name = wkbQ.Worksheets("Tabelle1").Range("C10")
End Select
Next wksBlatt
End Sub

Anzeige
AW: VBA Tabellenblätter umbenennen
25.01.2017 10:55:16
Georg
Perfekt! Vielen Dank!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige