Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Tabellennamen beim erstellen vergeben

Forumthread: Tabellennamen beim erstellen vergeben

Tabellennamen beim erstellen vergeben
22.04.2007 13:30:00
Universal
Hallo liebe VBA`ler,
der Betreff sagt eigentlich schon alles. :) Ich möchte, wenn ich mit dem Befehl
ActiveWorkbook.Sheets.Add
ein neues Tabellenblatt erstelle, gleich den Namen vergeben. Somit würde ich mir ein Umbennen sparen.
Ist dies möglich?
vielen Dank!
Gruß
Uni

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellennamen beim erstellen vergeben
22.04.2007 13:51:56
Oberschlumpf
Hi
Versuch mal so:
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "deinName"
Konnte ich helfen?
Ciao
Thorsten

AW: Tabellennamen beim erstellen vergeben
22.04.2007 13:57:00
Universal
Hi Thorsten,
klar, er wählt die "geaddete" Tabelle ja gleich aus. Danke!
Gruß
Uni

Probier mal ...
22.04.2007 14:39:00
Matthias
Hallo
ein weiterer Vorschlag ;o)
Code in ein Modul
Option Explicit

Sub neuesBlatt()
Dim x As Long
x = Worksheets.Count
On Error GoTo Fehler
Dim Frage As String
Frage = InputBox("Wie soll das neue Blatt heißen?", "Namensvergabe neues Tabellenblatt", " _
Tabelle" & x + 1)
If Frage  "" Then ActiveWorkbook.Sheets.Add.Name = Frage
End
Fehler:
Application.DisplayAlerts = False
ActiveSheet.Delete
MsgBox "Fehler, evtl. ist der Blatt-Name ( " & Frage & " ) schon vergeben"
Application.DisplayAlerts = True
End Sub


Gruß Matthias

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige