Muss den VBA-Code korrigieren. Fehlermeldung wird angezeigt. "Steuervariable wird bereits verwendet"

Question

Ich verwende VBA in Excel.

Ich bekomme eine Fehlermeldung, dass Steuervariable bereits verwendet wird. Wenn der Fehler auftritt, wird die zweite For E r im VBA-Editor hervorgehoben. Kann jemand helfen, diesen Code zu korrigieren. Danke

Dim ws As Worksheet 
Dim r As Range 

For Each ws In Worksheets 
    If InStr(1, ws.Name, "Wk", 1) > 0 Then 
     For Each r In ws.Range("C118:I124") 
     For Each r In ws.Range("C163:J168") 
     For Each r In ws.Cell(E2, E15, E28, E41, E54, E67, E80) 
      r.Formula = Replace(r.Formula, "Wk1", r.Parent.Name) 
     Next r 
    End If 
Next ws 

MsgBox "Done" 
End Sub 

Answer 1

Sie versuchen, durch drei verschiedene Bereiche zu durchlaufen, d. H. Diese Bereiche verketten. So funktioniert das For-Each jedoch nicht, und Sie müssen es aufteilen.

Dim ws As Worksheet 
Dim r As Range 

For Each ws In Worksheets 
    If InStr(1, ws.Name, "Wk", 1) > 0 Then 
     For Each r In ws.Range("C118:I124") 
      r.Formula = Replace(r.Formula, "Wk1", r.Parent.Name) 
     Next r 

     For Each r In ws.Range("C163:J168") 
      r.Formula = Replace(r.Formula, "Wk1", r.Parent.Name) 
     Next r 

     Range("E2").Formula = Replace(Range("E2").Formula, "Wk1", Range("E2").Parent.Name) 
     Range("E15").Formula = Replace(Range("E15").Formula, "Wk1", Range("E15").Parent.Name) 
     Range("E28").Formula = Replace(Range("E28").Formula, "Wk1", Range("E28").Parent.Name) 
     Range("E41").Formula = Replace(Range("E41").Formula, "Wk1", Range("E41").Parent.Name) 
     Range("E54").Formula = Replace(Range("E54").Formula, "Wk1", Range("E54").Parent.Name) 
     Range("E67").Formula = Replace(Range("E67").Formula, "Wk1", Range("E67").Parent.Name) 
     Range("E80").Formula = Replace(Range("E80").Formula, "Wk1", Range("E80").Parent.Name) 
    End If 
Next ws 

MsgBox "Done" 
End Sub 

BEARBEITEN: Geändert, um Kommentar aufzunehmen. Es wird nicht schöner, aber ich fürchte, es gibt keine Methode, um mehrere lose Zellen eleganter zu machen.