Neues Tabellenblatt umbennen

Forumthread: Neues Tabellenblatt umbennen
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Neues Tabellenblatt umbennen

06.02.2005 23:24:32

Andreas

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Neues Tabellenblatt umbennen

Ulf
AW: Neues Tabellenblatt umbennen

06.02.2005 23:41:56

Andreas
AW: Neues Tabellenblatt umbennen

Ulf
AW: Neues Tabellenblatt umbennen

Andreas

AW: Neues Tabellenblatt umbennen

Ulf

Wird das Blatt mit VBA oder interaktiv erzeugt?
Ulf

AW: Neues Tabellenblatt umbennen

06.02.2005 23:41:56

Andreas

Das blatt wird mit VBA erzeugt.

AW: Neues Tabellenblatt umbennen

Ulf

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

AW: Neues Tabellenblatt umbennen

Andreas

Hallo Ulf
läuft besten ! Danke
Habe anscheinend den Wald von lauter Bäumen nicht gesehen !?
Andreas