Tabellenblätter automatisch mit Datum umbenennen

[marose67]

Hallo Günter,




er schrieb aber:

so dass z. B. statt "01.03.2020", dann "März 20" angezeigt wird

habe ich auch überlesen. Ich hatte ja den selbigen fehler drin.



Hier mein Code aktualisiert :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim worksh As Integer
    Dim worksheetexists As Boolean
    Dim x As Integer
    Dim WOrksheetsnam As String
    worksh = Application.Sheets.Count
    worksheetexists = False
    WOrksheetsnam = Format(Range("c2"), "mmm yy")
    For x = 1 To worksh
        If Worksheets(x).Name = WOrksheetsnam Then
            worksheetexists = True
            Exit For
        End If
    Next x
    If worksheetexists = False Then
        Worksheets.Add after:=Sheets("Tabelle1")
        ActiveSheet.Name = WOrksheetsnam
    End If
End Sub

Gruß



Marcus

[mfriedrich74]

Hallo,

vielen Dank für die Ideen.

Ich sage Euch noch Bescheid, wie welches funktioniert. Ich bin in Moment im HomeOffice und derzeit wird unser Server gewartet und ich komme nicht an die Datei, da der Remote deswegen nicht läuft. Entweder kann ich heute Abend noch rein oder erst am Wochenende oder Montag.

Schönes Wochende

[WillWissen]

@Marcus,

verenn dich bitte nicht. Friedrich hat seine Zelle bereits formatiert:

Die Zelle ist formatiert, so dass z. B. statt "01.03.2020", dann "März 20" angezeigt wird.

Mit

ActiveSheet.Name = Range("C2").Value

wird das tatsächliche Datum übernommen, mit .Text das formatierte Datum. Deshalb reicht auch mein Einzeiler (zu viel mehr wäre ich aufgrund meiner rudimentären VBA-Kenntnissen auch (noch) nicht fähig)

[marose67]

Hallo Günter,

dann habe ich das falsch verstanden. Somit reicht wirklich ein Einzeler.

Liebe Grüße
Marcus

[Kuwer]

Hallo Marcus,

... Somit reicht wirklich ein Einzeler.

aber eben nur, wenn es noch kein Blatt gleichen Namens gibt. :17:

Gruß Uwe

[marose67]

Danke Uwe ... lag ich doch nicht so verkehrt.

Gruß
Marcus

[snb]

Code:

Private Sub Worksheet_Activate()
    If Evaluate("not(isref(" & Format(Date, "'mmm yy") & "'!A1))") Then Name = Format(Date, "mmm yy")
End Sub

[schauan]

Hallöchen,

für die Auswahl der Lösungsvariante ist auch die Formel und die Arbeitsweise relevant.

Wenn dort z.B. eine Formel ohne Bezug auf eine Eingabezelle steht oder die Eingabezelle auf einem anderen Blatt steht, dann wirkt sich das Change-Ereignis dieses Blattes nicht aus.

Wenn z.B. das Blatt aktiv ist und eine Eingabe das Datum ändert, dann geht's mit dem Change aber nicht mit dem Activate-Ereignis des Blattes Du müsstest bei Günter's Code aus #4 nur die Zelladresse auf die Eingabezelle ändern.

Was steht denn in C2 für ein Formel?