CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

KenneyD71 Nybegynder

24. juni 2015 - 18:34 Der er 12 kommentarer og
1 løsning

VBA kodning på engelsk, eksekvering på dansk

Jeg sidder og koder på en engelsk maskine og tester min kode på en engelsk maskine.
Jeg indsætter nogle koder som fx. "=CountIF"." Når så jeg sender min VBA kode til DK, står der "=CountIF". - hvor det burde have været "Tæl.Hvis".

Det får naturligvis mit program til at fejle. Den enkle (men tidskrævende) løsninger er at manuelt oversætte inden koden sendes. meen, det kunne være rart hvis der findes en let løsning

Hvad kan jeg gøre i stil med:
Hvis system er engelsk så formula "=CountIF". ellers "=Tæl.Hvis".

Findes der en let løsning? Eller er der andre smarte forslag?

Synes godt om

kim1a Ekspert

24. juni 2015 - 18:50 #1

Jeg troede bestemt den oversatte selv.... Hvordan skriver du syntaksen til cellen?

Activecell.formula = "countif"&...?

Synes godt om

KenneyD71 Nybegynder

24. juni 2015 - 21:02 #2

ActiveCell.FormulaLocal = "=COUNTIF(TallySheet!$C:$C;A2)"

Synes godt om

store-morten Ekspert

24. juni 2015 - 21:50 #3

Virker #2 på en engelsk maskine?

på engelsk bruges , i stedet for ;

Synes godt om

store-morten Ekspert

24. juni 2015 - 21:55 #4

ActiveCell.Formula = "=COUNTIF(TallySheet!$C:$C,A2)"

Virker på min DK version.

Bemærk: Local er fjernet og ; er udskiftet med ,

Synes godt om

KenneyD71 Nybegynder

25. juni 2015 - 07:40 #5

ActiveCell.Formula hmmm. gad vide, hvorfor jeg har fået vanen at bruge "local".

Tak skal du have, Morten. Hent dine point.

Synes godt om

KenneyD71 Nybegynder

25. juni 2015 - 07:43 #6

By the way. Kender du fordelen ved "local"? Det virker som en unødig property variant.

Synes godt om

KenneyD71 Nybegynder

25. juni 2015 - 07:49 #7

vildt. Jeg har lige erstattet FormulaLocal med Formula.

På ca. halvdelen af formlerne får jeg fejl.

Jeg kan køre på "Counta" men ikke på "Aggregate".
På "MIN" fungerer det fint, men ikke på "Countif".

Det er når jeg kører på den engelske maskine vel at mærke.

'Antal Typer
ActiveCell.Formula = "=COUNTA(A:A)-1"
ActiveCell.Offset(1, 0).Select
'Summen af alle opgaver
ActiveCell.FormulaLocal = "=AGGREGATE(9;2;B:B)"
ActiveCell.Offset(1, 0).Select
'Ældste dato
ActiveCell.Formula = "=MIN(Ekspo_bunke!E:E)"

Synes godt om

store-morten Ekspert

25. juni 2015 - 13:35 #8

'Antal Typer
ActiveCell.Formula = "=COUNTA(A:A)-1"
ActiveCell.Offset(1, 0).Select
'Summen af alle opgaver
ActiveCell.Formula = "=AGGREGATE(9,2,B:B)"
ActiveCell.Offset(1, 0).Select
'Ældste dato
ActiveCell.Formula = "=MIN(Ekspo_bunke!E:E)"

Synes godt om

store-morten Ekspert

25. juni 2015 - 13:45 #9

Ingen "Local"
; erstattet med ,

Synes godt om

store-morten Ekspert

25. juni 2015 - 14:00 #10

Mener der er sådan

Virker i Dansk og Engelsk version (Uden "Local" Engelsk formel med , )

Sub test1()
'Antal Typer
ActiveCell.Formula = "=COUNTA(A:A)-1"
ActiveCell.Offset(1, 0).Select
'Summen af alle opgaver
ActiveCell.Formula = "=AGGREGATE(9,2,B:B)"
ActiveCell.Offset(1, 0).Select
'Ældste dato
ActiveCell.Formula = "=MIN(Ekspo_bunke!E:E)"
End Sub

Virker kun i Dansk version (Dansk formel med ; )

Sub test2()
'Antal Typer
ActiveCell.FormulaLocal = "=TÆLV(A:A)-1"
ActiveCell.Offset(1, 0).Select
'Summen af alle opgaver
ActiveCell.FormulaLocal = "=SAMLING(9;2;B:B)"
ActiveCell.Offset(1, 0).Select
'Ældste dato
ActiveCell.FormulaLocal = "=MIN(Ekspo_bunke!E:E)"
End Sub

Virker kun i Engelsk version (Engelsk formel med , )

Sub test3()
'Antal Typer
ActiveCell.FormulaLocal = "=COUNTA(A:A)-1"
ActiveCell.Offset(1, 0).Select
'Summen af alle opgaver
ActiveCell.FormulaLocal = "=AGGREGATE(9,2,B:B)"
ActiveCell.Offset(1, 0).Select
'Ældste dato
ActiveCell.FormulaLocal = "=MIN(Ekspo_bunke!E:E)"
End Sub

Synes godt om

KenneyD71 Nybegynder

25. juni 2015 - 14:12 #11

Det giver rigtig god mening, Morten.

Det bliver testet i næste uge.
Den første del tror jeg bliver løsningen.

Synes godt om

KenneyD71 Nybegynder

26. juni 2015 - 16:52 #12

Det du'r Morten. Tak skal du have.

Hent dine point.

God Weekend.

Synes godt om

store-morten Ekspert

27. juni 2015 - 11:25 #13

Velbekomme.
tak, i lige måde.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel-kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
SUM hvis ikke Af RazzP i Excel	4	I dag 12:40	I dag 15:07
Beregning af køretid Af Boe i Excel	1	I går 18:41	I går 22:49
HYPERLINK - kun 16 karakterer? Af jenslund i Excel	6	27/05/202514:01	29/05/202511:10
How to count unique values in four columns horizontal array Af Nuser2008 i Excel	2	26/05/202513:07	27/05/202514:21
Formel eller vba kode til altid at splitte tekst til kolonne Af Snedronning i Excel	3	24/05/202513:00	24/05/202514:42

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS