Unbekannte Bereichsnamen auf Blatt mit MAKRO / VBA ändern

Forumthread: Unbekannte Bereichsnamen auf Blatt mit MAKRO / VBA ändern

14.03.2025 14:33:38

nikolas89

Guten Tag

Ich habe folgendes Problem.
Ich habe Eine Mappe in der Jedes Arbeitsblatt nach Jahr benannt ist 2023, 2024, 2025 etc.
Jedes Blatt enthält 12 Tabellen (Bereiche), deren Name auf das Jahr und den Monat hinweisen.
z.B. "Tab_Jan_2025" .

Wenn ich jetzt ein neues Blatt erstelle (Kopie und Umbenennung eines Vorlageblattes per Makro)
Dies funktioniert super.

Sub Neues_Jahr()

'

' Neues_Jahr Makro

'



'

    Sheets("Vorlage").Select

    

    sheetzahl = Sheets.Count

    

    Sheets("Vorlage").Copy After:=Sheets(sheetzahl)

    

    Sheets(sheetzahl).Select

    

    newsheetname = ActiveSheet.Name + 1

    Sheets("Vorlage (2)").Select

    Sheets("Vorlage (2)").Name = newsheetname

    

End Sub

dann bekommen die Namen der kopierten Bereiche eine "zufällige" Zahlenfolge angehängt.
Aus "Tab_Jan_Vorlage" wird dann z.B. "Tab_Jan_Vorlage468"

Wie kann ich diese mir theoretisch unbekannten, da zufällig, Namen per VBA ändern,
sodass der Präfix "Tab_Jan_" oder "Tab_Feb_", etc. erhalten bleiben aber der zufällige Anhang
durch den Namen des Tabellenblattes ersetzt wird. Wenn ich also das Jahr 2027 als Blatt hinzufüge,
sollen die Bereiche Tab_Jan_2027, Tab_Feb_2027, Tab_Mrz_2027, usw. heißen.

Vielen Dank im Voraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Unbekannte Bereichsnamen auf Blatt mit MAKRO / VBA ändern

14.03.2025 15:51:00

daniel

Hi
mit diesem Code kannst du die Blattnamen umbennen.
die ersten 8 Zeichen werden übernommen, dann wird der Blattname angehängt.

Sub Umbenenen()

Dim n As Name

For Each n In ThisWorkbook.Names

    If n.Name Like "Tab_???_*" Then

        If n Like "Tab_???_####" Then

        Else

            n.Name = Left(n.Name, 8) & n.RefersToRange.Worksheet.Name

        End If

    End If

Next

End Sub

der Code funktioniert für normale Bereichsnamen, die für die Mappe gültig sind.
umbenannt werden nur die Namen, die mit "Tab_" und einen Monatsnamen (3 Zeichen) beginnen.
# ist der Joker für eine Ziffer, dh Namen, an denen die Jahreszahl schon am Ende steht, werden ebenfalls nicht umbenannt.

Gruß Daniel

AW: Unbekannte Bereichsnamen auf Blatt mit MAKRO / VBA ändern

17.03.2025 10:29:56

nikolas89

Vielen Dank für die schnelle Antwort.

Leider passiert gar nichts.
Ich habe einen Button für den Code auf einer Seite erstellt, wo nach Erstellung die Tabellen z.B "Tab_Jan_Vorlage354", "Tab_Feb_Vorlage355", usw. für alle Monate heißen.
(Tab_Jan_Vorlage, Tab_Feb_Vorlage, ... habe ich die Tabellen auf meinem Vorlageblatt genannt)

Ich kann den Code 20 mal ausführen es passiert leider nichts.

Unbekannte Bereichsnamen auf Blatt mit MAKRO / VBA ändern

Forumthread: Unbekannte Bereichsnamen auf Blatt mit MAKRO / VBA ändern

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread