Tabellenblattnamen für alle Blätter aus Zelle

Bild

Betrifft: Tabellenblattnamen für alle Blätter aus Zelle
von: Matthias
Geschrieben am: 07.07.2015 10:19:44

Hallo Wissende,
ich hab folgendes Problem, welches Makro kann
per Knopfdruck aus einer Zelle den Eintrag als
Tabellenblattname nehmen.
Also Zentral für alle Tabellenbätter,
steht der Name in Zelle C3
Ich hoffe hab mich einigermaßen klar ausgedrückt,
für ein einzelnes Blatt krieg ich es hin, aber nicht
für alle Blätter auf einmal.
Vielen Dank im Voraus.
Matthias

Bild

Betrifft: Nutze RECHERCHE.....owT
von: robert
Geschrieben am: 07.07.2015 10:34:19


Bild

Betrifft: AW: Tabellenblattnamen für alle Blätter aus Zelle
von: Bernd
Geschrieben am: 07.07.2015 10:38:47
Hallo!

Sub RenameTabs()
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("C3").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("C3").Value
 End If
 Next
 End Sub

Rückmeldung wäre nett !!! 


>>> mfg Bernd <<<

Sicher ist, dass nichts sicher ist. Selbst das nicht.


Bild

Betrifft: nur Worksheets - nicht Sheets
von: Matthias L
Geschrieben am: 07.07.2015 10:56:36
Hallo Bernd
Nimm mal eine neue Datei mit 3 Tabellenblättern
Natürlich jeweils C3 mit erlaubten Blattnamen füllen.
Zwischen Tabelle1 und Tabelle2 erstellst Du ein leeres Diagramm
Nun lass Deinen mal Code laufen
Du solltest also generell Worksheets benutzen, sonst kanns auch mal schief gehen.
Gruß Matthias

Bild

Betrifft: AW: nur Worksheets - nicht Sheets
von: Bernd
Geschrieben am: 07.07.2015 11:01:02
Hallo Matthias!
hast recht. Danke für den Hinweis, habe es geändert.
mfg Bernd

Bild

Betrifft: AW: Tabellenblattnamen für alle Blätter aus Zelle
von: Matthias
Geschrieben am: 07.07.2015 12:24:15
Hallo Bernd und Matthias,
danke für eure Hilfe, hab den Code
angepasst,
funktioniert super

Sub RenameTabs()
   For x = 1 To Worksheets.Count
   If Worksheets(x).Range("C3").Value <> "" Then
   Worksheets(x).Name = Worksheets(x).Range("C3").Value
   End If
   Next
End Sub


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblattnamen für alle Blätter aus Zelle "