Tabelleneigenschaften - Nummer "Tabellex" ändern?

Forumthread: Tabelleneigenschaften - Nummer "Tabellex" ändern?

27.03.2009 01:17:35

Elias

Hallo Forum,
ich habe die Suche durchaus bemüht, aber vielleicht liegt es auch an der Uhrzeit, dass ich nichts gefunden habe. :-)
Meine Frage:
Ich bearbeite Dateien, die oft schon mehrere Jahre existieren und in denen derweil immer mal wieder Tabellen entfernt und hinzugefügt wurden.
Die Crux an der Sache: Excel benennt die Tabellen intern ja mit "Tabelle1", "Tabelle2", usw, ich habe hier u.a. "Tabelle221", die Datei hat aber nur 15 Tabellen.
Nun habe ich den famosen Gedanken gehabt, die Tabellen systematisch umzubenennen, aber Excel verweigert mir das hartnäckig.
Geht das überhaupt und wenn ja wie?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabelleneigenschaften - Nummer "Tabellex" ändern?

27.03.2009 07:55:34

Jens
ich glaub schon ...

27.03.2009 08:57:53

Matthias
AW: ich glaub schon ...

27.03.2009 09:01:28

Jens
AW: ich glaub schon ...

27.03.2009 09:16:19

Elias
AW: ich glaub schon ...

27.03.2009 10:40:05

Nepumuk

AW: Tabelleneigenschaften - Nummer "Tabellex" ändern?

27.03.2009 07:55:34

Jens

Hallo Elias
Der interne Name lässt sich m.W. nicht ändern.
Statt dessen kannst Du aber auch den Index benutzen: sheets(1) für das erste Blatt, sheets(2) für das 2. Blatt, etc.....
Gruß aus dem Sauerland
Jens

ich glaub schon ...

27.03.2009 08:57:53

Matthias

Hallo
schon probiert:
Userbild

Gruß Matthias

AW: ich glaub schon ...

27.03.2009 09:01:28

Jens

Hi Matthias
Stimmt. Hast recht :o)
In einer aktiven Mappe ging es eben bei mir nicht. Jetzt hab ich eine neue Mappe benutzt, und da funkt es jetzt auch.
Gruß aus dem Sauerland
Jens

AW: ich glaub schon ...

27.03.2009 09:16:19

Elias

Tatsache, im VBA gehts.
Ich habe es im Arbeitsblatt direkt probiert (Entwurfsmodus - Eigenschaften), da gings nicht..
Und wieder was gelernt...
Vielen Dank.

AW: ich glaub schon ...

27.03.2009 10:40:05

Nepumuk

Hallo,
wenn du die internen Namen gleich den Excelnamen machen willst, dann geht das auch per Makro:

Public Sub Beispiel()
    Dim objComponents As Object, objSheet As Object
    Dim intCounter As Integer
    For Each objComponents In ThisWorkbook.VBProject.VBComponents
        If objComponents.Type = 100 Then
            If objComponents.Name <> ThisWorkbook.CodeName Then
                intCounter = intCounter + 1
                objComponents.Name = "X" & CStr(intCounter)
            End If
        End If
    Next
    For Each objComponents In ThisWorkbook.VBProject.VBComponents
        If objComponents.Type = 100 Then
            If objComponents.Name <> ThisWorkbook.CodeName Then
                For Each objSheet In ThisWorkbook.Sheets
                    If objSheet.CodeName = objComponents.Name Then
                        objComponents.Name = objSheet.Name
                        Exit For
                    End If
                Next
            End If
        End If
    Next
End Sub

Gruß
Nepumuk

Infobox / Tutorial

Tabelleneigenschaften in Excel: So änderst du die Nummer einer Tabelle

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne deine Excel-Datei: Stelle sicher, dass du die Datei mit den Tabellen geöffnet hast, die du umbenennen möchtest.
Wechsle zum VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (deinDateiname)", wähle "Einfügen" und dann "Modul".

Kopiere den VBA-Code: Füge den folgenden Code in das Modul ein:

Public Sub Beispiel()
   Dim objComponents As Object
   Dim objSheet As Object
   Dim intCounter As Integer

   For Each objComponents In ThisWorkbook.VBProject.VBComponents
       If objComponents.Type = 100 Then
           If objComponents.Name <> ThisWorkbook.CodeName Then
               intCounter = intCounter + 1
               objComponents.Name = "Tabelle" & CStr(intCounter)
           End If
       End If
   Next

   For Each objComponents In ThisWorkbook.VBProject.VBComponents
       If objComponents.Type = 100 Then
           If objComponents.Name <> ThisWorkbook.CodeName Then
               For Each objSheet In ThisWorkbook.Sheets
                   If objSheet.CodeName = objComponents.Name Then
                       objComponents.Name = objSheet.Name
                       Exit For
                   End If
               Next
           End If
       End If
   Next
End Sub

Führe das Makro aus: Gehe zurück zu Excel, drücke ALT + F8, wähle das Makro "Beispiel" aus und klicke auf "Ausführen".
Überprüfe die Tabellennamen: Deine Tabellen sollten jetzt entsprechend umbenannt sein.

Häufige Fehler und Lösungen

Fehler: "Das Makro kann nicht ausgeführt werden."
Lösung: Stelle sicher, dass Makros in deinen Excel-Einstellungen aktiviert sind. Gehe zu "Datei" > "Optionen" > "Trust Center" > "Einstellungen für das Trust Center" und aktiviere die Makros.
Fehler: Interne Namen wurden nicht geändert.
Lösung: Achte darauf, dass du das Makro in einer neuen Arbeitsmappe ausführst, da es in aktiven Mappen manchmal nicht funktioniert.

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch die Excel-Blattgröße ändern und die Sichtbarkeit der Tabellen anpassen, um die Übersichtlichkeit zu verbessern. Verwende dazu die Funktion "Blatt umbenennen" und passe die Tabelleneigenschaften manuell an.

Praktische Beispiele

Einen neuen Tabellennamen einfügen: Wenn du eine neue Tabelle hinzufügst, nenne sie direkt beim Erstellen, um Verwirrung zu vermeiden.
Verwendung von VBA für mehrere Tabellen: Wenn du viele Tabellen hast, hilft dir das oben angegebene VBA-Skript, alle internen Namen gleichzeitig zu ändern.

Tipps für Profis

Überlege dir eine einheitliche Namenskonvention für deine Tabellen, um die Navigation in großen Dateien zu erleichtern.
Nutze VBA, um repetitive Aufgaben zu automatisieren, besonders wenn du oft mit Tabelleneigenschaften in Excel arbeitest.
Halte deine Makros organisiert und dokumentiere, was sie tun, damit du und andere Benutzer sie leichter verstehen können.

FAQ: Häufige Fragen

1. Kann ich die internen Namen der Tabellen auch manuell ändern?
Nein, die internen Namen in Excel sind nicht direkt änderbar. Du kannst jedoch VBA verwenden, um die Namen systematisch anzupassen.

2. Was ist der Unterschied zwischen internen und sichtbaren Tabellennamen?
Interne Namen sind die Namen, die Excel für die Verarbeitung verwendet, während sichtbare Namen die sind, die du in der Benutzeroberfläche siehst. Die Sichtbaren Namen kannst du manuell ändern.

3. Ist das VBA-Skript in allen Excel-Versionen anwendbar?
Ja, das Skript sollte in allen modernen Excel-Versionen funktionieren, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)

Tabelleneigenschaften - Nummer "Tabellex" ändern?

Forumthread: Tabelleneigenschaften - Nummer "Tabellex" ändern?

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

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Tabelleneigenschaften in Excel: So änderst du die Nummer einer Tabelle

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread