2017-01-02 4 views
-1

ich versucht haben, Werte von einem Excel-Blatt zu einem anderen mit dem folgenden MakroIndex außerhalb des zulässigen Bereichs beim Kopieren einer Excel-Tabelle

Sub Sample() 
    Dim wsI As Worksheet, wsO As Worksheet 

    Set wsI = ThisWorkbook.Sheets("Sheet5") 
    Set wsO = ThisWorkbook.Sheets("Sheet11") 

    wsI.Range(wsI.Range("A1").Value).Copy wsO.Range("A1") 
End Sub 

zu kopieren, aber leider ist es Laufzeitfehler zeigt ‚9‘: Subscript out des Bereichs

wo ich falsch liege bitte helfen !!

+0

Gute Praktiken (nicht unbedingt best practices) vorschlagen Wechsel explizit Indizes zu berechnen, bevor sie verwendet wird. Als solche erstellen Sie eine Variable als Parameter für die 'wsI.Range' Funktion zu dienen und es (Debug-Modus) vor der tatsächlichen Verwendung zu bewerten. Dies wird zeigen, dass Sie das Problem haben. – FDavidov

+0

Es wird an dieser Stelle ein Fehler angezeigt. Set wsI = ThisWorkbook.Sheets ("Sheet5") – leo

+0

Es bedeutet, dass es nicht weiß, was 'Sheet5' ist. Versuchen Sie, jedem Blatt einen eigenen Namen zu geben. Es hilft beim Debuggen (und macht keinen Unterschied in der Ausführung). – FDavidov

Antwort

0

Versuchen Sie, die unterhalb der Linie zu

wsI.Range(wsI.Range("A1").Value).Copy wsO.Range("A1") 

zu

wsI.Range("A1").Copy wsO.Range("A1") 
Verwandte Themen