Print side | Luk vindue

Knap til at ændre sprog i standardblanket

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=226
Udskrevet den: 14.Maj.2024 kl. 05:12


Emne: Knap til at ændre sprog i standardblanket
Besked fra: Bladsgaard
Emne: Knap til at ændre sprog i standardblanket
Posteringsdato: 09.Feb.2011 kl. 08:30
Hej,
 
Jeg er nybegynder mht. makroer, og har endnu ikke lært VB programmering, men har en del erfaring med Excel og PC'er i øvrigt.
 
Jeg er i gang med at udvikle et standard datablad for emballering i den logistikafdeling, jeg arbejder i.
 
Jeg har brug for en funktion, hvor man vha. et sæt knapper, kan vælge mellem tysk og engelsk sprog i databladet - knapperne er indsat, men der er endnu ikke tilknyttet nogen funktionalitet til dem.
 
Der er således behov for at have al den alternative tekst liggende et sted, men om det skal være på et andet (gemt) faneblad, eller indgå i selve program-funktionen, eller noget helt tredje, kan jeg ikke lige bedømme.
 
Min antagelse er, at en sådan funktionalitet bedst kan opnås vha. en makro?
 
Jeg har vedhæftet databladet i sin nuværende form (udgangspunktet er på tysk, og man skal så gerne kunne skifte til engelsk via knapperne), og håber, at nogen på forummet kan være mig behjælpelig med at beskrive en løsning - på forhånd mange tak!
 
Hilsen
Bladsgaard 
 
/uploads/185/Verpackungsdatenblatt_Standard.xlsm - uploads/185/Verpackungsdatenblatt_Standard.xlsm


Svar:
Besked fra: rassten
Posteringsdato: 09.Feb.2011 kl. 21:58

Hej

 

Jeg har lavet eksempel som ikke bruger VBA.

I stedet for ”Active X-objekt”, bruger jeg ”Kontrolelementer for fomular” til at give samme valg for sprog. Disse nye knapper er linket til ”Sheet3” således at engelsk giver et 1 tal i ”F2” og tysk et 2 tal i ”F2”.

På ”Sheet3” har jeg også lavet en tabel med tekst nr., engelsk tekst og tysk tekst.

Tilbage på ” Verpackungsdatenblatt” lavede jeg i celle ”AC1” formlen ”= LOPSLAG(RÆKKE(A1);Sheet3!$A$1:$C$23;Sheet3!$F$1+1;FALSK)” og trak denne ned gennem arket til der var lige så mange rækker med formler som rækker med tekst på ”Sheet3”

Derefter gik jeg i gang med at kopier disse formler over i arket i de rigtige celler. Slettede de formler som var i kolonne ”AC”.

uploads/107/Skift_sprog_uden_makro.xlsm - uploads/107/Skift_sprog_uden_makro.xlsm

-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: Bladsgaard
Posteringsdato: 10.Feb.2011 kl. 14:57
Hej rassten,
 
Mange tak for dit løsningsforslag!
 
Jeg har kopieret formlerne, hvor det var nødvendigt, samt indsat den nødvendige tekst på 2 sprog.
 
Det virker helt efter hensigten.
 
Hilsen
Bladsgaard

Besked fra: rassten
Posteringsdato: 10.Feb.2011 kl. 15:01
Glad for jeg kunne hjælpe

-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: rassten
Posteringsdato: 10.Feb.2011 kl. 15:38
Når du har valgt at se arket i "sidelayout" bliver formlerne ikke opdateret.
Prøv at vælge arket i "normal" så virker knapperne igen


-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: Bladsgaard
Posteringsdato: 10.Feb.2011 kl. 15:40
Hej igen,
 
Jeg har nu beskyttet sheet'et, så man kun kan skrive i de grå felter, samt gemt fanebladet med oversættelserne.
 
Pludselig fungerer knapperne til skift af sprog ikke længere.
 
Så vidt jeg kan se, skifter værdien i F2 på sheet3 stadig mellem 1 og 2, men der sker ingen skift af tekst i de celler, hvor der er formler sat ind.
 
Kan du se, hvad det skyldes?
 
Jeg har vedhæftet både en låst og en ulåst version.
 
Hilsen
Bo
 
/uploads/185/Verpackungsdatenblatt_Standard_protected1.xlsm - uploads/185/Verpackungsdatenblatt_Standard_protected1.xlsm
/uploads/185/Verpackungsdatenblatt_Standard_unprotected1.xlsm - uploads/185/Verpackungsdatenblatt_Standard_unprotected1.xlsm

Besked fra: rassten
Posteringsdato: 10.Feb.2011 kl. 15:41
Når du har valgt at se arket i "sidelayout" bliver formlerne ikke opdateret.
Prøv at vælge arket i "normal" så virker knapperne igen

-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: Bladsgaard
Posteringsdato: 10.Feb.2011 kl. 15:42
Ah, tænk - noget så simpelt...
 
Igen et eksempel på, at jo mere man lærer, desto mere bliver man klar over, hvor meget man ikke ved.
 
Endnu en gang stort tak for hjælpen!
 
Bo


Print side | Luk vindue