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

Forumthread: Tabellenblatt erzeugen und nach Zelle benennen

Tabellenblatt erzeugen und nach Zelle benennen
11.08.2004 14:55:43
Andi
Hi,
würde gern Tabellenblatt erzeugen und nach einer Zelle aus Sheet1 benennen. Wie geht so etwas?
Danke für die Tipps.
Gruß Andi
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt erzeugen und nach Zelle benennen
11.08.2004 15:27:11
Uwe
Hallo Andi,
die Zeile sähe etwa so aus:
Worksheets.Add.Name = Sheets("Tabelle1").Range("A1")
Gruß Uwe
AW: Tabellenblatt erzeugen und nach Zelle benennen
11.08.2004 15:29:09
Bertram
Hi Andi,
probier's mal so:


Sub Blattname()
AW: Tabellenblatt erzeugen und nach Zelle benennen
12.08.2004 07:12:08
Andi
Danke.
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt erzeugen und nach Zelle benennen


Schritt-für-Schritt-Anleitung

Um ein neues Excel-Tabellenblatt zu erzeugen und es nach einer Zelle zu benennen, kannst du folgende Schritte befolgen:

  1. Öffne Excel und das Workbook, in dem du ein neues Tabellenblatt erstellen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Erstelle ein neues Modul, indem du im Menü auf Einfügen und dann auf Modul klickst.

  4. Füge folgenden Code in das Modul ein:

    Sub Blattname()
       Dim neuesBlatt As Worksheet
       Set neuesBlatt = Worksheets.Add
       neuesBlatt.Name = Sheets("Tabelle1").Range("A1").Value
    End Sub
  5. Ändere Tabelle1 und A1 in den Namen deines bestehenden Blattes und der Zelle, die du verwenden möchtest.

  6. Führe das Makro aus, um das neue Tabellenblatt zu erstellen und entsprechend zu benennen.


Häufige Fehler und Lösungen

  • Fehler: "Ungültiger Blattname"

    • Lösung: Stelle sicher, dass der Wert in der angegebenen Zelle (z.B. A1) keinen ungültigen Zeichen enthält (z.B. \, /, ?, *, [, ]).
  • Fehler: "Blatt existiert bereits"

    • Lösung: Überprüfe, ob ein Tabellenblatt mit dem gleichen Namen bereits existiert und ändere den Namen in der Zelle entsprechend.

Alternative Methoden

Wenn du ein Excel-Tabellenblatt nach einer Zelle benennen möchtest, ohne ein VBA-Makro zu verwenden, kannst du auch manuell vorgehen:

  1. Füge ein neues Blatt hinzu: Klicke auf das "+"-Symbol am unteren Rand deiner Excel-Anwendung.
  2. Rechtsklicke auf das neue Blatt und wähle „Umbenennen“ aus.
  3. Gib den Namen ein, den du in einer Zelle (z.B. A1) hast.

Praktische Beispiele

Beispiel 1: Wenn in Zelle A1 der Text "Januar" steht, wird das neue Tabellenblatt automatisch "Januar" benannt, wenn du das obenstehende Makro ausführst.

Beispiel 2: Wenn du mehrere Tabellenblätter erstellen möchtest, kannst du den Code erweitern:

Sub MehrereBlätter()
    Dim i As Integer
    For i = 1 To 3 'Erstellt 3 Blätter
        Dim neuesBlatt As Worksheet
        Set neuesBlatt = Worksheets.Add
        neuesBlatt.Name = Sheets("Tabelle1").Cells(i, 1).Value ' Zelle A1, A2, A3
    Next i
End Sub

Tipps für Profis

  • Verwende Fehlerbehandlung: Integriere On Error Resume Next vor dem Umbenennen der Blätter, um das Makro robuster zu machen.
  • Automatisiere den Prozess: Wenn du regelmäßig neue Blätter nach Zellen benennen musst, speichere das Makro in deiner Personal.xlsb-Datei für einfachen Zugriff.

FAQ: Häufige Fragen

1. Wie benenne ich ein Excel-Blatt nach einer Zelle ohne VBA? Du kannst das Blatt manuell umbenennen, indem du mit der rechten Maustaste auf das Blatt klickst und „Umbenennen“ wählst. Gib dann den Namen aus der gewünschten Zelle ein.

2. Kann ich ein Blatt nach mehreren Zellen benennen? Ja, du kannst den VBA-Code so anpassen, dass er Werte aus mehreren Zellen verwendet, um den Blattnamen zu generieren, z.B. durch Verkettung der Werte.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige