Neues Tabellenblatt umbennen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Neues Tabellenblatt umbennen von: Andreas Neuleitner
Geschrieben am: 06.02.2005 22:24:32

Hallo
Wer kann mir helfen ?
Brauche ein Makro mit dem ich ein neues Tabellenblatt umbennen kann.
Das neue Tabellenblatt sollte nach den Eintrag einer Zelle (z.B. B3) aus einem anderen Arbeitblatt benannt werden.


Gruß Andreas

Bild


Betrifft: AW: Neues Tabellenblatt umbennen von: Ulf
Geschrieben am: 06.02.2005 22:27:34

Wird das Blatt mit VBA oder interaktiv erzeugt?

Ulf


Bild


Betrifft: AW: Neues Tabellenblatt umbennen von: Andreas Neuleitner
Geschrieben am: 06.02.2005 22:41:56

Das blatt wird mit VBA erzeugt.


Bild


Betrifft: AW: Neues Tabellenblatt umbennen von: Ulf
Geschrieben am: 06.02.2005 22:48:05

Option Explicit
Sub neues_Blatt()
Dim ws As Worksheet, ns As Worksheet, wsn As String
wsn = Sheets("anderesBlatt").[b3]
For Each ws In Worksheets
  If ws.Name = wsn Then
    MsgBox "Das Blatt " & wsn & " ist schon vorhanden!"
    Exit Sub
  End If
Next
Set ns = Worksheets.Add(after:=Sheets(Sheets.Count))
ns.Name = wsn
Set ns = Nothing
End Sub


Ulf


Bild


Betrifft: AW: Neues Tabellenblatt umbennen von: Andreas Neuleitner
Geschrieben am: 06.02.2005 23:03:53

Hallo Ulf

läuft besten ! Danke

Habe anscheinend den Wald von lauter Bäumen nicht gesehen !?

Andreas


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Neues Tabellenblatt umbennen"