Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
692to696
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
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per VBA Tabellenblätter umbenennen

per VBA Tabellenblätter umbenennen
10.11.2005 14:11:24
manas
Guten Tag!
Finde in der Recherche dazu nichts, deshalb meine Frage:
Ich möchte vom Tabellenblatt "Liste" 50 Namen die von A1 bis A50 angeführt sind per Makro auf 50 Tabellenblätter übernehmen.
z.B. in A1 steht Meier und Tabelle 1 bekommt diesen Namen, in A2 steht Huber und das zweite Tabellenblatt wird von Tabelle 2 auf Huber umbenannnt und so weiter....
Ist dies möglich?
Danke im Voraus

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

Betreff
Datum
Anwender
Anzeige
AW: per VBA Tabellenblätter umbenennen
10.11.2005 14:16:27
Andi
Hi,
das geht so:

Sub umbenennen()
Dim a As Integer
For a = 1 To 50
Sheets(a).Name = Sheets("Liste").Cells(a, 1).Value
Next a
End Sub

funkt aber nur, wenn 'Liste' nicht zu deb Tabellen gehört, die umbenannt werden, sprich den Index 51 oder höher hat.
Schönen Gruß,
Andi
AW: per VBA Tabellenblätter umbenennen
10.11.2005 14:19:39
Harald
Hallo manas
Vorraussetzung dafür ist, dass Du das erste Tabellenblatt als Übersicht behalten willst, 50 weitere Blätter bereits vorhanden sind und ein Name nicht mehrfach vorkommt.

Sub umbenennen()
x = 1
For i = 2 To 51
Sheets(i).Name = Sheets(1).Cells(x, 1)
x = x + 1
Next i
End Sub

Gruss Harald
Anzeige
AW: per VBA Tabellenblätter umbenennen
10.11.2005 14:35:23
Heinz
Hallo manas,
hier eine Variante, bei der die Tabellen erste eingefügt und gleichzeitig nach den im Bereich A1:A50 stehenden Namen benannt werden.

Sub TabellenEinfügen()
Dim i%
For i = 1 To 50
Worksheets.Add.Name = Cells(i, 1).Value
ActiveSheet.Move After:=Worksheets(Worksheets.Count)
Next i
End Sub

Gruß
Heinz
AW: per VBA Tabellenblätter umbenennen
10.11.2005 14:42:45
manas
Danke für die rasche Hilfe an Andi, Harald und HeinzA. Wankmüller!
Ihr habt mir sehr geholfen.
Noch einen schönen Tag und bis zum nächsten Problem.
Gruß
manas
Gern geschehen... (ot)
10.11.2005 14:55:09
Andi
.

172 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
VBA Tabellenblätter umbenennen
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...
25.01.2017 10:29:24
Thread-ID: 1537235
4 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
3
7
1
13
3
5
1
5
1
2
1
8
2
5
3
1