Makro Tabellenblattname

Forumthread: Makro Tabellenblattname

02.09.2003 09:15:54

junny

Hey Leute,
Habe einen Code bei dem ich Tabellenblätter kopiere und ans Ende einfüge, danach wieder zum ersten Blatt wechsle. Momentan ist der neue Blattname +1
Was ich gerne hätte: Meine Blattnamen sind A, B, ... deswegen sollte der neue Blattname C, D, ... sein nicht 3,4,..

Mein derzeitiger Code


Sub CopySheet()
Sheets("A").Select
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = (ActiveWorkbook.Worksheets.Count + 1)
Sheets("A").Select
End Sub

Danke, gruss junny

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro Tabellenblattname

02.09.2003 09:30:30

Andreas Walter
AW: Makro Tabellenblattname

02.09.2003 09:49:10

junny
AW: Makro Tabellenblattname

02.09.2003 10:45:24

Andreas Walter
AW: Makro Tabellenblattname

02.09.2003 11:27:41

junny

AW: Makro Tabellenblattname

02.09.2003 09:30:30

Andreas Walter

ActiveSheet.Name = chr(64 + ActiveWorkbook.Worksheets.Count + 1)

A=65
B=66
usw.

Geht nur bis Z

AW: Makro Tabellenblattname

02.09.2003 09:49:10

junny

Hallo Andreas,erstmal Danke!
habe aber noch folgendes Problem, Laufzeitfehler 1004 kein gültiger Blattname!
Mein Code sieht jetzt so aus:


Sub CopySheet()
Sheets("A").Select
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Chr(64 + ActiveWorkbook.Worksheets.Count + 1)
A = 65
B = 66
Sheets("A").Select
End Sub

Hab da wahrscheinlich noch was falsches, gruss junny

AW: Makro Tabellenblattname

02.09.2003 10:45:24

Andreas Walter


Sub CopySheet()
Sheets("A").Select
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Chr(64 + ActiveWorkbook.Worksheets.Count + 1)
Sheets("A").Select
End Sub

Wäre richtig.
Ich habe
A=65
B=66
usw.
geschrieben, damit Du verstehst, warum es funktioniert.
Der Buchstabe A kann entweder als "A" oder als CHR(65) angegeben werden
Beispiel
ActiveSheet.Name ="C"
und
ActiveSheet.Name =CHR(67)
sind identisch

Dieses geht nur bei max. 26 Tabellen
A,b,c,...Z

Wieviele Tabellenblätte hast Du
Welcher Befehl bringt die Meldung
Probier mal


Sub CopySheet()
Sheets("A").Select
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
msgbox Chr(64 + ActiveWorkbook.Worksheets.Count + 1)
ActiveSheet.Name = Chr(64 + ActiveWorkbook.Worksheets.Count + 1)
Sheets("A").Select
End Sub

AW: Makro Tabellenblattname

02.09.2003 11:27:41

junny

Danke Andreas!! klappt

Beliebteste Forumthreads (12 Monate)

Forumthread: Makro Tabellenblattname

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread