Office: Namen der Tabellenblätter auf 8 Stellen kürzen

Hallo,

wie kann ich es schaffen dass mir ein Makro automatisch den Namen des aktivierten Sheets kürzt, und zwar auf eine fest vorgegebene Anzahl stellen?
Gibt es darüberhinaus einen Befehl, mit dem ich sagen kann dass alle Excel-Dateien eines best. Ordner nacheinender geöffnet werden sollen und diese Operation ausgeführt wird?
Vielen Dank!

:)

 

hallo, mattlack.
um zunächst mal die sheetnames des aktuellen wokrbooks zu kürzen, kannst du folgenden code verwenden.
Code:

wenn du das für mehrere "arbeitsbücher" eines ordners machen willst, würde ich via des fso draufzugreifen, den ordner auslesen, und jede datei - bspw mit endung .xls - öffnen, und für das jeweilige workbook obigen schnipsel ausführen.
u.U. würd ich noch screenupdateing auf false stellen, sonst flackert´s.
man kann die dateien aber auch glaub ich, öffnen und bearbeiten, ohne eine excel-instanz zu öffnen. da bin ich mir aber nicht sicher, vllt weiß da einer von den excel-pro´s mehr zu zu sagen....*wink.gif*
liebe grüsse,
rayek

 

Hallo,

das kannst du so bewerkstelligen

Code:

@Rayek: Sorry habe deine Lösung zu spät gesehen.

 

Hallo Mattlack,

Ich weiss nicht wie gut Deine VBA Kentnisse sind.
Auf alle Fälle wäre ich vorsichtig mit dem Code von Rayek.
Es gibt keine Fehlerroutine darin und wenn Du z.B. eine Arbeitsmappe mit 2 Standard-Diagramm-Sheets (Diagramm1 und Diagramm2) hast, wird er kläglich scheitern, bzw. Deine Arbeitsmappe in einem 'inkonsistenten' Zustand hinterlassen.

 

rehi@all,
stimmt hansueli hat vollkommen recht,
da hab ich überhaupt nicht dran gedacht...*rolleyes.gif*
dann ebend so*wink.gif* :
Code:

jetzt wird noch entsprechend reagiert, wenn die anzahl der tabellenblätter im zweistelligen bereich liegen...
so dürfte das jetz aber funzen...man will sich ja nicht lumpen lassen*wink.gif*

 

So, hier mal der Code um die Namen in allen Excel-Dateien in einem Verzeichnis (Optional auch in allen Unterverzeichnissen) umzubenennen.

Code:

 

Wow, danke soweit schonmal für die Lösungsvorschläge.
Jetzt habe ich aber noch ein etwas anderes Problem.
Alle Dateien in dem Ordner habe ich festgestellt habe doch immer den gleichen Datenblatt-Namen, bspw. "Tabelle1".
Was ich nun gerne hätte ist dass der Name der Datei als Datenblatt Name genommen wird, jedoch gekürzt auf 8 Stellen. Wenn es einfacher ist, vorab den Dateinamen auf 8 Stellen zu kürzen, dann ist das auch ok! Bzw. als erster Schritt würde mir das fast schon reichen!.
Darüberhinaus würde ich gerne das Datenblatt jeder Tabelle (es gibt immer nur ein Datenblatt) samt neuem Namen in eine neue Arbeitsmappe schreiben, in der dann alle Datenblätter zusammengefasst sind.
Weiß jemand wie das funktionieren könnte?

 

Hallo nochmal,

habe nun eine andere Möglichkeit, anstelle der, dass ich den Dateinamen ändere.

Also mein "neues" Problem lautet nun wie folgt.

In einem bestimmten Ordner liegen 50ExcelDateien, die jeweils ein Sheet besitzen. Diese 50 Dateien, bzw. genau genommen die 50 Sheets, sollen in eine neue Mappe importiert werden.
Die Sheets sollen in der neuen Arbeitsmappe den Namen erhalten, der in ihrer jeweiligen Zelle C4 steht.
Die Dateien sollen der Reihe nach automatisch aus dem Ordner geöffnet werden und anschließend auch wieder geschlossen werden.
Vielen Dank schon einmal