2016-07-05 10 views
0

Ich habe eine Schaltfläche auf Blatt 1, die Code ausführen ein erstelltes Blatt, im Grunde erstellt das Programm ein neues Blatt, kopieren Sie den Code auf dem Blatt 2 auf dieses neue Blatt, führen Sie den Code Zeigen Sie auf diesem neuen Blatt das Endergebnis auf Blatt 1 an und löschen Sie dieses neue Blatt. Aber ich habe Probleme, den Code auszuführen, führt den Code nicht aus.Aufruf und Ausführen eines Codes in einem anderen Blatt

Das neue Blatt hat den Namen Calcs.

Private Sub CommandButton2_Click() 

Dim MySheet As Worksheet 
Set MySheet = ThisWorkbook.Sheets("Calcs") 

Call MySheet.Mycode 

End Sub 
+1

Wo fällt es zusammen? Wenn Sie nicht wissen, durchlaufen Sie den Code und finden Sie die Zeile, die den Fehler verursacht. Können Sie auch den 'Mycode'-Subtext posten – Tom

+0

Wenn das Ihr ganzer Sub für das 'CommandButton2_Click' ist, erstellen Sie das Arbeitsblatt nicht, bevor Sie es einer Variablen zuweisen. –

+0

@Tom der Fehler, der angezeigt wird, ist: Dieses Objekt unterstützt diese Eigenschaft oder Methode. Fall in dieser Zeile Call MySheet.Mycode –

Antwort

1

Mysheet enthält keinen Code, wenn Sie ihn aufrufen. Wenn Sie das neue Blatt löschen, haben Sie wirklich keinen Zweck, den Code im neuen Blatt zu speichern. Warum speichern Sie den Code nicht als öffentlich in einem Modul?

Verwandte Themen