Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Neues Tabellenblatt umbennen

Forumthread: Neues Tabellenblatt umbennen

Neues Tabellenblatt umbennen
06.02.2005 22: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Neues Tabellenblatt umbennen
Ulf
Wird das Blatt mit VBA oder interaktiv erzeugt?
Ulf
AW: Neues Tabellenblatt umbennen
06.02.2005 22: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
Anzeige
AW: Neues Tabellenblatt umbennen
Andreas
Hallo Ulf
läuft besten ! Danke
Habe anscheinend den Wald von lauter Bäumen nicht gesehen !?
Andreas
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige