Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Namen von Sheets an einer bestimmten Stelle ändern





Frage

Hallo, ich möchte gern bei 1000 Sheets den Namen ändern und dafür ein Makro schreine brauche aber Hilfe bei der Syntax!! gruss

Antwort 1 von Hajo_Zi

HAllo Namensloser,

Option Explicit

Private Sub Aufheben()
Dim WsTabelle As Worksheet
Dim LoI As Long
For Each WsTabelle In Sheets
WsTabelle.Name = LoI
LoI = LoI + 1
Next WsTabelle
End Sub

Gruß Hajo

Antwort 2 von smergol

hallo hajo,
mein name ist smergol!
ich hab mich vielleicht ein bischen missverständlich
ausgedrück, ich brauch hilfe bei einer funktion
die den sheetnamen an einer bestimmten Stelle
ändert - d.h. -1 in -2 wandelt

vielleicht fällt dir dazu was ein

danke und gruss
smergol

Antwort 3 von Hajo_Zi

Hallo Smergol,

ich habe Extra im Internatinalen Vornamenmbuch geschaut und auch bei Wikipedia "Smergol" wurde nicht gefunden.
Option Explicit

Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.Name = Replace(WsTabelle.Name, "-1", "-2")
Next WsTabelle
End Sub

Gruß Hajo

Antwort 4 von smergol

hallo hajo,
smergol ist mein nickname - ist eine figur im herr der ringe
hut ab das tool ist toll - gewusst wie eben
in dem zusammenhang ist mir grad noch was eingefallen
ich muss ja jetzt die namen der makros auch nachändern
gibts da auch ne möglichkeit

danke und gruss
smergol

Antwort 5 von Hajo_Zi

Hallo smergol,

also hatte ich recht mit meiner ersten Anrede. Im Forum gilt allgemein das Du und da rede ich jemand schon mit dem Vornamen an.
Warum müssen die Namen der Makros geändert werden? Ich vermute mal Du möchtest den Code ändern der auf die Tabelle zugreift?
Da kann ich Dir nicht helfen.

Gruß Hajo