Definieren Arbeitsblattname hängt von Variable ab

Question

For i = 1 To n 
    Sheets(2).Copy After:=Sheets(Sheets.Count) 
    Sheets(Sheets.Count).Name = "SheetName(i)" 
Next 

Hier möchte ich definieren, BlattName hängt von der Variablen "i". Wenn beispielsweise i = 1 ist, sollte Name SheetName1 sein. Kannst du mir helfen?

Answer 1

Dies ist ein guter Weg, es zu tun:

Option Explicit 

Public Sub TestMe() 
    Dim i As Long 
    Dim n As Long: n = Worksheets.Count 

    For i = 1 To n 
     Worksheets(i).Copy After:=Worksheets(Worksheets.Count) 
     Worksheets(Worksheets.Count).name = "SheetName" & i 
    Next i 
End Sub 

Was habe ich verwendet:

• Sie sprechen etwa Worksheets, aber Sie verwenden Sheets. Es gibt einen Unterschied zwischen diesen beiden. Sheets gehören Worksheets und Charts.

Answer 2

Statt "SheetName(i)" Verwendung "SheetName" & i", versuchen Sie dies:

Sub Demo() 
    For i = 1 To n 
     Sheets(2).Copy After:=Sheets(Sheets.Count) 
     Sheets(Sheets.Count).Name = "SheetName" & i 
    Next i 
End Sub