UserForm tekstbox gemmer IKKE tekst efter gem
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=3044
Udskrevet den: 06.Maj.2024 kl. 20:48
Emne: UserForm tekstbox gemmer IKKE tekst efter gem
Besked fra: Gambino
Emne: UserForm tekstbox gemmer IKKE tekst efter gem
Posteringsdato: 11.Maj.2017 kl. 23:10
|
Jeg har oprettet en tekstbox: supertest i en UserForm med navnet: test Ark2 er navnet på den side hvor jeg åbner min UserForm Når jeg skriver i supertest ønsker jeg at det skrevne bevares for senere brug, også når jeg har gemt siden og åbner den igen. Kan nogen give et forslag hertil? Nedenstående virker desværre ikke.
Private Sub supertest_Change() Sheets("Ark2").Range("A1").Value = supertest.Value End Sub
Private Sub test_Initialize() supertest.Value = Sheets("Ark2").Range("A1").Value End Sub |
Svar:
Besked fra: Gambino
Posteringsdato: 12.Maj.2017 kl. 10:55
| Det jeg forestiller mig er at teksten bliver i tekstboksen og ikke som i ovenstående eks. opmagasineres på regnearket. |
Besked fra: Bjarnehansen
Posteringsdato: 12.Maj.2017 kl. 11:45
|
prøv at /topic662.html - upload dit ark for som jeg ser det har du fejl i din kode og så vidt jeg ved kan man kun gemme data i en celle til senere brug hvor du skal genindlæse den. Sheets("Ark2").Range("A1").Value = supertest.Value Sheets("Ark2").Range("A1").Value = userform.tekstboxnr.Value supertest.Value = Sheets("Ark2").Range("A1").Value userform.tekstboxnr.Value = Sheets("Ark2").Range("A1").Value tror jeg de skal se ud ------------- 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: Gambino
Posteringsdato: 12.Maj.2017 kl. 18:45
uploads/1976/Test.xlsm" rel="nofollow - uploads/1976/Test.xlsm Det er faktisk smart at man kan /topic662.html - uploade "smertensbarnet" 
|
Besked fra: EXCELGAARD
Posteringsdato: 13.Maj.2017 kl. 14:00
|
Sådan? uploads/732/Gem_UserForm_Vaerdi.XLSm" rel="nofollow - uploads/732/Gem_UserForm_Vaerdi.XLSm ------------- 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. |
Besked fra: zpjj
Posteringsdato: 14.Maj.2017 kl. 06:40
|
Hej EXELGAARD Af ren nysgerrighed, hvor gemmer Excel værdien IB_Test_Value ? Hvis jeg gør følgende: ' ThisWorkbook.Names("IB_Test_Value").Delete ThisWorkbook.Names.Add Name:="IB_Test_Value", RefersToR1C1:="=" & Chr$(34) & IB_Test.Value & Chr$(34), Visible:=True Så kan jeg se IB_Test_Value i Name Manager, men hvor ligger værdien når programmet har været lukket ned og bliver startet op igen ? ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |
Besked fra: EXCELGAARD
Posteringsdato: 14.Maj.2017 kl. 08:09
|
Værdien bliver gemt i et skjult navn i selve regnearksfilen. Værdien følger derfor selve regnearksfilen, præcist, som den tekstboks, som er lavet i selve regnearket. Man behøver ikke gøre navnet skjult, men, hvis man har mange af den slags gemte værdier, så kan de "ødelægge" ens navneliste, og da man ellers ikke har direkte behov for dem, så gi'r det mening, at skjule dem. Den helt store fordel, ved at gemme værdierne i et navn er, at man efterfølgende kan benytte dem direkte i regneark og formler, så værdier fra en UserForm, kan uden videre benyttes i diverse beregninger - ja, værdierne kan benyttes selv i andre UserForms.... Jeg mener, at mit løsningsforslag er en "nifty" og smart metode, men lad os se, hvad OP melder tilbage  ------------- 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. |
Besked fra: zpjj
Posteringsdato: 14.Maj.2017 kl. 08:19
Tak for forklaringen EXCELGAARD, det var en super forklaring.  Smart måde at gøre det på "Maybe we can use that in another afsnit" ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |
Besked fra: zpjj
Posteringsdato: 14.Maj.2017 kl. 09:41
|
#Gambino Prøv: Din: Private Sub test_Initialize() supertest.Value = Sheets("Ark1").Range("A1").Value End Sub Min: Private Sub Userform_Initialize() supertest.Value = Sheets("Ark1").Range("A1").Value End Sub Du kan godt kalde din userform "test" men til Initialize, brug Userform. Dette er bare et ekstra forslag, men EXCELGAARD's er genialt ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |
Besked fra: EXCELGAARD
Posteringsdato: 14.Maj.2017 kl. 12:16
Der er såment ikke noget i vejen med dit forslag, Peter, men
"problemet" er blot, at Gambino spørger efter en metode, hvor man IKKE
benytter en celle som mellemled 
------------- 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. |
Gambino skrev:Besked fra: zpjj
Posteringsdato: 14.Maj.2017 kl. 12:46
EXCELGARD, du har ret det er mig der trænger til briller  ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |
Besked fra: zpjj
Posteringsdato: 14.Maj.2017 kl. 12:53
|
Det der også slog mig ved Userform Initialize Er at han brugte "Private Sub test_Initialize()" som hans userform hedder. Det kunne jeg ikke få til at virke, men gik fint med "Private Sub Userform_Initialize()" ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |
Besked fra: Gambino
Posteringsdato: 16.Maj.2017 kl. 21:33
|
16-05-2017 Tak til alle. Jeg
blev rigtig meget klogere. MEN så klog blev jeg
dog ikke. Jeg har stadig ikke fattet hvordan man ser uploadede filer som denne: uploads/732/Gem_UserForm_Vaerdi.XLSm Og derfor er jeg gået glib af EXCELGAARD spændende løsning. Hjælp mig til at se den. For min computer bliver enormt sur når jeg forsøger at kikke og smider mig ud af mit exelprogram ;-( ZPJJ tit program virker hos mig og var det ikke for min enorme nysgerrighed for at se EXCELGAARDs løsning (og forstå den) så ville jeg bruge det. Jeg håber i tilgiver
at jeg ikke har været så hurtig på tasterne. Min computer har det ikke godt og
har været nede i en dags tid. |
Besked fra: EXCELGAARD
Posteringsdato: 17.Maj.2017 kl. 07:48
uploads/732/Gem_UserForm_Vaerdi.XLSm" rel="nofollow - uploads/732/Gem_UserForm_Vaerdi.XLSm ...og, gem filen lokalt, og åbn derfra. ------------- 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. |
Besked fra: Gambino
Posteringsdato: 17.Maj.2017 kl. 22:44
|
Tak til zpjj som sendte mig filen Men jeg har et problem med at åbne den. Det samme problem dukkede op da jeg forsøgte at hente filen og derfor troede jeg at jeg ikke havde forstået afhentningsproceduren. Da jeg forsøgte at åbne "Copy of Gem_UserForm_Vaerdii" fik jeg en Fejlmeddelelse:
"Microsoft Excel Microsoft Excel kan ikke åbne eller gemme flere dokumenter, fordi der ikke er tilstrækkelig hukommelse eller diskplads. • Luk projektmapper eller programmer, du ikke længere skal bruge, for at få mere ledig hukommelse. • Slet de filer, du ikke længere skal bruge, på den disk, hvor du gemmer filer, for at frigøre diskplads."
Dette skyldes IKKE pladsmangel der er flere GB til rådighed. Mine egne regneark åbner uden problemer.
Sandsynligvis er det noget helt andet. Måske blev den "vedlagt" en kode: komma eller tomt feldt, hvad ved jeg, da den blev sendt. Forslag modtages. Jeg glæder mig til at se filen. |
Besked fra: EXCELGAARD
Posteringsdato: 18.Maj.2017 kl. 07:26
Hmmmm...  Jeg tror, det må være noget lokalt, for jeg har ikke hørt, at der skulle være andre, der har problemer med filen - Peter, der sendte dig filen, har heller ikke meldt tilbage om nogen fejl... Prøv:
------------- 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. |
Besked fra: zpjj
Posteringsdato: 18.Maj.2017 kl. 09:02
|
Jeg har ikke oplevet nogen fejl på filen. Den virker fint hos mig ------------- Med venlig hilsen Peter Juul Jeg bruger EXCEL 2010 |
Besked fra: Bjarnehansen
Posteringsdato: 18.Maj.2017 kl. 19:22
den virker også her  ------------- 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: Gambino
Posteringsdato: 18.Maj.2017 kl. 23:32
Alt tyder desværre på at der er en fejl her. godt nok har computeren drillet et godt stykke tid  men jeg regner med at formatere windows drevet. jeg vender tilbage når det er gjort forhåbentligt i overmorgen.tak for jeres hjælp indtil nu.
|
Besked fra: EXCELGAARD
Posteringsdato: 19.Maj.2017 kl. 07:50
|
Har nu prøvet på en WinXP, Win7, Win8 og Wini10... Og, XL2010, XL2013, XL2016... Dansk som Engelsk... 32-bit og 64-bit... Virker på alle konfigurationer... Jeg tror, altså, fejlen ligger i din ende, Gambino ------------- 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. |
Besked fra: Gambino
Posteringsdato: 29.Maj.2017 kl. 21:30
|
Det varede lidt. men nu køre det forhåbentligt. TAK til EXELGAARD for den suverænt geniale løsning på mit problem. jeg har først set det i dag.så tak til alle i andre.
|
Besked fra: EXCELGAARD
Posteringsdato: 30.Maj.2017 kl. 07:59
|
Velbekomme - husk, at acceptere svaret, så andre kan få glæde af det... ------------- 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. |
Besked fra: Gambino
Posteringsdato: 13.Jun.2017 kl. 00:02
|
Jeg håber det er i
orden at jeg tager spørgsmålet med Userforme op igen. Der er opstået behov
for at have flere tekstboxe i samme userform og dermed er det gået op for mig
at jeg alligevel ikke fattede et pluk. Hvordan jeg end vender og vrider det går jeg i stå over for de" Private Sub userform_????" Hvordan virker de og hvordan hænger de sammen med andre ønskede tekstboxe. Er der nogen der kan forklare mig hvordan jeg bruger Exelgaards geniale løsning så jeg 1. forstår den bedre. 2. kan have en række tekstbokse. |
Besked fra: EXCELGAARD
Posteringsdato: 13.Jun.2017 kl. 15:04
|
Fair nok, at du gerne vil oprette et nyt spørgsmål - men, kunne du så ikke oprette en ny tråd med det nye spørgsmål? At 'piggy back ride' på et eksisterende spørgsmål er ikke betragtet som god forum opførelse (no hard feeling - just telling...) Da spørgsmålet også er om et, i princippet, helt nyt emne (forståelse af UserForms, mod programmeringsteknik), så hører dit spørgsmål til i en ny tråd... Sorry.. (Evt. kunne Admin flytte det til en ny tråd?) ------------- 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. |