Blattname aus dem Formelergebnis einer bestimmten Zelle

Hallo zusammen,

ich hätte gerne, dass der Blattname aus dem Formelergebnis einer bestimmten Zelle geschieht.
Ich habe eine Tabellenblatt mit dem Namen Grunddaten in welcher in der Zelle "B6" das Jahr steht und in den Zellen "C6" bis "C17" z.B. die Formel

=DATUM($B$6;1;1)

steht.
Das Ergebnis dieser Formel soll dann in den Tabellenblattnamen auftauchen, so dass die einzelnen Tabellenblätter die Namen der einzelnen Monate (Januar bis Dezember) bekommen.

Im Nächsten Schritt soll dann im jeweiligen Tabellenblatt in der Zelle der Monatsname "D4" der jeweilige Monatsname + dem Jahr stehen und in der Zelle "D2" das jeweilige Jahr.
Es soll so funktionieren, dass wenn ich den Inhalt des jeweiligen Blattes komplett kopiere automatisch in D4 und D2 automatisch die Daten stehen. Es ist auch wichtig, da noch weitere Zellen Bezug auf "D4" nehmen

Ich gehe davon aus, dass es mit VBA irgendwie zu lösen ist, weiß aber nicht, wie.

https://www.herber.de/bbs/user/163952.xlsx

VG

Micha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("C1:C18")) Is Nothing Then On Error GoTo fehlermeldung If Target = "" Then Exit Sub ActiveSheet.Name = Sheets("Grunddaten").Range("C17").Value End If Exit Sub fehlermeldung: MsgBox "Es wurden ungültige Zeichen erfasst!" End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$C$14", "$C$17" ', usw Blatt_umbenennen Target.Parent, Format(Worksheets("Grunddaten").Range("C17").Value, "MMM YYYY") End Select End Sub Sub Blatt_umbenennen(Blatt As Worksheet, NeuerName As String) On Error GoTo Catch Try: Blatt.Name = NeuerName GoTo Finally 'Ausstieg ohne Fehler Catch: MsgBox "Es wurden ungültige Zeichen erfasst!" Finally: 'falls etwas unbedingt hier erledigt werden muss End Sub

Hallo zusammen,
und Danke Yal für deine Unterstützung,

Ja das Blatt Grunddaten ist quasi der Fixpunkt.

Aktuell ist es so, dass die Zellen "D2" und "D4" auch auf dieses Blatt zugreifen. Gebe aber aktuell in jedem Tabellenblatt die Bezug per Formel an.
So z.B. greift die Zelle "D4" im Arbeitsblatt "Januar" (welches ich aktuell händisch so benannt habe) auf die die Zelle "C6" im Blatt "Grunddaten" zu.

Das die Zellen "D2" + "D4" (im jeweiligen Blatt "Monatsname") weiterhin als Datumsformat vorhanden sind, ist wichtig, da wie bereits erwähnt andere Zellen darauf zugreifen müssen und dies als Datum benötigen.
Daher wäre ein Automatismus doch sehr schön, der quasi den Blattnamen (Monatsnamen) sowie dementsprechend die Werte in den Zellen "D2" + "D4" erhält.

Was den Code angeht funktioniert das im ersten Step super. Sieht auch gleich viel besser aus in dem Format.

Jetzt wäre es noch gut, wenn das Blatt beim Aufrufen aktualisiert wird.
Habe versucht aus dem Code von Yal den folgenden Part zu kürzen:

Private Sub Worksheet_Change(ByVal Target As Range)



    Select Case Target.Address

    Case "$C$14", "$C$17" ', usw

        Blatt_umbenennen Target.Parent, Format(Worksheets("Grunddaten").Range("C15").Value, "MMM YYYY")

    End Select

End Sub

Bin aber da zu unwissend für und bekomme Fehler:

Private Sub Worksheet_Activate(ByVal Target As Range)

        Blatt_umbenennen Target.Parent, Format(Worksheets("Grunddaten").Range("C15").Value, "MMM YYYY")

End Sub

und auch wenn ich den Code nicht ändere und ich die Zelle "D4" mit der Formel

=TEIL(ZELLE("dateiname";A1);FINDEN("]";ZELLE("dateiname";A1))+1;31)

befülle ist das Ergebnis nicht mehr als Datum zu formatieren und weitere Zellen können damit nicht arbeiten.

Und ich versuche natürlich "sinnvolle Lösungen" anzunehmen und nicht beratungsresitent zu wirken. Dies geht leider auch immer nur Rahmen meiner Möglichkeiten. ;-)

VG

Micha

Sub Blätter_umbenennen() Dim ws As Worksheet Dim Jahr As Long Jahr = Worksheets("Grunddaten").Range("B6").Value For Each ws In ThisWorkbook.Worksheets If ws.Name > "Grunddaten" Then ws.Name = Left(ws.Name, 4) & Jahr Next End Sub

Beliebteste Forumthreads (12 Monate)

Blattname aus dem Formelergebnis einer bestimmten Zelle

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Blattname aus dem Formelergebnis einer bestimmten Zelle

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread