Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter benennen

Forumthread: Tabellenblätter benennen

Tabellenblätter benennen
03.09.2003 22:31:12
Paul
Guten Abend

Ich möchte bitte 365 Tabellenblätter umbenennen und zwar nach nach Datum d.h.
In eine Liste z.B. in Tabelle 1 habe Reihe A . Format = Donnertsag 1 Januar 2004 bis Freitag 31 Dezember 2004
Ich nun die Tabellenblätter mit diesem Namen aufsteigend benennen.
Ist das möglich

2 Frage:

Wenn ich nun in meiner Liste das Jahr Freitag 1 januar 2005 eingebe sollen die tabellenblätter ebenfalls geändert werden.

Danke und Gruss
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter benennen
03.09.2003 22:47:12
Ramses
Hallo

entweder vorher den Datenbereich markieren und dann das Makro laufen lassen


Sub Add_Sheets()
Dim c As Range
For Each C in Selection
Worksheets.Add
ActiveSheet.Name = c.Value
Next
End Sub


Es wird für jedes Datum eine Tabellenblatt mit dem entsprechenden Namen erstellt

oder wenn es automatisch sein soll, das ganze in ein Worksheet_Change Ereignis kopieren


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, wks As String
wks = ActiveSheet.Name
If Target.Row <> 1 And Target.Column <> 1 Then Exit Sub
Qe = MsgBox("Sollen neue Tabellenblätter angelegt werden ?", vbQuestion + vbYesNo, "Mappe erstellen")
If Qe = vbNo Then
    Qe = MsgBox("Sollen bestehende Tabellenblätter umbenannt werden ?", vbQuestion + vbYesNo, "Mappe modifizieren")
        If Qe = vbNo Then Exit Sub
            For i = 2 To Worksheets.Count
                Worksheets(i).Name = Worksheets(wks).Cells(i, 1).Value
            Next i
            MsgBox "Alle Tabellen umbenannt"
            Exit Sub
        End If
    For i = 2 To Worksheets(wks).Range("A65536").End(xlUp).Row
        Worksheets.Add after:=Worksheets.Count
        ActiveSheet.Name = Worksheets(wks).Cells(i, 1).Value
    Next i
    MsgBox "Alle Tabellen erstellt"
End If
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16



Gruss Rainer
Anzeige
AW: Tabellenblätter benennen
03.09.2003 22:55:49
Paul
Hallo Rainer

Danke für deine tolle Arbeit

Ich werde es gleich ausprobieren

Grus Paul
;

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