Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Name von Tabellenblättern mit Schleife ändern

Name von Tabellenblättern mit Schleife ändern
11.12.2012 22:39:58
Tabellenblättern
Hallo zusammen,
ich versuche den Namen von Tabellenblättern mit einer Schleife zu ändern.
Das Problem das ich habe, ist das der erste Tabellenname eine Null enthält
Hier mein Versuch

Sub test()
For i = 0 To 5
Sheets(i).Name = "7" & i & "er"
Next i
End Sub

Jetzt ist natürlich das Problem das es keine Tabelle "0" gibt, was ja auch logisch ist.
Die Tabellennamen sollen später so aussehen
70er
71er
72er
73er
usw.
Grüße
alej

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name von Tabellenblättern mit Schleife ändern
11.12.2012 22:47:29
Tabellenblättern
'n Abend Alej!
Sub test2()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Name = CStr(69 + i) & "er"
Next i
End Sub
Gruß Gerd

AW: Name von Tabellenblättern mit Schleife ändern
11.12.2012 22:52:05
Tabellenblättern
@Gerd
das war's... Vielen viel Dank
Sheets.count benötige ich nicht, da die Anzahl der Tabellenblätter immer gleich ist.
Grüße
alej

AW: Name von Tabellenblättern mit Schleife ändern
12.12.2012 00:09:11
Tabellenblättern
Hi
alternativ ist natürlich auch sowas möglich:
  Sub test()
For i = 0 To 5
Sheets(i + 1).Name = "7" & i & "er"
Next i
End Sub
Gruß Daniel
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige