Geben Sie Mismatch-Fehler ein und deklarieren Bereichsvariable in Excel VBA

Question

Dies sollte eine einfache Lösung sein, aber ich habe gesucht und gesucht und kann nicht herausfinden, was falsch ist.

Ich erhalte eine "Laufzeitfehler 13: Type Mismatch":

Dim rng As Range  
Dim endRW As Integer, endCol As Integer 
endRW = 30 
endCol = 10 
Set rng = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2,3),Sheets("Sheet1").Cells(endRW,endCol)) 

^^^ der letzten Zeile verursacht den Fehler ^^^^

Answer 1

Versuchen

Set rng = Sheets("Sheet1").Range(Cells(2, 3), Cells(endRW, endCol)) 

Beweise.

Answer 2

versuchen diese

Sub temp() 
    Dim rng As Range 
    Dim endRW As Long, endCol As Long 
    endRW = 30 
    endCol = 10 
    Set rng = Worksheets("Sheet1").Range(Cells(2, 3), Cells(endRW, endCol)) 
End Sub