Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellennamen beim erstellen vergeben

Tabellennamen beim erstellen vergeben
22.04.2007 11: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

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellennamen beim erstellen vergeben
22.04.2007 11: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 11:57:00
Universal
Hi Thorsten,
klar, er wählt die "geaddete" Tabelle ja gleich aus. Danke!
Gruß
Uni

Probier mal ...
22.04.2007 12: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

25 Forumthreads zu ähnlichen Themen

Tabelle nach Namen durchsuchen -> Wert ausgeben
Aschi

Hallo,
ist es möglich mit einer Excel Funktion eine Tabelle nach gewissen Informationen zu durchlaufen und in einer anderen Zelle dann einen entsprechenden Wert auszugeben?
Also z.B. ich habe eine Liste und in der Zelle E steht „1. FC Köln“, eine Zeile darunter steht in E „FC Bayern Mün...
02.12.2008 16:17:12
Thread-ID: 1029551
8 Beiträge
Anzeige
Tabellennamen per Makro ändern
Elmar

Hallo zusammen,
kann mir jemand zeigen, welchen Code ich in ein Makro einbauen muss, wenn der aktuelle Tabellenname ausgelesen werden und dann in einen neuen Tabellenamen "Ausbreitung" umbenannt werden soll. Mein Problem ist, dass die zu bearbeitende Datei immer in der ersten Tabelle unters...
02.12.2009 21:16:08
Thread-ID: 1121480
7 Beiträge
kopierte Tabelle Sheetname ändern
Peter

Guten Abend
Ich möchte das Sheet "Daten" duplizieren und dem Duplikat den Namen "Kopie" geben. Wie muss ich das anstellen?
Danke und gruss, Peter Sub Kopie() With ActiveWorkbook .Sheets("Daten").Copy after:=.Sheets("Daten") End With End Sub
04.02.2010 17:53:06
Thread-ID: 1135878
7 Beiträge
Anzeige
Mit Inputbox Tabellenname ändern
Thomas

Guten Morgen hier im Forum,
ich weis leider nicht weiter und bitte um Hilfe.
Ich möchte gerne mittels einer sich öffnenden Inputbox den Namen des aktuellen Tabellenblates ändern. Sehr gut wäre noch wenn der "alte" Name erscheinen könnte.
Wer kann mir bitte helfen.
Danke Gruß Tho...
18.01.2011 09:42:15
Thread-ID: 1196100
3 Beiträge
VBA: Tabellennamen ändern
Fritz_W

Hallo Forumsbesucher,
mit welchem Makro kann ich bei allen Tabellenblättern, die mit 1 enden um diesen Buchstaben kürzen.
Beispiele: Aus A1 wird A, aus B241 wird B24 usw.
Vielen Dank für Eure Unterstützung.
mfg
Fritz
19.10.2011 19:27:10
Thread-ID: 1234571
3 Beiträge
pivottabellennamen dynamisch ändern
Hewad

Sub Pivotnames_change() Dim wb As Workbook Dim ws As Worksheet Dim wsList As Worksheet Dim pt As PivotTable Dim lPT As Long On Error Resume Next Set wb = ActiveWorkbook Set wsList = Worksheets.Add With wsList .Range(.Cells(1, 1), .Cells(1, 4)).Value _ = Array("Sheet", "PivotTable", "Source Dat...
04.07.2014 11:27:53
Thread-ID: 1368925
9 Beiträge
Jeder Zelle einer Tabelle automatisch Namen geben
Barbara

Hallo
ich würde gerne jede Zelle einer Tabelle mit einem Namen versehen, der aus den Zellen der ersten Spalte und obersten Zeile zusammen gesetzt ist.
Unten ein Beispiel, das sich aber auf einen bestimmten Bereich bezieht, das ich in diesem Forum _
gefunden habe. Sub ErstelleNa...
30.07.2014 20:02:38
Thread-ID: 1373242
19 Beiträge
Währung je Tabellenblatt Name ändern
Chrostiffer

Hallo Zusammen,
folgendes Probleme würde ich gerne mit eurer Hilfe lösen.
Durch ein Makro habe ich für jedes Land einen eigenen Reiter (Name des Reiters z.B. DE, CH, ES, ...) wo Zahlen (Potential, Verkäufe etc.) in einem vorgefertigen Übersichtsblatt vorhanden ist.
Die Zahlen sin...
16.08.2016 11:00:37
Thread-ID: 1509490
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
6
6
8
2
2
8
18
3
3
11
7
2
5
3
1
1
1
2
2
6
3
3
17