Hmmm, hvad gik der lige galt med den dobbelt postering der ???

Nåh, du finder nok ud af det alligevel

Hej igen,

Jeg må nok erkende, at jeg ganske enkelt ikke fatter en bjælde af dit enorme regneark
Det er simpelthen for stort og indviklet for mig - måske, hvis man var inde i materien

Når du laver ting, skal du nok tænke lidt mere i KISS-princippet

Men, et spørgsmpl kan jeg dog svare på: nej, man kan ikke lave yderligere undermapper til sine moduler og userforms - endnu en grund til at holde dette på et overskueligt niveau...

Hejsa...

Undskyld, at jeg først svarer nu (Bededags "ferie", min bare ...)

Jo, du kan let kopiere VBA-moduler, inkl. UserForms, mellem 2 regnearksfiler.

1. Åbn begge regnesfiler og gå ind i VBE
2. Klik med musen på det modul, du vil flytte, og hold muse knappen nede
3. Før modulet, med musen op i VBA-projektet for den regnearkfil, du vil kopierer til.
   

That's it 

Gnaske skrev: Måske skulle jeg finde et VBA kursus et eller andet sted, så jeg forstår lidt mere af, hvad alt det her egentligt betyder

Nu bor vi jo ikke mere end 15 km. fra hinanden, så det er da ikke helt utænkeligt, at vi kunne sætte os ned en eftermiddag, med en kop kaffe, over lidt Excel - visse ting er bare meget lettere, at forstå, og fange ideen af, når man lige får det vist i praksis - plus, at det kan være ret omfattende, at forklare i et forum, på skrift, hvad der kan vises på 10 sekunder i praksis...

Måske man skulle spørge den lokale VUF eller lignende om de ikke ville holde et VBA aftenskursus hen over vinteren, sammen med alle de andre kurser, de alligevel afholder...

...ikke, at jeg ville deltage, men for sådan nogle ildsjæle som dig

Nu virker semikolon mærkeligt nok også her.

Heh, heh - a glitch in the Matrix

eneste måde at 'komme ind bagved', er ved at have koden.

Ja, eller ved at låse regnearket op: www.excelgaard.dk/Bib/Password%20Cracker/ www.excelgaard.dk/Bib/Password Cracker/

var ikke klar over, jeg kunne kalde fanerne andet end deres Indexs Numre

I en dansk Excel er kode navnene for arkene typisk, Ark1, Ark2, Ark3, o.s.v., og man henviser til ark, med deres kode navne i denne stil:

Ark1.Range("A1").Value = "EXCELGAARD"

Jeg har ikke brugt 'vaglfrie argumenter' i VBA overhovedet

Jo, du har
Alene i din brug af 'Replace' funktionen benytter du to valgfrie argumenter - se, hvordan du benytter funktionen uden valgfrie argumenter i et af mine indlæg længere oppe i tråden.

Med hensyn til dine andre problemer, så prøver jeg at finde tid til at kigge på dit regneark lidt senere i dag (hvis ikke andre kommer mig i forkøbet med et svar )

Hej igen,

For det første, så bør du helt afholde dig fra, at benytte de 'valgfrie' (optional) argumenter i funktioner, når deres standard (default) værdier alligevel er, hvad du ønsker.
Ellers bliver din kode alt for besværlig, at læse.

Hvis jeg laver en lille kode, der benytter...

MyTime = Replace(Replace(Replace("12;34", ",", ":"), ";", ":"), ".", ":")

...uden de valgfrie argumenter, så virker det hos mig.

Du kan genkende de valgfrie argumenter på, at de har firkantede klammer [omkring sig].
Start altid med, at lave din kode uden disse argumenter, og først, hvis det viser sig, at koden ikke virker, kan du begynde, at overveje, om du skal benytte disse argumenter.

For det andet, så tror jeg Allan har ret: Du vil vinde meget ved, at lave konverteringen allerede mens brugeren indtaster i UserFromen.
Og, du kan endda vinde en ekstra fordel ved dette, da du så kan teste for alle tegn, der ikke er tal, fremfor kun lige 2-3 stykker (hvad nu, hvis brugeren benytter skråstreg, "/", eller bindestreg, "-", til at adskille timer og minutter?).

For det tredije skal du passe alvorligt på med at henvise til dine regneark med deres indeks numre:

Sheets(x).Range...

...for, hvad nu, hvis brugeren bytter rundt på regnefølgen i regnearksfilen?!?
Så er regneark nummer 4, måske, pludselig nummer 2, og 2 er 6, og 7 er 1, o.s.v.
Og, hvad nu, hvis det pludselig (ved et uheld) er en anden regnearksfil, der er blevet den aktive workbook undervejs?!?!?!
Så, laver du måske MEGET uforudstete og kritiske ændringer i det helt forkerte regneark!!
Det allerbedste er, at henvise til dine faneblade/regneark, ved at benytte deres kodenavne, hvilket har den fordel, at de ALTID automatisk henvise til faneblade i ThisWorkbook, plus det har den fordel, at det er ligegyldigt, hvad brugeren gør med regnearkene (flytter rundt på dem, giver dem andre navne, m.m.) - koden vil altid virke...

Blot et par forslag og ideer...

Hej Excelgaard

Gnaske skrev: Jeg har ikke ret meget forstand på koder og kiggede lidt på hvordan en celle formatteres, når en ubekendt skal indsættes og jeg kan se der brugers "havelåge". Jeg prøvede derfor UserForm1.TextBox1.Value = Format(Sheets(1).Range("D3").Value, "##-##-####") men det virkede selvfølgelig ikke - Ha ha ha..

Det er muliigt, at du ikke har så megen forstand på det, men du gør en ihærdig indsats, vil jeg mene

Hvis det er fordi, du vil formatere ovenstående som en dato, skal du ikke benytte 'havelåger', men der-i-mod dato format symbolerne:

Format(Sheets(1).Range("D3").Value , "dd.mm.yyyy")

Hej Allan.

Her kan det store regneark downloades.