Blätter umbenennen und Name aus Zellen lesen VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BlattNamen() Dim Wb As Workbook: Set Wb = ThisWorkbook Dim i&, Pre$, Suf$ Application.ScreenUpdating = False Pre = "Text" Suf = Wb.Worksheets(1).Range("B2") & Wb.Worksheets(1).Range("B3") For i = 2 To Wb.Worksheets.Count With Wb.Worksheets(i) .Name = Pre & .Range("B5") & .Range("B1") & Suf End With Next i End Sub

Sub TabellenBlätter() 'Anzahl der Tabellenblätter ermitteln Dim Anzahl As Long Anzahl = ThisWorkbook.Worksheets.Count Anzahl = ThisWorkbook.Sheets.Count 'Tabellenblätter mit dem Index ansprechen Dim i As Long With Thisworkbook For i = 2 To Anzahl 'mit Blatt 2 starten, da erstes nicht umbenannt werden soll .Sheets(i).name = "Text" & .Sheets(i).range("B5") & .sheets(i).Range("B1") & _ .Sheets(1).range("B2") & .sheets(1).range("B3") Next i end with End Sub

Sub BlattNamen() Const SEP$ = "_" Dim Wb As Workbook: Set Wb = ThisWorkbook Dim i&, Pre$, Suf$ Application.ScreenUpdating = False Pre = "Text" Suf = Wb.Worksheets(1).Range("B2") & Wb.Worksheets(1).Range("B3") For i = 2 To Wb.Worksheets.Count With Wb.Worksheets(i) .Name = Pre & SEP & .Range("B5") & SEP & _ Left(.Range("B1"), 8) & SEP & Suf End With Next i End Sub

...mein lieber Nick,
...denn mein Code ist insofern perfekt, als er genau das macht (!) was Du angefordert hast.
Nicht perfekt ist hingegen Deine Salamitaktik, mit der Du Dir hier Code erstellen lässt - in Zukunft also gleich genau beschreiben, was Du willst/brauchst - dann bekommst Du auch gleich den entsprechenden Code.
Außerdem scheinst Du jetzt selbst schon verwirrt zu sein, ob dieser Angaben:
Wenn in Zelle B1 ="Kriterium", Dann so: "Text"_B4_B1_(B2&B3 aus Tabellenblatt1)
Ansonsten wie gehabt "Text"_B4_B1_(B2&B3 aus Tabellenblatt1)
Bisher war es doch immer "Text"_B5_B1_etc. - hier daher der geänderte Code, unter meiner Annahme, dass im Falle B1 = "Kriterium" B4 herangezogen wird, ansonsten B5:

Sub BlattNamen()
Const SEP$ = "_"
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim i&, Pre$, Suf$
Application.ScreenUpdating = False
Pre = "Text"
Suf = Wb.Worksheets(1).Range("B2") & Wb.Worksheets(1).Range("B3")
For i = 2 To Wb.Worksheets.Count
With Wb.Worksheets(i)
Select Case .Range("B1")
Case Is = "Kriterium"
.Name = Pre & SEP & .Range("B4") & SEP & _
Left(.Range("B1"), 8) & SEP & Suf
Case Else
.Name = Pre & SEP & .Range("B5") & SEP & _
Left(.Range("B1"), 8) & SEP & Suf
End Select
End With
Next i
End Sub

LG
Michael

Beliebteste Forumthreads (12 Monate)

Blätter umbenennen und Name aus Zellen lesen VBA

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

33 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blätter umbenennen und Name aus Zellen lesen VBA

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

33 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread