macro werkt niet na doorsturing via de mail

[HansHas]

LS,

Ik heb op mijn pc de volgende macro in Excel gemaakt.
De macro werkt correct op mijn pc, maar als ik het bestand via mail naar een andere pc stuur en men klikt daar op de macro knop, dan verschijnt onderstaande melding;

OK:
Compileerfout:
Microsoft Visual Basic kan het benoemde argument niet vinden.

Kaart week nr. 40 (cath) .xls - Module4 (code):

Sneltoets Ctrl + Shift + P

Range ("A1:6421").Sort Key 1:=Range("E2"), Order1:=x1Descending, Key 2=Range ("D2"), Order 2:=x1Ascending, Key3:=Range("F2"), Order3:=x1Ascending, Header:=x1Guess, OrderCustom:=1 MatchCase:False, Orientation:=x1TopToBottom, DataOption1:=1SortNormal DataOption2:=x1SortNormal, DataOption3:=x1SortNormal Selection:Subtotal GroupBy=5, Function:=x1Sum, Totallist:=Array(7), _ Replace:=True, Pagebreaks:=False, Summary Below Data:True
Range (Ä1:6446").Select Selection.copy
Sheets ("Printen) Select
Range (Ä1").Select
ActiveSheet.Paste
Range(Ä1").Select
Application.CutCopyMode=False


Kan iemand mij laten weten, waarom de macro niet werkt?

 

[richard1970]

Hoi Hans

Een mogelijke oorzaak is de terugkomende tikfout:
Range (Ä1:6446").Select Selection.copy
Hier moet staat:
Range ("A1:6446").Select Selection.copy

Ik vind het vreemd dat de macro het op jouw pc doet, want het opgegeven bereik klopt niet.

Daarnaast noem je:
Kaart week nr. 40 (cath) .xls - Module4 (code):
Als de ontvanger het bestand anders noemt dan "Kaart week nr. 40 (cath) .xls", dan vindt VBA de genoemde sub niet.

Succes,

Richard

 

[HansHas]

macro in Excel werkt niet

Ha Richard,

De opsomming van de macro is wat verminkt weergegeven in mijn 1e bericht.
Daarom onderstaand nogmaals de macrospecificatie;

Sub Printen()
'
' Printen Macro
' De macro is opgenomen op 28-11-2005 door Hans Hartmans.
'
' Sneltoets: CTRL+SHIFT+P
'
Range("A1").Select
Range("A1:G421").Sort Key1:=Range("E2"), Order1:=xlDescending, Key2:= _
Range("D2"), Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1:G446").Select
Selection.Copy
Sheets("Printen").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("Weektotaal").Select
Range("A1").Select
Sheets("Printen").Select
Range("A1").Select
End Sub

Dus op mijn pc werkt de macro perfect, maar op een andere pc niet (compilatiefout).
Kan het te maken hebben met de gebruikte softwareversies?

m.vr.gr.
Hans

 

[LucB]

Hans,

De macro aangepast.

Sub Printen()
'
' Printen Macro
' De macro is opgenomen op 28-11-2005 door Hans Hartmans.
'
' Sneltoets: CTRL+SHIFT+P
'
Range("A1").Select
Range("A1:G421").Sort Key1:=Range("E2"), Order1:=xlDescending, Key2:= _
Range("D2"), Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending _
, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1:G446").Select
Selection.Copy
Sheets("Printen").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Sheets("Weektotaal").Select
Range("A1").Select
Sheets("Printen").Select
Range("A1").Select
End Sub

In het sorteergedeelte de "DataOptons"verwijderd.

De Excel-versies ouder dan versie 10 lopen hierop stuk.
En de versies 10 en 11 kunne er ook zonder.

Hoop dat het helpt.