expertenaustausch > microsoft.* > microsoft.excel

Andreas H (06.02.2019, 10:20)
Hallo,
ich haben mehrere Excel Dateien mit vielen (<30) Tabellenblättern.
Diese Tabellenblätter will ich umbenennen, in dem ein Text z.B. Variante1, vor den jeweiligen Tabellennamen einfüge.
Hat jemand eine Idee.

Vielen Dank im Voraus.
Claus Busch (06.02.2019, 10:25)
Hallo Andreas,

Am Wed, 6 Feb 2019 00:20:45 -0800 (PST) schrieb Andreas H:

> ich haben mehrere Excel Dateien mit vielen (<30) Tabellenblättern.
> Diese Tabellenblätter will ich umbenennen, in dem ein Text z.B. Variante1, vor den jeweiligen Tabellennamen einfüge.


probiere:

Sub BlattName()
Dim wsh As Worksheet

For Each wsh In Worksheets
wsh.Name = "Variante1 " & wsh.Name
Next
End Sub

Mit freundlichen Grüßen
Claus
andreas.heil99 (06.02.2019, 10:33)
Hallo Claus,
Vielen Dank.
es hat geklappt.

Herzliche Grüße,
Andreas

Am Mittwoch, 6. Februar 2019 09:25:49 UTC+1 schrieb Claus Busch:
[..]
Ähnliche Themen