Live-Forum - Die aktuellen Beiträge

Datum

Titel

26.09.2025 10:29:46

Wert aus einer Zelle bei jeder Eingabe in neue Zelle

26.09.2025 08:51:00

Teilinhalt einer Zelle vergleichen

25.09.2025 23:04:12

Einen von drei möglichen Einträgen in einer Zeile suchen

25.09.2025 19:59:48

Lebenserleichternde Datei, im Bezug auf die Essensauswahl

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Vorwärts blättern

Inhaltsverzeichnis

Tabellennamen per Makro ergänzen

Forumthread: Tabellennamen per Makro ergänzen
7 Beiträge zu diesem Forumthread
Anzeige
242 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen
Top 100 Forumthreads

Forumthread: Tabellennamen per Makro ergänzen

12.11.2014 07:24:24

FritzG

Hallo,
ich habe in einer Arbeitsmappe ganz viele Tabellen. Die Namen dieser Tabellen sollen ergänzt werden.
Aus "KW40" soll "KW40_14" werden. Hab leider keinen Ansatz?!

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellennamen per Makro ergänzen

12.11.2014 07:26:45

Hajo_Zi
AW: Tabellennamen per Makro ergänzen

12.11.2014 07:42:06

FritzG
dann hast Du kein Diagramm dabei ...

12.11.2014 07:53:46

Matthias
AW: Tabellennamen per Makro ergänzen

12.11.2014 07:57:22

FritzG
AW: Tabellennamen per Makro ergänzen

12.11.2014 08:01:42

Hajo_Zi
AW: Tabellennamen per Makro ergänzen

12.11.2014 08:03:29

FritzG
AW: Tabellennamen per Makro ergänzen

12.11.2014 08:08:12

Hajo_Zi

AW: Tabellennamen per Makro ergänzen

12.11.2014 07:26:45

Hajo_Zi


Option Explicit
Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Name = WsTabelle.Name & "_14"
Next WsTabelle
End Sub

AW: Tabellennamen per Makro ergänzen

12.11.2014 07:42:06

FritzG

Wow! das hat geklappt! Vielen Dank und einen schönen Tag :-)

dann hast Du kein Diagramm dabei ...

12.11.2014 07:53:46

Matthias

Hallo
Denn der Code bringt eine Fehlermeldung, wenn z.B. ein Diagramm vorhanden ist
Man sollte immer die Bezeichnung Sheets und Worksheets betrachten.
Benutze also besser:

Option Explicit
Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Worksheets
WsTabelle.Name = WsTabelle.Name & "_14"
Next WsTabelle
End Sub

Sonst gibts eine Fehlermeldung, wenn es nicht nur Worksheets sind.
Man sollte nicht WsTabelle als Worksheet deklarieren und dann die Schleife über alle Sheets schicken.
Gruß Matthias

AW: Tabellennamen per Makro ergänzen

12.11.2014 07:57:22

FritzG

Blöde Frage jetzt, aber kann man so ein Makro auch für markierte Tabellenblätter machen? Ich hab leider Gottes 2013 und 2014 in einer Arbeitsmappe o.O

AW: Tabellennamen per Makro ergänzen

12.11.2014 08:01:42

Hajo_Zi


Option Explicit
Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In ThisWorkbook.Windows(1).SelectedSheets
WsTabelle.Name = WsTabelle.Name & "_14"
Next WsTabelle
End Sub

Gruß Hajo

AW: Tabellennamen per Makro ergänzen

12.11.2014 08:03:29

FritzG

Großartig! Ich hoffe dass andere auch davon profitieren können. Herzlichen Dank! :-)

AW: Tabellennamen per Makro ergänzen

12.11.2014 08:08:12

Hajo_Zi

und um ganz sicher zu gehen.

Option Explicit
Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In ThisWorkbook.Windows(1).SelectedSheets
If UCase(Left(WsTabelle.Name, 2)) = "KW" And _
Mid(WsTabelle.Name, Len(WsTabelle.Name) - 3, 1)  "_" And _
Not IsNumeric(Right(WsTabelle.Name, 2)) Then
WsTabelle.Name = WsTabelle.Name & "_14"
End If
Next WsTabelle
End Sub

Gruß Hajo

;