Umbenennen Arbeitsblatt mit Dropdown-Liste

Question

ich den Code unten bin mit Arbeitsblatt umbenennen.

Option Explicit 

Sub RenWSs() 

    Dim ws As Worksheet 
    Dim shtName 
    Dim newName As String 
    Dim i As Integer 
    Dim RngStr As String 

    RngStr = Application.InputBox(prompt:="Select the Range for the new Sheet's name", Type:=2) 
    For Each ws In Worksheets 
     With ws 
      If Trim(.Range(RngStr)) <> "" Then 
       shtName = Split(Trim(.Range(RngStr)), " ") 
       newName = shtName(0) 
       On Error GoTo ws_name_error 
       .Name = .Range(RngStr) 
       GoTo done 
repeat: 
       .Name = newName & i 
       GoTo done 
ws_name_error: 
       i = i + 1 
       Resume repeat 
      End If 
     End With 
     On Error GoTo 0 
done: 
    Next 

End Sub 

In diesem wähle ich den neuen Namen durch Input Box und es funktioniert gut. Nun, was ich will ist, bevor das Eingabefeld aufgerufen wird, muss der folgende Prozess getan werden.

ich Namen in Dropdown-Liste haben, die jeweils Namen in Dropdown-Liste nacheinander in allen Arbeitsblättern aktualisiert werden, wie J16 die Zelle.

Bitte helfen Sie mir

Answer 1

Der Code unten durch alle ws Blätter LOPP wird, und ändert den Wert der Zelle in „J16“ auf „Test 1“ (nur für Testzwecke).

Option Explicit 


Sub ModifyDropDownValue() 

Dim ws As Worksheet 

For Each ws In Worksheets 
    With ws 
     ' modify the value in cell J16 
     .Range("J16").Value = "Test 1" 
    End With 
Next ws 

End Sub