formaterings problemer Textboxe
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=4506
Udskrevet den: 03.Maj.2024 kl. 03:06
Emne: formaterings problemer Textboxe
Besked fra: Ib Hansen
Emne: formaterings problemer Textboxe
Posteringsdato: 27.Mar.2021 kl. 11:25
------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Svar:
Besked fra: Bjarnehansen
Posteringsdato: 27.Mar.2021 kl. 12:59
|
Hej Ib skal du ikke bruge format eller change var det ikke det vi rodede med i et andet ark ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |
Besked fra: Ib Hansen
Posteringsdato: 28.Mar.2021 kl. 11:21
|
Hej Bjarne. Jeg mener også vi har lavet det flere gange i forskellige ark. Men nu jeg tænker efter, tror jeg det var problemet "dato format" mellem Engelsk VBA og Dansk Excel. Dette er et tal i stedet. En Textbox opfatter som bekendt alt der tastes i den som en Tekst og skal derfor formateres både den en og den anden vej i en stor forvirring, for at vise et tal eller en dato. Og det er dét, der volder mig så store problemer hver gang  Jeg kan sagtens taste f.eks. 1000 i en textbox, der overføres til en celle. Og så formaterer cellen til at vise med tusind-sep / komma tal = 1.000,00. Men hvis jeg skriver 1000,50 i Textboxen bliver det til en tekst i cellen i stedet, der ikke kan lave en sum. Samtidigt ønsker jeg at ændre de 1000 jeg tastede i Textboxen til at vise 1.000,00, når jeg hopper til næste Textbox med "Textbox_Exit". Men det går også helt galt, da tallet i cellen igen vil ændre sig til en tekst, der ikke kan lave en sum. Husk, hvis jeg ændre tallet med "Textbox_Exit" vil det have indflydelse på "Textbox_Change", der ændre formatet i cellen.. Jeg har endda prøvet at lave en mellemregning over en helt anden celle. Men det har samme resultat pga. "Textbox_Change", når den overfører de 1.000,50 til Textboxen, når den hopper til næste Textbox med "Textbox_Exit". Det har noget at gøre med.. - Sheets("Ark1").Range("A1") = Format(Userform1.Textbox1, "0.00"). - Userform1.Textbox1 = Format(Sheets("Ark1").Range("A1"), "0.00"). Og alle de mulige og umulige måder dét kan kombineres på, uden det konflikter med hinanden pga. "Textbox_Change" og "Textbox_Exit". Og jeg er meget usikker på, hvordan den skal kringles uden de ødelægger det for hinanden. Ps. Formel 1 i dag efter en lang pause     Det bliver spændende at følge de to nye nokkefår i HAAS. Har du forøvrigt set denne - https://wetransfer.com/" rel="nofollow - https://wetransfer.com  - Opret dig. - /topic662.html" rel="nofollow - /topic662.html - upload en fil eller en hel mappe. - Hent link og send det. - Kan sende op til 2Gb i hver fil eller mappe. - Filen/Mappen forsvinder automatisk igen efter 7 dage.
------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Besked fra: Ib Hansen
Posteringsdato: 01.Apr.2021 kl. 19:29
|
Hej Forum. Jeg gik på et Engelsk Forum og fik løsningen i løbet af 15-30 minutter. "Problem Solved" uploads/1125/Solved_Formatting_problem_in_Textboxes.xlsm" rel="nofollow - Se løsning her ------------- Excel 2010 Dk og 2019 Dk på samme computer. Bruger dog stadig mest 2010.. Men sådan er der jo så majet :o) |
Besked fra: Bjarnehansen
Posteringsdato: 01.Apr.2021 kl. 21:50
|
tak for info God Påske ------------- Husk, at trykke på [Tak], hvis du kan lide et indlæg. Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag. Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK |