Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Tabellenblattname mehr als 31 Zeichen

Tabellenblattname mehr als 31 Zeichen
Roger
Guten Tag,
Ich vergebe einen Blattnamen bestehend aus zwei Zellen.
ActiveSheet.Name = Range("h2").Value & " " & Range("c2").Value
Leider kann es vorkommen, dass es zusammen mehr als 31 Zeichen gibt und nicht korrekt funktioniert.
Wie kann ich diesen Namen auf 31 Zeichen kürzen.
Bitte um Hilfe. Danke Roger
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabellenblattname mehr als 31 Zeichen
21.02.2012 11:57:16
Josef

Hallo Roger,
ActiveSheet.Name = Left(Range("h2").Value & " " & Range("c2").Value, 31)


« Gruß Sepp »

Anzeige
AW: Tabellenblattname mehr als 31 Zeichen
21.02.2012 11:57:59
ing.grohn
Hallo Roger,
versuch mal:

DatName=Range("h2").Value & " " & Range("c2").Value
If Len(DatName)>31 Then
DatName=Left(Datname,31)
End If
ActiveSheet.Name =  DatName

Mit freundlichen Grüßen
ALbrecht
AW: Tabellenblattname mehr als 31 Zeichen
21.02.2012 12:03:50
Roger
Super, Besten Dank funktionieren beide einwandfrei.
Gruss roger
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblattnamen in Excel auf die maximale Anzahl von 31 Zeichen kürzen


Schritt-für-Schritt-Anleitung

Wenn Du einen Tabellenblattnamen in Excel vergeben möchtest, der aus zwei Zellen besteht, und dieser Name mehr als 31 Zeichen hat, kannst Du ihn mit VBA auf die maximale Anzahl von 31 Zeichen kürzen. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und schalte in den VBA-Editor (Alt + F11).

  2. Füge ein neues Modul hinzu (Rechtsklick auf "VBAProject" > Einfügen > Modul).

  3. Kopiere den folgenden Code in das Modul:

    Sub BlattnameKuerzen()
       Dim DatName As String
       DatName = Range("h2").Value & " " & Range("c2").Value
       If Len(DatName) > 31 Then
           DatName = Left(DatName, 31)
       End If
       ActiveSheet.Name = DatName
    End Sub
  4. Schließe den VBA-Editor und führe das Makro aus (Alt + F8, dann das Makro auswählen).

Dieser Code überprüft die Länge des neuen Tabellennamens und kürzt ihn gegebenenfalls, sodass er den Anforderungen von Excel entspricht.


Häufige Fehler und Lösungen

  • Fehler: "Der Name ist ungültig"

    • Lösung: Überprüfe, ob der Tabellenblattname unerlaubte Zeichen enthält (z. B. /, \, ?, *, [ oder ]). Diese dürfen nicht im Namen verwendet werden.
  • Fehler: Name länger als 31 Zeichen

    • Lösung: Stelle sicher, dass der VBA-Code korrekt implementiert ist und die Zeichenlänge des Tabellennamens überprüft wird.

Alternative Methoden

Falls Du keinen VBA-Code verwenden möchtest, kannst Du auch die folgenden Methoden ausprobieren:

  1. Manuelle Kürzung:

    • Ändere den Inhalt der Zellen H2 und C2 manuell, sodass die Kombination weniger als 31 Zeichen hat.
  2. Verwenden von Excel-Formeln:

    • In einer neuen Zelle kannst Du die Formel verwenden:
      =LINKS(H2 & " " & C2; 31)
    • Diese Formel zeigt den gekürzten Namen an, den Du dann manuell als Tabellenblattnamen verwenden kannst.

Praktische Beispiele

Hier sind einige Beispiele zur besseren Veranschaulichung:

  • Beispiel 1:

    • Zelle H2: "Januar 2023"
    • Zelle C2: "Umsatzbericht"
    • Ergebnis: "Januar 2023 Umsatzbe" (31 Zeichen)
  • Beispiel 2:

    • Zelle H2: "Q1"
    • Zelle C2: "Finanzbericht 2023"
    • Ergebnis: "Q1 Finanzbericht 2023" (29 Zeichen, bleibt unverändert)

Tipps für Profis

  • Dynamische Namensvergabe:

    • Du kannst den VBA-Code anpassen, um den Namen automatisch zu aktualisieren, wenn sich die Werte in den Zellen ändern.
  • Verwendung von Platzhaltern:

    • Wenn Du häufig Blätter mit ähnlichen Namen erstellst, kannst Du Platzhalter nutzen, um die Namen effizient zu verwalten.
  • Dokumentation:

    • Halte eine Liste der vergebenen Blattnamen, um die maximale Anzahl der Blätter in Deiner Excel-Datei zu überwachen, da die maximale Anzahl an Tabellenblättern in Excel 255 beträgt.

FAQ: Häufige Fragen

1. Wie kann ich die maximale Anzahl von Blättern in Excel erhöhen? Die maximale Anzahl von Tabellenblättern in Excel ist standardmäßig auf 255 festgelegt. Dies kann nicht geändert werden, aber Du kannst nicht benötigte Blätter löschen, um Platz zu schaffen.

2. Gibt es eine Möglichkeit, Tabellennamen automatisch zu generieren? Ja, Du kannst VBA verwenden, um Tabellennamen automatisch basierend auf bestimmten Kriterien oder Zellen zu generieren. Das macht die Verwaltung Deiner Excel-Datei einfacher.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige