Benennen Sie Registerkarten mit demselben Namen in einer Excel-Tabelle

Question

Ich versuche Tabs in meinem großen Excel zu umbenennen, indem Sie einen Zellwert in jedem Arbeitsblatt verwenden. Das Problem ist, ich möchte mehrere Tabs mit dem gleichen Namen umbenennen, was nicht erlaubt ist. Ich bin ok mit einer 1, dann eine 2 usw., aber ich bin mir nicht sicher, wie das geht.

Wenn beispielsweise der Zellenwert in 3 Blättern Ohio ist, dann wären die Registerkarten Ohio1, Ohio2, Ohio3.

Der Name jedes Blatt sollte der Wert in A1 sein, aber ich möchte doppelte Namen berücksichtigen.

den VBA-Code, ohne Berücksichtigung des gleichen Namens zu tun ist:

Sub Worksheet_SelectionChange() 
Dim ws As Worksheet 

For Each ws In Sheets 
ws.Activate 
ActiveSheet.Name = Range("a1").Value 

Next ws 

End Sub 

Answer 1

Sub Worksheet_SelectionChange() 
Dim ws As Worksheet 
Dim i As Integer 

i = 1 

On Error GoTo fixName 

For Each ws In Me.Worksheets 

ws.name = ws.Range("A1").Value 


Next ws 


Exit Sub 
fixName: 
ws.name = ws.Range("A1").Value & i 
i = i + 1 

End Sub 

Answer 2

Sub RenameTabs() 
    Dim ws As Worksheet, wsName$, wsCount%, dict ' $ is short for " As String" and % for " As Integer" 
    Set dict = CreateObject("Scripting.Dictionary") 

    For Each ws In Sheets 
     wsName = ws.Range("A1").Value 
     wsCount = IIf(dict.Exists(wsName), dict(wsName) + 1, 1) 
     dict(wsName) = wsCount 

     If wsCount = 1 Then 
      ws.Name = wsName 
     Else 
      If wsCount = 2 Then Sheets(wsName).Name = wsName & 1 ' optional to rename the previous Ohio sheet to Ohio1 
      ws.Name = wsName & wsCount 
     End If 
    Next ws 
End Sub