Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Blattname ändern

Blattname ändern
05.08.2002 22:53:16
Jonny
Hallo Profis
Ich weiß nicht ob ich hier richtig poste ?

Also mein Problem ist folgendes:

Ich habe eine Arbeitsmappe mit vier Arbeitsblättern (Woche1.....Woche4).
Auf dem ersten Blatt (Woche1) trägt man das Datum in Zelle K3 ein (z.B. "01.07.02 - 07.07.02") .
Wie erreicht man nun das der Blattname sich in das Datum ändert ?
Meine Versuche über Makro mit "ActiveSheet.Name =" waren der größte Reinfall.

Vielleicht kann mir ja jemand helfen, danke !

Cu Jonny
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Blattname ändern
05.08.2002 22:59:20
Jochen
Hi Jonny,

mit Sheets("Woche1").Name = [K3] klappt's bei mir einwandfrei.

Gruss Jochen

Re: Blattname ändern
05.08.2002 23:16:19
Jonny
Danke für die schnelle Hilfe Jochen

Habe gerade ein neues Problem entdeckt.
Bei er ersten Seite geht es noch, danach bricht er ab.
Muss warscheinlich noch ein automatisches aktivieren des nächsten Blattes mit einbauen.

Sub bl_um()
Sheets("Woche1").Name = [K3]
Sheets("Woche2").Name = [K3]
Sheets("Woche3").Name = [K3]
Sheets("Woche4").Name = [K3]
End Sub

Cu Jonny

Anzeige
Re: Blattname ändern
05.08.2002 23:53:34
Nepumuk
Hi Jonny
der Fehler liegt daran, dass du vier Blätter mit dem selben Namen versehen willst.
Gruß
Nepumuk
Re: Blattname ändern
06.08.2002 00:22:28
Jonny
Huch, Nee, wollte ich nicht !!!

Auf jedem Blatt steht ein anderes Datum, zwar immer in der Zelle K3.
Wenn ich in Blatt1 (Woche1) das Datum eintrage, steht auf dem Blatt2 (Woche2) das Datum der nächsten Woche (7 Tage später).
Auf mein Beispiel zurück zu kommen.
Woche1 = 01.07.02
Woche2 = 08.08.02
Woche3 = 15.08.02
Woche4 = 22.08.02
und nun wollte ich Blätter umbennen lassen.

Anzeige
Re: Blattname ändern
06.08.2002 00:45:00
Nepumuk
Hallo Jonny
dann musst du die Zuweisung ändern z.B.

Gruß
Nepumuk
Re: Blattname ändern
06.08.2002 00:56:01
Herbert H.
Falls Du die Lösung noch nicht hast
kannst du das probieren:
Gruß Herbert

Sub Blattname()
Application.ScreenUpdating = False
Sheets(1).Name = Sheets(1).[K3]
Sheets(2).Name = Sheets(2).[K3]
Sheets(3).Name = Sheets(3).[K3]
Sheets(4).Name = Sheets(4).[K3]
Application.ScreenUpdating = True
End Sub

Alles über Formeln


Anzeige
Re: Blattname ändern
06.08.2002 16:24:57
Jonny
Danke für die RE´s
Hat prima geklappt,es läuft wunderbar. Das erspart jetzt viel Arbeit.

Cu Jonny

;
Anzeige

Infobox / Tutorial

Blattnamen in Excel automatisch ändern


Schritt-für-Schritt-Anleitung

Um den Blattnamen in Excel automatisch zu ändern, kannst du ein einfaches Makro verwenden. Folgende Schritte helfen dir dabei:

  1. Öffne Excel und lade deine Arbeitsmappe mit den Blättern (z.B. Woche1, Woche2, Woche3, Woche4).

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

  3. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf VBAProject (deineArbeitsmappe), wähle Einfügen und dann Modul.
  4. Kopiere den folgenden Code in das Modul:

    Sub Blattname()
       Application.ScreenUpdating = False
       Sheets(1).Name = Sheets(1).[K3]
       Sheets(2).Name = Sheets(2).[K3]
       Sheets(3).Name = Sheets(3).[K3]
       Sheets(4).Name = Sheets(4).[K3]
       Application.ScreenUpdating = True
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu deiner Arbeitsmappe.

  6. Führe das Makro aus, indem du auf Entwicklertools -> Makros klickst, das Makro Blattname auswählst und auf Ausführen klickst.

Damit änderst du die Blattnamen automatisch in die Werte, die in den Zellen K3 der jeweiligen Blätter stehen.


Häufige Fehler und Lösungen

  • Fehler: „Der Name ist ungültig“
    Lösung: Stelle sicher, dass die Namen, die du zuweist, keine ungültigen Zeichen enthalten und nicht länger als 31 Zeichen sind.

  • Fehler: Alle Blätter haben denselben Namen
    Lösung: Achte darauf, dass die Zellen K3 in jedem Blatt unterschiedliche Werte enthalten. Andernfalls wird Excel die Zuweisung nicht akzeptieren.


Alternative Methoden

Falls du keine Makros verwenden möchtest, kannst du auch die Funktion =K3 direkt im Blattnamen verwenden. Beachte jedoch, dass dies nicht möglich ist, wenn der Blattname dynamisch in Echtzeit geändert werden soll. Eine weitere Möglichkeit ist die Verwendung von VBA-Formeln.


Praktische Beispiele

Angenommen, du hast folgende Daten in den Zellen K3 der Blätter:

  • Woche1: 01.07.02 - 07.07.02
  • Woche2: 08.07.02 - 14.07.02
  • Woche3: 15.07.02 - 21.07.02
  • Woche4: 22.07.02 - 28.07.02

Nach Ausführung des Makros würden die Blattnamen wie folgt geändert:

  • Woche1 → 01.07.02 - 07.07.02
  • Woche2 → 08.07.02 - 14.07.02
  • Woche3 → 15.07.02 - 21.07.02
  • Woche4 → 22.07.02 - 28.07.02

Tipps für Profis

  • Automatisierung: Du kannst das Makro so erweitern, dass es beim Öffnen der Arbeitsmappe automatisch ausgeführt wird. Füge dazu den Aufruf deines Makros in die Workbook_Open-Ereignisprozedur ein.
  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung in deinem Makro, um zu vermeiden, dass das Makro bei einem Fehler abstürzt. Nutze On Error Resume Next am Anfang deines Codes.

FAQ: Häufige Fragen

1. Wie kann ich das Makro speichern?
Um das Makro zu speichern, musst du die Arbeitsmappe im Format „Excel-Makro-fähige Arbeitsmappe“ (*.xlsm) speichern.

2. Was passiert, wenn ich einen ungültigen Blattnamen eingebe?
Wenn du einen ungültigen Blattnamen eingibst, zeigt Excel eine Fehlermeldung an, und der Blattname wird nicht geändert. Achte darauf, dass der Name keine Sonderzeichen enthält.

Beliebteste Forumthreads (12 Monate)

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