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

VBA: Neue Tabellenblätter erstellen & umbennen

Forumthread: VBA: Neue Tabellenblätter erstellen & umbennen

VBA: Neue Tabellenblätter erstellen & umbennen
20.08.2002 17:33:26
Jens
Hallo.

Mit dem Makro aufzeichnen kann ich mir ja ansehen wie man per Makro ein neues Tabellenblatt erstellt.

ABER um es umzubennen brauch ich den Namen der Tabelle (Tabelle1, Tabelle2 usw.). Wie finde ich jetzt heraus,
wie die neu erstelle Tabelle heißt?


Vielen Dank

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA: Neue Tabellenblätter erstellen & umbennen
20.08.2002 17:38:54
Alan Hathway
Nicht unbedingt muss man den NAMEN kennen

Hilft vielleicht folgendes?

ActiveSheet.Copy After:=Sheets(Sheets.Count)
'
Sheets(Sheets.Count).Select
'
neuname = InputBox("Neuer Name des Blattes")
ActiveSheet.Name = neuname

Alan Hathway

Re: VBA: Neue Tabellenblätter erstellen & umbennen
20.08.2002 17:46:53
Anton
Hallo.

die Add-Methode von Worksheets liefert einen Verweis auf das neu erstellte Tabellenblatt. Dies kann entweder einer Variablen zugewiesen werden (wenn noch öfters auf das neue Blatt zugegriffen werden soll) oder man kann einfach eine Anweisung anhängen. Also:

Anton

Anzeige
Re: VBA: Neue Tabellenblätter erstellen & umbennen
21.08.2002 11:08:00
Jens
Super das funktioniert, DANKE!

Weist du, wie man jetzt noch überprüfen kann, ob der Name schon vorhanden ist?

Und wie man den Namen der letzten Tabelle herausfindet ??


DANKE schon mal im Voraus !

Re: VBA: Neue Tabellenblätter erstellen & umbennen
21.08.2002 12:18:14
Anton
Hallo,

Zu Frage 1:
Z. B. mittels einer Schleife über alle Blätter der Mappe und dem Vergleich der Blattnamen. Nachfolgende Funktion gibt TRUE zurück, falls blattname schon existiert.

Zu Frage 2:
Das letzte Blatt in der Sheets-Auflistung hat den Index (Sheets.Count).

Falls du jedoch das jüngste Blatt meinst, funktioniert das nur, wenn neue Blätter immer hinten an die Auflistung angehängt werden. Wird ein Blatt zwischen drin eingeschoben verschieben sich die Indizes der nachfolgenden Blätter.

Anton


Anzeige
Re: VBA: Neue Tabellenblätter erstellen & umbennen
21.08.2002 13:06:41
Jens
Super, nochmals DANKE !
;

Forumthreads zu verwandten Themen

Makro: Neues Tabellenblatt; löscht Makros
Heiko31

Hallöchen,
wieder mal ich mit folgendem Problem:
Ich möchte ein Makro haben, das mit Druck auf ein Steuerelement (Schaltfläche) das bestehende Arbeitsblatt komplett übernimmt.
Mit der Makro-Aufzeichnung macht er das auch wunderbar, aber er übernimmt mir nur die Schaltflächen, nicht...
22.11.2008 13:22:15
Thread-ID: 1026928
6 Beiträge
Beim erstellen Tabellenblatt VBA Code eintragen | Herbers Excel-Forum
Robert
Guten morgen Leute,
wer kann mit helfen?
Ich möchte per VBA Code in dem neuer erstellten Tabellenblatt mit Namen XY einen Quellcode
reinschreiben z.b.
in einer Spalte AF addiere Zellen wenn die eine Zahl enthalten.
Mit dank im Voraus
Robert
23.05.2009 09:00:32
Thread-ID: 1076816
22 Beiträge
Mit Makro Tabellenblatt erstellen
Martin

Hallo VBAler,
ich hoffe, ich drücke mich exakt aus.
Anforderung: ein neuer Teilnehmer hinzufügen. Hierzu muss folgendes geschehen.
1. In Tabellenblatt Übersicht muss der Name des Teilnehmers hinzugefügt werden
2. In Tabellenblatt Fragen muss der Name des Teilnehmers hinzugefügt...
18.02.2011 16:11:14
Thread-ID: 1201716
4 Beiträge
Anzeige
Makro-Button / neues Tabellenblatt
Sambora

Hallo Excel-Experten,
bin neu hier in diesem Office-Forum, gefällt mir sehr gut!
Würde mich freuen, wenn mir jemand bei meinem Problem helfen könnte!
- Ich möchte in Tabellenblatt1 einen passwort-geschützten Makro-Button plazieren, welches bei Klicken Tabellenblatt2 erzeugt.
- T...
11.04.2012 17:12:36
Thread-ID: 1258809
3 Beiträge
VBA, automatisch Tabellenblätter erstellen
Tim

Hallo zusammen,
ich habe hier ein Makro, dass mir in Abhängigkeit des Zellenwertes A3 automatisch ein Tabellenblatt mit dem Namen des Zelleninhalts erstellt.
Sub NeuesBlatt() 'Varialen deklarieren Dim ws As Worksheet, wb As Workbook, sName As String ' Name des neuen Blattes auslesen s...
21.04.2012 11:33:55
Thread-ID: 1260338
3 Beiträge
neue Tabelle erstellen und hintenanstellen
Peter

Guten Tag
Mein Workbook hat vor Start des Makros eine einzige Tabelle, wenn das Makro nicht schon ausgeführt wurde.
Nun möchte ich mir eine weitere Tabelle mit dem Namen "Journal" anlegen und diese sollte an zweiter Stelle kommen.
Mir ist nicht klar, warum diese regelmässig an erst...
03.11.2012 22:10:24
Thread-ID: 1285137
3 Beiträge
Makro in neues Tabellenblatt
Gisela

Hallo,
das folgende Makro habe ich mit meinen bescheidenen Kenntnissen aus im Forum gefundenen Beiträge zusammengestellt. Es soll ein neues TB entsprechend der Eingabe in "neu" h11 erstellt werden. Funktioniert.
Danach soll der im alten TB enthaltene Code ins neue TB übernommen werden....
18.12.2012 10:10:31
Thread-ID: 1291333
4 Beiträge
Makro Tabellenblätter erstellen
Robin

Liebe Community,
da bald die neue Bundesliga-Saison startet, habe ich in Excel ein Tippspiel erstellt.
Das Problem ist nur, ich habe eine Vorlage, das ist das Blatt "Spieltag 1" und möchte nun weitere 33 Tabellenblätter mit "Spieltag 2", "Spieltag 3", usw. erstellen. Ist dies vielleicht...
26.07.2013 18:40:42
Thread-ID: 1324416
6 Beiträge
VBA Mastertabelle erstellen
WalterK

Hallo,
bei meiner Internetsuche bin ich auf den folgenden Code zur Erstellung einer Mastertabelle gestossen. Es sollen die Daten aller in einem Ordner befindlichen Dateien in 1 Blatt zusammengeführt werden.
Allerdings kommt bei der folgenden Zeile die Meldung: Laufzeitfehler 1004: Anwen...
27.07.2013 11:38:45
Thread-ID: 1324472
3 Beiträge
HILFE ! Kann keine neuen Tabellenblätter erstellen
Christian

Hallo Leute,
ich habe eine Excel-Mappe mit einigen Blättern und verschiedenen Makros. Auf einmal kann ich keine neuen Blätter mehr erstellen und auch nicht löschen. DIE ARBEITSMAPPE IST ABER NICHT FREIGEGEBEN. Finde keine Lösung.....hat einer von Euch ne Idee ?
Danke
Excel 2013
...
10.10.2013 14:37:16
Thread-ID: 1333944
5 Beiträge
VBA neues Tabellenblatt per Button kopieren.
Matthias

Hallo Profis.
Ich habe da ein großes Problem.
Ich habe eine Tabelle mit Daten drin die jeden Tag per Button mit einen Makro kopiert werden soll. Das Problem dabei ist, das nur ausgewählte Zeilen kopiert werden sollen.
Die Tabelle sieht so aus:
https://www.herber.de/bbs/user/9752...
07.05.2015 16:55:19
Thread-ID: 1425270
5 Beiträge
VBA neues Tabellenblatt per Button kopieren.
Matthias
Hallo Profis.
Ich habe da ein großes Problem.
Ich habe eine Tabelle mit Daten drin die jeden Tag per Button mit einen Makro kopiert werden soll. Das Problem dabei ist, das nur ausgewählte Zeilen kopiert werden sollen.
Die Tabelle sieht so aus:
https://www.herber.de/bbs/user/97520.xl...
07.05.2015 16:55:19
Thread-ID: 1425271
2 Beiträge
Anzeige

Infobox / Tutorial

Neue Tabellenblätter in Excel VBA erstellen und umbenennen

Schritt-für-Schritt-Anleitung

Um ein neues Tabellenblatt in Excel mit VBA zu erstellen und es gleichzeitig umzubenennen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Microsoft Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf dein Projekt im Projektfenster und wähle Einfügen > Modul.

  3. Gib den VBA-Code ein: Verwende den folgenden Code, um ein neues Tabellenblatt zu erstellen und es mit einem Namen deiner Wahl zu benennen:

    Sub NeuesTabellenblattErstellenUndUmbenennen()
   Dim neuname As String
   Dim neuesBlatt As Worksheet

   ' Neues Tabellenblatt am Ende einfügen
   Set neuesBlatt = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))

   ' Benutzer nach dem Namen fragen
   neuname = InputBox("Bitte neuen Namen für das Tabellenblatt eingeben:")

   ' Tabellenblatt umbenennen
   neuenBlatt.Name = neuname
End Sub

  4. Führe das Makro aus: Drücke F5, um das Makro auszuführen. Ein Eingabefeld erscheint, in das du den gewünschten Namen für das neue Tabellenblatt eingeben kannst.

Häufige Fehler und Lösungen

  • Fehler: Name bereits vorhanden: Wenn du versuchst, ein Tabellenblatt mit einem Namen zu erstellen, der bereits existiert, bekommst du einen Fehler. Um dies zu vermeiden, kannst du eine Funktion hinzufügen, die überprüft, ob der Name bereits verwendet wird. Beispiel:

    Function NameVorhanden(blattname As String) As Boolean
   Dim blatt As Worksheet
   NameVorhanden = False
   For Each blatt In ThisWorkbook.Worksheets
       If blatt.Name = blattname Then
           NameVorhanden = True
           Exit Function
       End If
   Next blatt
End Function

  • Fehler: Das Tabellenblatt kann nicht umbenannt werden: Dies passiert, wenn du einen ungültigen Namen eingibst (z.B. einen Namen, der bereits von einem anderen Blatt verwendet wird oder verbotene Zeichen enthält).

Alternative Methoden

Es gibt verschiedene Möglichkeiten, ein neues Tabellenblatt in Excel VBA zu erstellen:

  1. Mit der Add-Methode: Du kannst die Add-Methode direkt verwenden, um ein Tabellenblatt hinzuzufügen und es sofort einer Variablen zuzuweisen. Beispiel:

    Dim neuesBlatt As Worksheet
Set neuesBlatt = Worksheets.Add
neuesBlatt.Name = "MeinNeuesBlatt"

  2. Mit einer Schleife: Wenn du mehrere Tabellenblätter erstellen möchtest, kannst du eine Schleife verwenden:

    Dim i As Integer
For i = 1 To 5
   Worksheets.Add.Name = "Blatt" & i
Next i

Praktische Beispiele

  • Ein neues Tabellenblatt mit einem vordefinierten Namen erstellen:

    Sub NeuesTabellenblattMitVordefiniertemNamen()
   Worksheets.Add.Name = "VordefiniertesBlatt"
End Sub

  • Ein neues Tabellenblatt am Ende der Liste einfügen:

    Sub NeuesTabellenblattAmEndeEinfügen()
   Dim neuesBlatt As Worksheet
   Set neuesBlatt = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
   neuesBlatt.Name = "NeuesAmEnde"
End Sub

Tipps für Profis

  • Verwende klare und eindeutige Namen: Achte darauf, dass die Namen der Tabellenblätter eindeutig sind, um Verwirrung zu vermeiden.
  • Benutze Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um unerwartete Fehler zu vermeiden und eine bessere Benutzererfahrung zu bieten.
  • Dokumentiere deinen Code: Schreibe Kommentare zu deinem VBA-Code, um deine Absichten klar zu machen und es dir oder anderen zu erleichtern, den Code später zu verstehen.

FAQ: Häufige Fragen

1. Wie kann ich ein neues Tabellenblatt erstellen, ohne dass ich den Namen kenne?
Du kannst das neue Tabellenblatt erstellen und dann den Benutzer nach einem Namen fragen, wie im obigen Beispiel gezeigt.

2. Kann ich mehrere neue Tabellenblätter auf einmal erstellen?
Ja, du kannst eine Schleife verwenden, um mehrere Tabellenblätter nacheinander zu erstellen und ihnen unterschiedliche Namen zu geben.

3. Wie finde ich den Namen des zuletzt erstellten Tabellenblatts?
Das letzte Tabellenblatt hat den Index Worksheets.Count. Du kannst den Namen mit Worksheets(Worksheets.Count).Name abrufen.

Beliebteste Forumthreads (12 Monate)

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