Select Active Sheet scheint nicht zu funktionieren

Question

So versuche ich ein paar Makros zu schreiben, wo ich verschiedene verschiedene Bits auf einem Arbeitsblatt wie Löschen von Inhalten und Neuanordnen anpassen. Wenn das betreffende Blatt "HAUPTBLATT" ausgewählt ist (auf dem Bildschirm geöffnet), funktionieren die Makros einwandfrei. Wenn ich versuche, sie über eine Makroschaltfläche auf einem anderen Blatt auszuführen, interagieren sie offensichtlich automatisch mit dem betreffenden aktiven Blatt.

ich einen Bereich für die Herstellung der verschiedenen Befehle haben versucht, ein Blatt aktiv/Auswahl, aber jedes Mal mit Laufzeitfehler aufkommt 9

Jede Hilfe zu welchem ​​dummen Fehler ich mache würde viel sein geschätzt!

Die aktuelle Inkarnation einer der Codes unter

Sub sbClearMainSpreadsheet() 
Worksheets("MAIN SHEET").Range("A1:X999").Select 

Range("A2:F500").ClearContents 
Range("J2:O500").ClearContents 
Range("R2:Y500").ClearContents 
Range("A2:Y500").Interior.Color = xlNone 

If MsgBox("Are you sure you want to clear the Main Spreadsheet?", vbYesNo) = vbNo Then Exit Sub 

End Sub 

dank

A

Answer 1

Statt Select die „Großschot“, es ist besser, wenn Sie voll qualifizierte Objekte verwenden.

Ich glaube, Sie Ihren Code gemeint unten etwas wie der Code aussehen:

Sub sbClearMainSpreadsheet() 

    ' have the input confirmation box before clearing the contents (not after) 
    If MsgBox("Are you sure you want to clear the Main Spreadsheet?", vbYesNo) = vbNo Then Exit Sub 

    With Worksheets("MAIN SHEET") 
     .Range("A2:F500, J2:O500, R2:Y500").ClearContents 
     .Range("A2:Y500").Interior.Color = xlNone 
    End With 


End Sub 

Answer 2

Sie sollten das „Aktivieren“ Methode anstelle der „Select“ -Methode.

Worksheets ("Großschot"). Aktivieren

https://msdn.microsoft.com/en-us/library/office/ff838003.aspx?f=255&MSPPError=-2147217396