VBA Arbeitsmappe außerhalb des zulässigen Bereichs - Index Fehler

Question

Ich erhalte eine

subscript out of range

Fehler, wenn im ein Array und eine Arbeitsmappe in diese Funktion übergeben. Kann jemand sehen, was damit nicht stimmt?

--Update--

Private Function PasteFunction(cd As Variant, wk As Workbook) As Boolean 

Dim bool As Boolean, row As Integer, col As Integer 
bool = False 
col = 1 
row = 3 


Do While bool = False 
MsgBox row 
MsgBox col 
    If IsEmpty(wk.Sheets("Sheet1").Cells(row, col)) = True Then 
     For col = 1 To 81 
      wk.Sheets("Sheet1").Cells(row, col) = cd(col) 
     Next col 
     bool = True 

    Else 
     row = row + 1 
    End If 
    Loop 

End Function 

Answer 1

Diese Zeile erzeugt den Fehler:

If IsEmpty(wk.Sheets("Sheet1").Range(col & row)) = True Then 

Range (col&row) kehrt so etwas wie Range(1223) und Excel-Werte wie Range("A12:A53") erwartet.

auf Ihrem Code zu urteilen, sollte die Logik so aussehen:

Cells(row, col) statt Range(col & row).

Answer 2

Subskript außerhalb des Bereichs Fehler kann entweder aufgrund eines falschen Verweis auf Arbeitsmappe oder Blatt Verweis oder weil Ihre Array-CD ist kürzer als 81 Elemente verursacht werden. Wie rufst du deine Funktion an? Können Sie Ihren Funktionsaufruf posten? Die Arbeitsmappe Pfad falsch sein kann, auch für Fehler Rechtschreibung überprüfen

Answer 3

Wenn cd 81 Elemente hat dann sie von CD laufen (0) auf CD (80) Wenn Sie sie in Spalten setzen wollen 1-81 Sie benötigen

For col = 1 To 81 
     wk.Sheets("Sheet1").Cells(row, col) = cd(col-1) 
    Next col