Thema: Tabellenblattnamen der VBE-Projekte ändern

Home

Gruppe

VBE

Problem

Wenn ich ein Tabellenblatt mit Namen "Tabelle1" kopiere, wird für das kopierte Blatt im Projektexplorer der Entwicklungsumgebung der Name "Tabelle1" angelegt. Wie kann ich diesen Namen per VBA-Makro korrigieren?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub BlattKopieren()
   Dim wks As Worksheet
   Dim sName As String
   Worksheets(1).Copy after:=Worksheets(Worksheets.Count)
   Set wks = ActiveSheet
   sName = "NewTable" & Worksheets.Count - 2
   ActiveSheet.Name = sName
   ThisWorkbook.VBProject.VBComponents(wks.CodeName) _
      .Properties("_codename") = sName
   MsgBox "Blatt wurde kopiert!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen VBE und Tabelle

Hintergrundfarbe in Tabellen	Marko für unterschiedliche Tabellenblätter
Kopieren Spalte aus AutofilterTabelle	ShowModal Userform - Aktives Tabellenblatt
Mehrere Tabellenblätter zusammenführen	Spaltenname einer intelligenten Tabelle ändern?
Tabelle generieren	Einzelne Spalten aus Tabelle Laden
Mögliche Reihenfolgen per VBA in Tabelle eintragen	Tabellenblätter nach Liste erstellen
Letzte Zeile in intelligenter Tabelle	ADODB Daten aus verknüpfter Exceltabelle löschen
Zwischensummen innehralb einer Tabelle	Datenaustausch zwischen zwei Tabellenblättern
Intelligente Tabelle - Auf Zelle zugreifen von and	Tabelle per Formeln um 90 Grad drehen
Formel automatisch im Tabellenblatt mit nach unten	Mit E-Mailadressen Daten aus einer Tabelle auslese
Zeile in Tabelle1 in erste leere Zeile inTabelle2	Power Query - Tabellen untereinander anfügen
Zugriff auf intelligente Tabelle, wo Wert gleich	letzte Zeile in Tabellenblatt übertragen
Formel in definierten Namen unabhängig von Tabelle	Namen der Tabellen kopieren
Leere Zeilen in Pivottabelle ausblenden	Userforms - Tabelle auslesen
Datensatztabelle neu anordnen	Array in Tabelle kopieren, Verlust von Format
Daten aus Tabelle in Userform	Option Button Wert aus Tabelle (x)
Tabellenblätter	Sporttabelle sortieren
Tabellenblätter vergleichen	Text zurückgeben über mehrere Tabellenblätter
Datensätze aus mehreren Tabellenblättern	Datumstabelle erstellen
Tarif aus 2 Tabellen in bezug nach Zone	Suche in Tabelle
VBA - Neues Tabellenblatt soll altes kopieren	Zeilenbereich auf Tabelle übertragen
Tabellenblatt mit Passwort schützen - kein ausbl.	Überschneidung in Tabelle hervorheben
Zeilen in anderes Tabellenblatt kopieren	Werte in Tabelle
Tabellenblatt per Mail	Tabellenblatt als pdf per mail
Tabellen - Zellen - Formatieren -	Gefilterte Tabelle kopieren
hyperling in Pivot-Tabelle	Pivot-Tabelle - Gruppierung nicht mehr möglich