Alle Blatter auf einmal umbenennen

Heinz Bucher

unread,

Jan 14, 2002, 10:17:53 AM1/14/02

to

Grüß Euch miteinander!

Wie kann man bei Excel 97 alle Blätter (12 für ein Jahr) auf einmal
umbenennen? Von 2001 in 2002.

Vielen Dank für Eure freundliche Hilfe!

Heinz

D.Schmerse

unread,

Jan 14, 2002, 10:42:17 AM1/14/02

to

Hallo
versuchs doch mal mit Bearbeiten Ersetzen

Gruß Daniel

Heinz Bucher <ark...@my-mail.ch> schrieb in im Newsbeitrag:
uIsz47QnBHA.1964@tkmsftngp07...

Heinz Bucher

unread,

Jan 14, 2002, 10:52:59 AM1/14/02

to

Nö!?

CU - Heinz

"D.Schmerse" <d.m....@t-online.de> schrieb im Newsbeitrag
news:#MaxhIRnBHA.2408@tkmsftngp04...

Monika Weber

unread,

Jan 14, 2002, 12:20:51 PM1/14/02

to

Hallo Heinz

Vielleicht hilft dir dieser Lösungsansatz weiter:

Sub Umbenennen()
Dim i As Long
For i = 1 To Worksheets.Count
Worksheets(i).Name = "Tabelle" & i & " 2002"
Next i
End Sub

HTH

Liebs Grüessli
Monika

www.jumper.ch

>-----Originalnachricht-----

>.
>

Heinz Bucher

unread,

Jan 15, 2002, 12:24:35 AM1/15/02

to

Grüezi Monika,

Superprofi, dass ich das verstehe, bin ich mit Excel nicht :-). Trotzdem
danke für Deine Mühe!

Schönen Tag - Heinz

"Monika Weber" <mon...@jumper.ch> schrieb im Newsbeitrag
news:992b01c19d1f$d0d45d50$36ef2ecf@tkmsftngxa12...

Thomas Ramel

unread,

Jan 15, 2002, 12:47:06 AM1/15/02

to

Grüezi Heinz

Heinz Bucher schrieb:

>
> Grüezi Monika,
>
> Superprofi, dass ich das verstehe, bin ich mit Excel nicht :-). Trotzdem
> danke für Deine Mühe!

Monika hat Dir einen VBA-Code geschrieben, der die Blätter umbenennt.
Dieser muss als Makro in der Arbeitsmappe gespeichert werden und kann
dann auferufen werden, um die Anpassungen vorzunehmen.
VBA ist ein mächtiges Werkzeug; mit dessen Hilfe es (fast) nichts gibt,
das man in Excel _nicht_ tun kann.

Wenn es Dich näher interessiert, melde Dich bitte wieder, dann kannst Du
eine erste Anleitung zum eeinbauen des makros erhalten.

--
Mit freundlichen Grüssen

Thomas Ramel
http://www.4853.ch/Schlesinger
http://www.swissgeo.ch/mapit.php3?www=http//www.4853.ch/Schlesinger&swissgeo_id=241718

Monika Weber

unread,

Jan 15, 2002, 7:19:28 AM1/15/02

to

Hallo Heinz

Bitte entschuldige, dass ich dich mit dem VBA-Code
überrumpelt habe!

Wenn du alle Tabellenblätter auf einmal umbenennen
willst, kriegst du das nur mit VBA hin. Ansonsten
musst du auf dem herkömmlichen Weg jedes Tabellenblatt
umgenennen (Rechtsklick auf den Tabellenreiter und
"Umbenennen") auswählen.

Wenn du diesen Code verwenden willst, dann gehe so vor:
- Kopiere den Code, den ich dir geschickt habe in die
Zwischenablage (Markieren + Ctrl + C)
- Wechsle dann in die VBA-Umgebung (Alt + F11)
- Füge ein Modul ein "Einfügen | Modul"
- Füge den Code aus der Zwischenablage ein (Ctrl + V)
- Dann kannst du die VBA-Umgebung wieder verlassen
- Nun kannst du die Prozedur starten, indem du auf den
Menüpunkt "Extras | Makro | Makros" klickst und
die Prozedur laufen lässt.

Ich hoffe, dass dir damit geholfen ist.

Liebs Grüessli
Monika

>-----Originalnachricht-----

>.
>

Heinz Bucher

unread,

Jan 16, 2002, 12:47:40 AM1/16/02

to

"Monika Weber" <mon...@jumper.ch> schrieb im Newsbeitrag

news:a4b601c19dbe$e1119ee0$3bef2ecf@TKMSFTNGXA10...
Hallo Heinz

Wenn du diesen Code verwenden willst .. [usw.]

Danke Monika, am Wochenende. CU - Heinz

Heinz Bucher

unread,

Jan 16, 2002, 7:26:24 AM1/16/02

to

"Heinz Bucher" <ark...@my-mail.ch> schrieb im Newsbeitrag
news:OmMtYFlnBHA.2088@tkmsftngp02...

Hi Monika, es hat mir keine Ruhe gelassen :-) Dein hilfreicher Tipp war
extra Klasse! By - Heinz