Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon smergol vom 03.01.2019, 09:34 Options
Namen von Sheets an einer bestimmten Stelle ändern
Hallo,
ich möchte gern bei 1000 Sheets den Namen ändern
und dafür ein Makro schreine brauche aber Hilfe bei der
Syntax!!
gruss
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 vom 03.01.2019, 10:07 Options
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
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 vom 03.01.2019, 10:52 Options
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
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 vom 03.01.2019, 11:46 Options
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
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 vom 03.01.2019, 11:58 Options
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
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 vom 03.01.2019, 12:15 Options
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
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
Ähnliche Themen
Tabellenblätter anhand einer Liste einfügen
Snuddler 27.06.2007 - 95 Hits -
Tabellenblätter nach Liste benennen und Daten einfügen
Snuddler 28.06.2007 - 85 Hits -
Name aus der Zelle als Blatt-Name übernehmen
Rasful 04.09.2007 - 90 Hits - 3 Antworten
Druck an einer bestimmten Stelle fortsetzen
Erik.W 14.02.2008 - 94 Hits - 3 Antworten
Alle Tabellen von Hoch- zu Querformat ändern.
DanteThomas 25.04.2008 - 49 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
