Verwijzing naar werkblad van een Excel.bestand.

[mulderm]

Hallo,

Ik heb de volgende regels VBA-code opgenomen met de macro-recorder.
Deze zijn geplaats in de module1 van Test.xls.
Probleem is dat wanneer een andere Excel-bestand de focus heeft, deze code op deze bestand wordt toegepast.
De regels moeten zodanig gewijzigd worden dat deze naar de bestand
verwijzen waarin deze module staat in dit geval test.xls.
Wie kan mij helpen?

Sub XYZ()
   Columns("A:A").Select
   Selection.Delete Shift:=xlToLeft
   Range("A1").Select

   Sheets("Query1").Activate
   Cells.Select
   Selection.ClearContents
   Range("A1").Select
End Sub

mulderm

 

[Wigi]

Werkt dit?

Sub XYZ()
   Windows("test.xls").Activate 'kan ook zijn: Windows("test").Activate, ik ben niet zeker
   Columns("A:A").Delete Shift:=xlToLeft
   Sheets("Query1").Cells.ClearContents
   Range("A1").Select
End Sub

Wigi

 

[mulderm]

Het moet zijn:

Sub XYZ()
ThisWorkbook.Activate
Columns("A:A").Delete Shift:=xlToLeft
Sheets("Query1").Cells.ClearContents
Range("A1").Select
End Sub

Dan werkt het perfect!

mulderm