Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
1432to1436
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

Tabellenblattnamen für alle Blätter aus Zelle

Tabellenblattnamen für alle Blätter aus Zelle
07.07.2015 10:19:44
Matthias
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nutze RECHERCHE.....owT
07.07.2015 10:34:19
robert

AW: Tabellenblattnamen für alle Blätter aus Zelle
07.07.2015 10:38:47
Bernd
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.

Anzeige
nur Worksheets - nicht Sheets
07.07.2015 10:56:36
Matthias
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

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

AW: Tabellenblattnamen für alle Blätter aus Zelle
07.07.2015 12:24:15
Matthias
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

Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige