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

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

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
AW: Neues Tabellenblatt umbennen
Andreas
Hallo Ulf
läuft besten ! Danke
Habe anscheinend den Wald von lauter Bäumen nicht gesehen !?
Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige