Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt mit VBA umbenennen

Forumthread: Tabellenblatt mit VBA umbenennen

Tabellenblatt mit VBA umbenennen
26.06.2006 13:17:08
Joe
Hallo zusammen,
ich habe mal wieder ein VBA Problem.
Wie kann ich ein Tabellenblatt umbenennen welches beim Importtieren aus einem anderen Programm in Excel immer einen dynamischen Namen hat?
D.h. Durchs importieren heißt das Tabellenblatt z.B. „dgl5“ beim nächten Import (einen Tag später) heißt der Import des Tabellenblatts dann „dgl6“ u.s.w.
Ich benötige den VBA-Code um aus einem immer dynamischen Tabellenblatt (es kommt in jedem Excel-File immer nur ein Tabellenblatt vor) den Namen „Ping“ zu machen.
Kann mir da jemand helfen?
Danke
Joe
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt mit VBA umbenennen
26.06.2006 13:21:53
Uta
sheets("dgl5").activate
activesheet.name="MyName"
MfG Uta
AW: Tabellenblatt mit VBA umbenennen
26.06.2006 13:33:02
Joe
Hi Uta,
Danke ja aber das Problem ist je genau der dynamische Name des Tabellenblatts
Es heißt ja nicht immer "dgl5" der VBA Code müsste sich auf das einzige Tabellenblatt das es gibt beziehen und dieses in z.B."Ping" umbenennen.
Ich weiß nicht wie ich es anders Formulieren soll.
Danke
Joe
Anzeige
AW: Tabellenblatt mit VBA umbenennen
26.06.2006 13:36:03
OttoH
Hallo Joe,
mach mal folgendes im Makro: ActiveWorkbook.Sheets(1).Name = "abc"
Gruß OttoH
AW: Tabellenblatt mit VBA umbenennen
26.06.2006 13:39:07
OttoH
...oder auch folgendes:
Workbooks("Umsatz Januar").Sheets(1).Name = "Ping"
Gruß OttoH
AW: Tabellenblatt mit VBA umbenennen
26.06.2006 13:53:33
Joe
Cool Otto,
vielen Danke hat 100% gefunzt mit dem ersten Tipp.
Schönen Tag noch.
Anzeige
warum dann noch offen?
26.06.2006 14:05:30
Schließer
AW: Tabellenblatt mit VBA umbenennen
26.06.2006 13:43:13
UweD
Hallo
so z.B.

Sub dgl()
Dim i
On Error GoTo Fehler
For i = 1 To Worksheets.Count
If Left(Worksheets(i).Name, 3) = "dgl" Then
Worksheets(i).Name = "Ping"
Exit Sub
End If
Next
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
;

Forumthreads zu verwandten Themen

Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
VBA umbenennen eines Tabellenblattes
Jean

Hallo,
wie lässt sich denn per VBA mit Hilfe einer Inputbox der bisherige Tabellenname Tabelle1
a. in der Mappe mit dem Makro umbenennen
b. der Tabellenname einer anderen Mappe (zb. Kunden.XLS in D:\) umbenennen?
Gruß
Jean
21.11.2009 08:42:48
Thread-ID: 1119008
10 Beiträge
Anzeige
In VBA Editor Tabellen umbenennen
Heinz

Guten morgen im Forum
Wenn ich den VBA Editor öffne sehe ich:
Tabelle 1 ("Jänner") Tabelle 2 ("Februar") usw..
Meine Frage: Hat das umbenennen von Tabelle 1 in "Jänner" irgend eine Auswirkung auf VBA Codes usw..?
Gruß
Heinz
30.11.2012 09:38:50
Thread-ID: 1288676
3 Beiträge
Anzeige
VBA tabellenblätter temporär kopieren und zusammen
mscalimero

Hallo zusammen,
bin kein Experte in VBA aber konnte bis jetzt immer meine "Projekte" mit Codes aus dem Internet umsetzen. Scheitere aber jetzt an folgender Umsetzung.
Hintergrund: In einer Excel Arbeitsmappe habe ich für die Produktion Makrobutton`s mit Druckaufträgen von Kontrollkarten...
28.12.2015 10:09:17
Thread-ID: 1466170
4 Beiträge
mit VBA Blatt kopieren und durch anderes ersetzen
Larcher


Hallo
Ich hänge fest und hoffe Ihr könnt mir da helfen.
was habe ich :
Ich habe ein kleines Programm mit dem man Angebote schreiben kann.
In der Startseite ein Button "neues Angebot" und eine Ansicht der letzten 3 geschriebenen Angebote. daneben jeweils ein Button "ändern"...
30.01.2016 09:50:37
Thread-ID: 1472181
12 Beiträge
Tabellenblätter kopieren und umbenennen mit Mokro
Josef

Hallo Excelfreunde,
ich habe ein Programm gemacht für Kundendienst bei der Lebenshilfe um es im Dezember um ein neues Jahr zu ergänzen soll das alte Jahr und die Tabellenblätter m benannt werden 2016 2017 2018 USW. ich hoffe ihr könnt mich unterstützen
Gruß Josef
14.11.2016 15:00:19
Thread-ID: 1524777
3 Beiträge
VBA Tabellenblätter umbenennen
Georg

Folgenden Code kann man doch sicherlich vereinfachen, kriegs aber nicht richtig hin.
Versuch war schon mit i = 3 to x, aber wie dann die C8,9 etc unterkriegen?
DANKE Sub RegRename() ThisWorkbook.Activate Sheets(3).Select Sheets(3).Name = Sheets(1).Range("C8") Sheets(4).Select Sheets(4...
25.01.2017 10:29:24
Thread-ID: 1537235
4 Beiträge
Blatt kopieren und umbenennen
Andreas

Hallo Excelprofis,
ich habe mal wieder ein Problem, bei dem ich mit meinen bescheidenen VBA-Kenntnissen nicht weiterkomme.
Mit nachfolgendem Code kopiere ich das Blatt TestVorlage, benenne es nach dem Inhalt aus Combobox1 und schreibe in die Zelle A3 des neuen Blattes den Inhalt aus der...
20.06.2018 19:22:51
Thread-ID: 1629775
12 Beiträge
Blatt mit Formeln kopieren und umbenennen
Andreas

Hallo liebe Forumer,
komme leider wieder einmal nicht weiter.
Folgendes Problem muss ich lösen:
Ich habe einige Exceldateien (Bewertung) die strukturell immer gleich aufgebaut sind.
Diese haben jeweils 3 Inhaltsblätter und starten mit einem Monatsblatt (je nach Beginn der Bewert...
25.09.2018 13:52:36
Thread-ID: 1647654
12 Beiträge
Anzeige
Blatt kopieren und umbenennen EXCEL97
Christof
Guten Morgen und Hallo!

Ich habe ein Makro geschrieben, welches mir das letzte Tabellenblatt ermittelt,
und es anschließend kopiert und an das Ende des Workbooks stellt.
Zusätzlich wird es noch umbenannt.

Unter Excel2000 läuft es prima, aber unter Exce97 bekomme ich immer d...
12.11.2003 10:20:52
Thread-ID: 336893
5 Beiträge
Anzeige
Blatt kopieren und umbenennen
Carsten
Hallo zusammen,

ich habe folgendes Problem:

Ich lese Daten aus einer Userform in ein Tabellenblatt aus Tabelle 1 ein.
Nun wird geprüft, ob Datei 2 bereits geöffnet ist. Wenn nicht, wird sie geöffnet und das Blatt aus Tabelle 1 wird ans Ende von Tabelle 2 kopiert.

Soweit kl...
03.12.2003 14:33:56
Thread-ID: 346933
2 Beiträge
VBA/Makro: Blatt kopieren und Namen vergeben
AndreJ

Gibt es eine Möglichkeit mit VBA ein Blatt zu kopieren und gleichzeitig diesem Blatt einen Namen aus einer Liste eines anderen Tabellenblattes zu vergeben?
Gruß
AndreJ
11.10.2004 11:04:42
Thread-ID: 498269
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt mit VBA umbenennen

Schritt-für-Schritt-Anleitung

Um ein Tabellenblatt in Excel mit VBA umbenennen zu können, gehe folgendermaßen vor:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub TabellenblattUmbenennen()
   On Error Resume Next
   ActiveWorkbook.Sheets(1).Name = "Ping"
   On Error GoTo 0
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, indem du auf Entwicklertools > Makros, wähle TabellenblattUmbenennen und klicke auf Ausführen.

Mit diesem Code wird das erste Tabellenblatt in deiner Arbeitsmappe in "Ping" umbenannt.

Häufige Fehler und Lösungen

  • Fehler: "Der Name ist ungültig."

    • Lösung: Stelle sicher, dass der neue Name für das Tabellenblatt nicht bereits vorhanden ist und keine ungültigen Zeichen enthält.

  • Fehler: "Das Blatt kann nicht umbenannt werden."

    • Lösung: Überprüfe, ob das Arbeitsblatt geschützt ist. Du musst den Schutz aufheben, um es umbenennen zu können.

Alternative Methoden

  1. Mit einer Schleife: Wenn du sicherstellen möchtest, dass das richtige Tabellenblatt umbenannt wird, kannst du eine Schleife verwenden:

    Sub DGLUmbenennen()
   Dim ws As Worksheet
   For Each ws In ThisWorkbook.Worksheets
       If Left(ws.Name, 3) = "dgl" Then
           ws.Name = "Ping"
           Exit For
       End If
   Next ws
End Sub

  2. Excel Makro: Du kannst auch eine Benutzeroberfläche zur Auswahl des Tabellenblatts erstellen und dann den Namen ändern.

Praktische Beispiele

  • Beispiel zur Umbenennung eines dynamischen Tabellenblatts:

    Sub DynamischesTabellenblattUmbenennen()
   Dim ws As Worksheet
   Set ws = ActiveWorkbook.Sheets(1) 'Das erste Blatt auswählen
   ws.Name = "MeinNeuerName" 'Umbenennen
End Sub

  • Beispiel für das Kopieren und Umbenennen eines Arbeitsblatts:

    Sub BlattKopierenUndUmbenennen()
   ActiveWorkbook.Sheets(1).Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
   ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Name = "KopiertesBlatt"
End Sub

Tipps für Profis

  • Nutze On Error Resume Next, um Fehler beim Umbenennen zu ignorieren. Dies kann hilfreich sein, wenn du nicht sicher bist, ob der Name bereits existiert.
  • Erstelle eine Funktion, die überprüft, ob der gewünschte Name bereits verwendet wird, bevor du das Blatt umbenennst.
  • Verwende Application.DisplayAlerts = False, um Warnmeldungen beim Umbenennen auszublenden.

FAQ: Häufige Fragen

1. Wie kann ich ein Blatt umbenennen, das aus einer Zelle den Namen beziehen soll? Du kannst den Namen aus einer Zelle wie folgt beziehen:

Sub BlattUmbenennenMitZelle()
    Dim neuerName As String
    neuerName = ThisWorkbook.Sheets("Tabelle1").Range("A1").Value
    ActiveWorkbook.Sheets(1).Name = neuerName
End Sub

2. Was passiert, wenn ich versuche, ein Blatt in einen Namen umzubenennen, der bereits existiert? Excel wird eine Fehlermeldung anzeigen. Um dies zu vermeiden, solltest du vorher überprüfen, ob der Name bereits existiert.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige