Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellenblatt benennen und ans Ende stellen

Betrifft: Tabellenblatt benennen und ans Ende stellen von: Andi
Geschrieben am: 12.08.2004 07:16:37

Morgen,

hätte da mal ne Frage. Wie kann ich das verbinden?

Worksheets.Add.Name = Sheets("Mitarbeiter").Cells(z, 3).Value
und
Sheets.Add After:=Sheets(Worksheets.Count)

Ich möchte ein Blatt neu benennen und ans Ende stellen.

Danke für jede Hilfe.

Gruß Andi

  


Betrifft: AW: Tabellenblatt benennen und ans Ende stellen von: WernerB.
Geschrieben am: 12.08.2004 07:33:05

Hallo Andi,

Wie gefällt Dir das?
Sub Andi()
Dim z As Long
    z = 10
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Sheets("Mitarbeiter").Cells(z, 3).Value
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !


  


Betrifft: AW: Tabellenblatt benennen und ans Ende stellen von: Andi
Geschrieben am: 12.08.2004 07:37:24

Das gefällt mir sehr gut!

Danke.

Gruß Andi


 

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt benennen und ans Ende stellen"