Makro, das durch jeden Datenpunkt in der Datenüberprüfungsliste läuft

Question

Ich möchte ein Makro codieren, das durch jeden Datenpunkt in den zwei Datenüberprüfungslisten läuft, die sich auf verschiedenen Blättern befinden. Hier ist der Code, den ich schrieb:

Sub selfrefpop() 

    Dim cell1   As Excel.Range 
    Dim cell2   As Excel.Range 
    Dim SO    As Excel.Range 
    Dim AF    As Excel.Range 
    Dim rgDV1   As Excel.Range 
    Dim rgDV2   As Excel.Range 
    Dim activews  As Worksheet 
    Dim dashboard  As Worksheet 

     Set activews = ActiveWorkbook.ActiveSheet 

     Set dashboard = Sheets("Dashboard") 

     Set SO = activews.Range("D8") 

     Set AF = dashboard.Range("L17") 

     Set rgDV1 = activews.Range(SO.Validation.Formula1) 

     With dashboard 
     Set rgDV2 = .Range(AF.Validation.Formula1) 
     End With 

     For Each cell1 In rgDV1 
      rgDV1.Value = cell1.Value 

      For Each cell2 In rgDV2 
       rgDV2.Value = cell2.Value 
      Next 
     Next 

End Sub 

ich einen Fehler in Zeile bekommen:

Set rgDV2 = .Range(AF.Validation.Formula1) 

Fehler sagt: "Die Methode 'Range' des Objekts '_Worksheet' ist fehlgeschlagen, Fehler 1004"

I kenne es als Referenzfehler. Aber ein Problem zu haben, das Problem herauszufinden.

Danke.

Answer 1

Sie versuchen, Set rgDV2 = .Range(AF.Validation.Formula1) zu verwenden, aber AF.Validation.Formula1 ist kein Bereich. Wenn Sie die Validierungsformel auf Ihre Prozentwertliste anwenden, sollte sie funktionieren.