Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1536to1540
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1536to1540
1536to1540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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!

303 Forumthreads zu ähnlichen Themen

VBA umbenennen eines Tabellenblattes
Jean

Hallo,
wie lässt sich denn per VBA mit Hilfe einer Inputbox der bisherige Tabellenname Tabelle1
a. in der Mappe mit dem Makro umbenennen
b. der Tabellenname einer anderen Mappe (zb. Kunden.XLS in D:\) umbenennen?
Gruß
Jean
21.11.2009 08:42:48
Thread-ID: 1119008
10 Beiträge
Anzeige
kopieren eines großen Tabellenblatts nicht möglich
Bibabutzel

Hallo zusammen,
der nette Sepp (Josef Ehrensberger) aus diesem Forum hat mir ein Makro geschrieben, das nach Erfüllung verschiedener Bedingungen mehrere neue Tabellenblätter erzeugt, indem ein "Vorlage-Tabellenblatt" kopiert wird. Das Makro funktioniert tadellos - allerdings nur, wenn das "...
15.01.2010 23:04:46
Thread-ID: 1130392
8 Beiträge
In VBA Editor Tabellen umbenennen
Heinz

Guten morgen im Forum
Wenn ich den VBA Editor öffne sehe ich:
Tabelle 1 ("Jänner") Tabelle 2 ("Februar") usw..
Meine Frage: Hat das umbenennen von Tabelle 1 in "Jänner" irgend eine Auswirkung auf VBA Codes usw..?
Gruß
Heinz
30.11.2012 09:38:50
Thread-ID: 1288676
3 Beiträge
Anzeige
Datei kopieren und nach Zelle benennen
Lisa

Hallo zusammen.
ich würde gerne Datei "X" von \OrdnerA\ nach \OrdnerB\ kopieren.
In Zelle A1 vom Blatt1 steht das morgige Datum.
Die kopierte Datei soll nun nach A1 in Blatt1 benannt werden, sprich in etwa so:
"TTT_MM_JJ_X"
Ich habe bereits versucht eine neue Datei in \Ordne...
27.11.2014 15:36:42
Thread-ID: 1394972
10 Beiträge
Tabellenblätter automatisch nach Zellen benennen
Fabian

Hallo
ich brauche für meine Excel-Tabelle ein Makro, das automatisch den Namen mehrerer Tabellenblätter ändert, sobald ich den Wert einer Zelle ändere.
In der Tabelle 1 trägt man ein Jahr ein, das in den einzelnen Blättern (5-16) für die Monate (August - Juli) von einem Datum in einen T...
16.04.2015 11:40:20
Thread-ID: 1421170
2 Beiträge
Eingabe in Tabellenblatt nicht möglich
Martin

Hallo Lieber Forummitglieder,
ich habe folgendes Problem. Ich habe eine Abfragetabelle in Excel erstellt bei der man in bestimmten Zellen Werten eingeben muss.
Bspw. Blechstärke = 2,0mm
Ich hab zudem noch einige Steuerelemente in dieser Datei. Problem machen mir dabei die Auswahlst...
28.09.2015 12:49:53
Thread-ID: 1449739
9 Beiträge
Tabellenblätter nach nächstem Monat benennen
Andreas

Guten Abend,
vermutlich ist das Ganze recht simpel, dennoch komme ich nicht drauf und die Suchfunktion hat mir bisher auch nicht wirklich weitergeholfen.
Ich möchte einfach per Mausklick das aktuelle Tabellenblatt ans Ende kopieren und es soll als Namen den des nächsten Monats haben.
22.12.2016 17:21:47
Thread-ID: 1531489
7 Beiträge
Tabellenblätter über Liste umbenennen VBA
Kisska

Schönen Abend,
ich habe sehr viele Tabellenblätter, deren Namen ergänzt oder geändert werden sollten.
Ist es möglich, mittels VBA zunächst eine Liste zu erzeugen, die alle Tabellenblätter auflistet, und dann die manuell korrigierte Liste quasi zurückspielt?
Beispiel: 3 Tabellenblätt...
25.05.2017 00:33:25
Thread-ID: 1560330
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
5
7
2
23
9
1
8
6
7
1
13
3
5
1
5
1
2
1
8
2
5
5
3
1