Umbenennen der Excel-Blatt mit VBA-Makro

Ich Fragen will, benennen Sie die excel Tabelle, ich will Sie dem Blatt unter einem neuen Namen : Alter name + _v1.

Also, wenn meine aktuelle Blattname test, dann will ich den neuen Namen test_v1.

Ich kenne nur die standard-vba für excel umbenennen Blatt, das umbenennen ist excel-Blatt von dem Blatt-Inhalt.

Sub Test()

Dim WS As Worksheet

For Each WS In Sheets
   WS.Name = WS.Range("A5")
Next WS
End Sub
  • WS.Name = WS.Name & "_v1"
  • Kannst du das als Antwort
InformationsquelleAutor Ongok Ongoksepen | 2016-04-01
  1. 15

    Dies sollte es tun:

    WS.Name = WS.Name & "_v1"
    InformationsquelleAutor Tim Williams
  2. 18

    Den "no frills" - Optionen sind wie folgt:

    ActiveSheet.Name = "New Name"

    und 

    Sheets("Sheet2").Name = "New Name"

    Schauen Sie sich auch die Aufzeichnung von Makros und sehen, welche Codes es gibt Sie, es ist eine gute Möglichkeit zu lernen, einige der mehr Vanille-Funktionen.

    InformationsquelleAutor Realitybites
  3. 5

    Schlage vor, Sie fügen Handhabung zu testen, ob eine der Platten, die umbenannt werden soll schon vorhanden ist:

    Sub Test()

Dim ws As Worksheet
Dim ws1 As Worksheet
Dim strErr As String

On Error Resume Next
For Each ws In ActiveWorkbook.Sheets
Set ws1 = Sheets(ws.Name & "_v1")
    If ws1 Is Nothing Then
        ws.Name = ws.Name & "_v1"
    Else
         strErr = strErr & ws.Name & "_v1" & vbNewLine
    End If
Set ws1 = Nothing
Next
On Error GoTo 0

If Len(strErr) > 0 Then MsgBox strErr, vbOKOnly, "these sheets already existed"

End Sub
    InformationsquelleAutor brettdj
Schreibe einen Kommentar