Methode Bereich des Objekts Global fehlgeschlagen

Question

Ich bekomme immer einen Methodenbereich von Objekt __global Fehler für meinen Code, obwohl ich das Arbeitsblatt initialisiert und sichergestellt, dass der Name korrekt ist. Irgendeine Hilfe? Der Code soll eine Reihe von Zellen zu finden, um mit Daten in in eine zweite Tabelle gesetzt werden

Sub potential() 

'Add hours for potential work to generate function 

Sheets("Resourcing Sit-Rep").Select 

p = Range("Potential person").End(xlDown).Row - Range("Potential person").Row 
For k = 1 To p 

    For j = 1 To 187 
     If Range("hours").Offset(k, j).Value > 0 Then 

     Sheets("Resource Forecast").Select 
      Val5 = Range("Potential person").Offset(k, 1).Value 
      Val6 = Range("Potential person").Offset(k).Value 
      Val7 = Range("hours").Offset(k, j).Value 
      Val8 = Range("date").Offset(0, j).Value 

     Sheets("Resourcing Sit-Rep").Select 
      A = Range("Leader").Offset(0, 2).End(xlDown).Row - Range("Leader").Offset(0, 2).Row + 1 

      Range("Leader").Offset(A, 2).Formula = Sheets("Resource Forecast").Range("Project_Number").Value & " (" & Sheets("Resource Forecast").Range("Project_Name").Value & ") - " & Val5 & " POTENTIAL WORK" 
      Range("Leader").Offset(A, 3).Formula = Val6 
      Range("Leader").Offset(A, 4).Formula = Val7/7.5 
      Range("Leader").Offset(A, 5).Formula = Val8 

     Else 

     End If 

    Next j 

Next k 
'Range("Leader").Offset(1, 0).Resize(1, 2).AutoFill Destination:=Range("A4", Cells(Range("Leader").Offset(0, 2).End(xlDown).Row, 2)), Type:=xlFillDefault 

End Sub 

Answer 1

Das erste, was ich sagen möchte, ist, dass Sie immer Ihre Bereiche mit Besonderheiten Arbeitsblatt Objekte qualifizieren sollte.

Aber das Problem ist, dass dies:

Range("Potential person") nicht funktioniert. Die Reichweitenmethode kann einen solchen Bereich nicht finden.

Excel benannte Bereiche dürfen keine Leerzeichen enthalten, also haben Ihre Bereiche Unterstriche oder so. Versuchen Sie es mit einem einfachen Test ohne Leerzeichen und Sie sollten Fortschritte machen.