Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
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
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter über Liste umbenennen VBA

Tabellenblätter über Liste umbenennen VBA
25.05.2017 00:33:25
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ätter
Schritt 1: per VBA kriege ich dann diese Liste:
Name1
Name2
Name3
Schritt 2: Nun mache ich manuell folgende Änderung:
Tabelle 1: Name1
Tabelle 2: Name2
Tabelle 3: Name_NEU
Durch diese Liste sollen nun mittels VBA die einzelnen Tabellenblätter umbenannt werden.
Ist es möglich?
Viele Grüße
Kisska

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter über Liste umbenennen VBA
25.05.2017 04:16:55
Nepumuk
Hallo,
teste mal:
Option Explicit

Public Sub Tabellen_auflisten()
    Dim lngIndex As Long
    For lngIndex = 1 To ThisWorkbook.Sheets.Count
        Cells(lngIndex, 1).Value = ThisWorkbook.Sheets(lngIndex).Name
    Next
End Sub

Public Sub Tabellen_umbenennen()
    Dim lngIndex As Long
    For lngIndex = 1 To ThisWorkbook.Sheets.Count
        ThisWorkbook.Sheets(lngIndex).Name = Cells(lngIndex, 1).Value
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Tabellenblätter über Liste umbenennen VBA
25.05.2017 13:12:24
Kisska
Hallo Nepumuk,
danke für deine Antwort!
Den Code habe ich unter "Diese Arbeitsmappe" eingefügt und dann F5 zum Ausführen gedrückt. Es kommt folgender Fehler: Laufzeitfehler 1004
Habe ich den Code falsch angewandt?
Viele Grüße
Kisska
AW: Tabellenblätter über Liste umbenennen VBA
25.05.2017 13:54:07
Gerd
Hallo Kiska,
ja. Stelle den Code in ein allgemeines Modul, z.B. Modul1
Gruß Gerd
AW: Tabellenblätter über Liste umbenennen VBA
25.05.2017 14:21:46
Kisska
Es erscheint der gleiche Fehler,
Wenn ich nur den ersten Teil des Codes verwende (Tabellen-auflisten), dann passiert nichts. Es kommt kein neues Tabellenblatt mit der Liste.
AW: Tabellenblätter über Liste umbenennen VBA
25.05.2017 14:33:04
Kisska
Sorry, es funktioniert doch alles. Ich habe ein neues Tabellenblatt erwartet und habe nicht gemerkt, dass eine Liste im aktiven Tabellenblatt erstellt wurde.
Und den Code muss man nacheinander ausführen.
Ich danke dir vielmals für die großartige Hilfe!!!
Anzeige
AW: Tabellenblätter über Liste umbenennen VBA
25.05.2017 14:41:52
Nepumuk
Hallo,
von einer neuen Tabelle war in deiner ersten Anfrage nicht die Rede.
Also gut, auf ein neues:
Option Explicit

Private lobjWorksheet As Worksheet

Public Sub Tabellen_auflisten()
    Dim lngIndex As Long
    With ThisWorkbook
        Set lobjWorksheet = .Worksheets.Add(Before:=.Worksheets(1))
        lobjWorksheet.Name = "Tabellennamen"
        For lngIndex = 1 To ThisWorkbook.Worksheets.Count
            lobjWorksheet.Cells(lngIndex, 1).Value = ThisWorkbook.Worksheets(lngIndex).Name
        Next
    End With
End Sub

Public Sub Tabellen_umbenennen()
    Dim lngIndex As Long
    With ThisWorkbook
        For lngIndex = 1 To .Worksheets.Count
            .Worksheets(lngIndex).Name = lobjWorksheet.Cells(lngIndex, 1).Value
        Next
    End With
    Application.DisplayAlerts = False
    Call lobjWorksheet.Delete
    Application.DisplayAlerts = True
End Sub

Der Code prüft nicht ob du verbotene Zeichen (*\/[]....) eingibst.
Gruß
Nepumuk
Anzeige
AW: Tabellenblätter über Liste umbenennen VBA
25.05.2017 15:27:29
Kisska
Ja, sorry.
Danke, dass du den Code überarbeitet hast! Wahnsinn, das Blatt löscht sich von selbst sogar, wenn man fertig mit der Änderung ist.
Vielen vielen Dank dafür!
Liebe Grüße
Kisska

253 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
1
13
3
5
1
5
1
2
1
8
2
5
5
3
1