VBA 오류 9 해결책을 찾을 수 없습니다.

Question

여기에 런타임 오류 9에 대한 기사를 많이 읽었지만 내 경우에 적용되는 방식을 이해하지 못했습니다. 나는 VBA에 대해서도 매우 익숙하다. 왜냐하면 이것이 기본과 관련이 있다면 ...

어쨌든, 범위 ("A39 : D39")를 다음 중 하나 다른 시트의 표. 어떤 테이블 (특별히 테이블로 포맷되지 않은)은 사용자가 목록 상자에 입력 한 내용에 따라 다릅니다.

Sub ListBoxValue_Method3() 

    Worksheets("Calculations").Activate 

    Dim lbValue As Integer 

    lbValue = Worksheets("Calculations").ListBoxes("List Box 8").Value 

    Worksheets("Calculations").Range("A39:D39").Copy 


Select Case lbValue 

    Case 1 

    Worksheets("Dashboard").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues 

    Case 2 

    Worksheets("Dashboard").Range("H" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues %%%%%ERROR HERE%%%%% 

    Case 3 

    Worksheets("Dashboard").Range("N" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues 

    Case Else 

    MsgBox ("Check input") 

End Select 


End Sub 

오류는 다음과 같습니다 : 나는 엑셀 2016 (365)를 사용하고

Run-time error '9': 

Subscript out of range 

여기 내 코드입니다. 미리보기에 시간을 할애 해 주실 분은 미리 감사드립니다.

Answer 1

MAC을 사용하는 것 같습니다. 그렇지 않습니다.

하지만이 코드는 항상 내가 당신의 "목록 상자 8"목록 상자를 가정

Sub ListBoxValue_Method3() 
    Dim lbValue As Integer 

    With Worksheets("Calculations") 
     lbValue = .OLEObjects("List Box 8").Object.value 

     With .Range("A39:D39") 
      Select Case lbValue 
       Case 1 
        Worksheets("Dashboard").Range("B" & Rows.Count).End(xlUp).offset(1, 0).Resize(, .Columns.Count).value = .value 
       Case 2 
        Worksheets("Dashboard").Range("H" & Rows.Count).End(xlUp).offset(1, 0).Resize(, .Columns.Count).value = .value 
       Case 3 
        Worksheets("Dashboard").Range("N" & Rows.Count).End(xlUp).offset(1, 0).Resize(, .Columns.Count).value = .value 
       Case Else 
        MsgBox ("Check input") 
      End Select 
     End With 
    End With 
End Sub 

는 "액티브"하나

Answer 2

을 시도 할 줄 수 확실히 시트의 이름이 정확한지 - .- '

코드는 문제가 없으며 단지 존재하지 않는 워크 시트입니다.

간단한 것을 놓치면 얼마나 오랜 시간이 걸릴 수 있습니다!