Office: Tabellenblattname kürzen

Hallo Profis,

ich habe einen Code, der eine vorhandene Tabelle in eine neue Tabelle kopiert.
Anschließend wird die Tabelle umbenannt. Der Text dafür steht in Zelle A1.
Das funktioniert aber nur, wenn der Text nicht zu lang ist, sonst gibt es eine Fehlermeldung.
Daher bräuchte ich nun einen Code, der den Tabellennamen auf die maximal zulässige Länge kürzt.

Hier mein derzeitiger Code:
Code:

Vorab schon einmal vielen Dank.
Gruß manega

:)

 

Moin
Die Hoechstzeichenanzahl ist 31.
=Left(Range("a1"), 31)
gruss hary

 

Hi,

du solltest auch prüfen, ob nicht erlaubte Zeichen enthlten sind und ob es das Tabellenblatt bereits gibt - hier mal ein Code, wie man komplett alles prüfen könnte:

Code:

 

Hallo Hary, Hallo Karin.

Vielen Dank für eure Hilfe. Hary's Code funktioniert.
Der von Karin auch, bis auf eine Kleinigkeit.
Das mit der Überprüfung ist eine gute Sache, aber bei der Überprüfung auf eine bereits vorhandene Tabelle kommt eine Meldung mit Laufzeitfehler 1004 und "kann einem Blatt keinen Namen geben wie einem anderen Blatt....".
Auch bei der Überprüfung auf ungültige Zeichen kommt eine Meldung mit Laufzeitfehler 1004 und "Der eingegebene Name für ein Blatt oder Diagramm ist ungültig. Stellen sie folgendes sicher:......"

Gruß
manega

 

Hi,

kann ich nicht nachvollziehen, was die bereits vorhandene Tabelle betriff.

Bezüglich der Überprüfung auf ungültige Zeichen gibt es einen Fehler im Code, der durch die Forensoftware verursacht wird: im Array muss anstelle "" an der 5. Position ein Backslash in Anführungszeichen stehen - die Forensoftware entfernt leider seit einiger Zeit alle Backslashzeichen aus Beiträgen.

 

Hallo Karin,

ich habe deinen Code noch einmal getestet. Ich habe einen Doppelpunkt im Dateinamen eingefügt. Dabei steigt der Code aus. Auch ein nachträgliches Einfügen von ":" im Array bringt nichts. Aber das wäre nicht so schlimm.
Allerdings hängt sich der Code nach wie vor bei einer bereits vorhandenen Tabelle auf. Das aber nur, wenn der Name gekürzt wurde!
Kann man da noch was machen?

Gruß
manega

 

Hi,

Ich meine nicht ":" (Doppelpunkt) sondern den Backslash (auf der ?-Taste)

Du hast Recht - die Prüfung auf bereits vorhanden muss nach Abschneiden eventueller überzähliger der Zeichen erfolgen (beachte, es fehlt wiederum der Backslash im Array):

Code:

 

Hallo Karin,

der Code funktioniert jetzt. Vielen Dank!

Das habe ich schon verstanden und auch gemacht. Ich habe aber zufällig einen Doppelpunkt im auszulesenden Dateinamen eingefügt. (ist ja auch ein ungültiges Zeichen) Anschließend auch im Array ( ":" ). Trotzdem bricht der Code ab!

Gruß
manega

 

Hast Du auch die Schleife erweitert?

Aus

Code:

muss werden

Code:

wenn Du das Array erweiterst

Besser wäre vielleicht das direkt dynamisch zu halten:
Code:

 

Hallo Ralf,

hab vielen Dank für deinen Hinweis!
Das wusste ich nicht. Ich dachte einfach etwas hinzufügen und fertig.
Jetzt funktioniert es auch!

Gruß
manega