Microsoft Excel

Herbers Excel/VBA-Archiv

Tabellennamen per Makro ergänzen

Betrifft: Tabellennamen per Makro ergänzen von: FritzG
Geschrieben am: 12.11.2014 07:24:24

Hallo,

ich habe in einer Arbeitsmappe ganz viele Tabellen. Die Namen dieser Tabellen sollen ergänzt werden.

Aus "KW40" soll "KW40_14" werden. Hab leider keinen Ansatz?!

  

Betrifft: AW: Tabellennamen per Makro ergänzen von: Hajo_Zi
Geschrieben am: 12.11.2014 07:26:45

Option Explicit

Private Sub Aufheben()
    Dim WsTabelle As Worksheet
    For Each WsTabelle In Sheets
        WsTabelle.Name = WsTabelle.Name & "_14"
    Next WsTabelle
End Sub
GrußformelHomepage


  

Betrifft: AW: Tabellennamen per Makro ergänzen von: FritzG
Geschrieben am: 12.11.2014 07:42:06

Wow! das hat geklappt! Vielen Dank und einen schönen Tag :-)


  

Betrifft: dann hast Du kein Diagramm dabei ... von: Matthias L
Geschrieben am: 12.11.2014 07:53:46

Hallo

Denn der Code bringt eine Fehlermeldung, wenn z.B. ein Diagramm vorhanden ist
Man sollte immer die Bezeichnung Sheets und Worksheets betrachten.

Benutze also besser:

Option Explicit
Private Sub Aufheben()
    Dim WsTabelle As Worksheet
    For Each WsTabelle In Worksheets
        WsTabelle.Name = WsTabelle.Name & "_14"
    Next WsTabelle
End Sub
Sonst gibts eine Fehlermeldung, wenn es nicht nur Worksheets sind.

Man sollte nicht WsTabelle als Worksheet deklarieren und dann die Schleife über alle Sheets schicken.

Gruß Matthias


  

Betrifft: AW: Tabellennamen per Makro ergänzen von: FritzG
Geschrieben am: 12.11.2014 07:57:22

Blöde Frage jetzt, aber kann man so ein Makro auch für markierte Tabellenblätter machen? Ich hab leider Gottes 2013 und 2014 in einer Arbeitsmappe o.O


  

Betrifft: AW: Tabellennamen per Makro ergänzen von: Hajo_Zi
Geschrieben am: 12.11.2014 08:01:42

Option Explicit

Private Sub Aufheben()
    Dim WsTabelle As Worksheet
    For Each WsTabelle In ThisWorkbook.Windows(1).SelectedSheets
        WsTabelle.Name = WsTabelle.Name & "_14"
    Next WsTabelle
End Sub
Gruß Hajo


  

Betrifft: AW: Tabellennamen per Makro ergänzen von: FritzG
Geschrieben am: 12.11.2014 08:03:29

Großartig! Ich hoffe dass andere auch davon profitieren können. Herzlichen Dank! :-)


  

Betrifft: AW: Tabellennamen per Makro ergänzen von: Hajo_Zi
Geschrieben am: 12.11.2014 08:08:12

und um ganz sicher zu gehen.

Option Explicit

Private Sub Aufheben()
    Dim WsTabelle As Worksheet
    For Each WsTabelle In ThisWorkbook.Windows(1).SelectedSheets
        If UCase(Left(WsTabelle.Name, 2)) = "KW" And _
            Mid(WsTabelle.Name, Len(WsTabelle.Name) - 3, 1) <> "_" And _
            Not IsNumeric(Right(WsTabelle.Name, 2)) Then
            WsTabelle.Name = WsTabelle.Name & "_14"
        End If
    Next WsTabelle
End Sub
Gruß Hajo


 

Beiträge aus den Excel-Beispielen zum Thema "Tabellennamen per Makro ergänzen"