Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketUserForm tekstbox gemmer IKKE tekst efter gem

 Besvar Besvar Side  12>
Forfatter
Gambino Se dropdown
Bronze bruger
Bronze bruger


Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
Direkte link til dette indlæg Emne: UserForm tekstbox gemmer IKKE tekst efter gem
    Sendt: 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

Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 13.Maj.2017 kl. 14:00
Til top
Gambino Se dropdown
Bronze bruger
Bronze bruger


Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
Direkte link til dette indlæg Sendt: 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.
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5485
Direkte link til dette indlæg Sendt: 12.Maj.2017 kl. 11:45
prøv at 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
Til top
Gambino Se dropdown
Bronze bruger
Bronze bruger


Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
Direkte link til dette indlæg Sendt: 12.Maj.2017 kl. 18:45
uploads/1976/Test.xlsm
Det er faktisk smart at man kan uploade "smertensbarnet" Big smile
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 13.Maj.2017 kl. 14:00
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.
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 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
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 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 Smile
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.
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 14.Maj.2017 kl. 08:19
Tak for forklaringen EXCELGAARD, det var en super forklaring. Clap
Smart måde at gøre det på Smile
"Maybe we can use that in another afsnit" Clap
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 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 Big smile
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 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  Geek
Citat: Gambino Gambino skrev:

Det, jeg forestiller mig, er, at teksten bliver i tekstboksen og ikke, som i ovenstående eksempel, opmagasineres på regnearket.
(Se indlæg #2 i denne 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.
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 14.Maj.2017 kl. 12:46
EXCELGARD, du har ret Smile det er mig der trænger til briller LOL
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 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
Til top
Gambino Se dropdown
Bronze bruger
Bronze bruger


Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
Direkte link til dette indlæg Sendt: 16.Maj.2017 kl. 21:33

16-05-2017

Tak til alle. Jeg blev rigtig meget klogere. Big smile

MEN så klog blev jeg dog ikke. Cry

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. Cry

Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 17.Maj.2017 kl. 07:48
Citat: Gambino Gambino skrev:

Jeg har stadig ikke fattet hvordan man ser uploadede filer
Klik på linket...

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.
Til top
Gambino Se dropdown
Bronze bruger
Bronze bruger


Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
Direkte link til dette indlæg Sendt: 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.

Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 18.Maj.2017 kl. 07:26
Hmmmm...  Confused

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:

  1. Slå makroer fra,
  2. Luk Excel helt ned
  3. Åbn filen og kopier VBA koden og UserFormen over i et tomt regneark
  4. Gm denne nye regnearksfil
  5. Luk Excel helt ned
  6. Genstart Excel, slå makroer til
  7. Luk Excel helt ned
  8. Prøv nu, at åbne den nye Excel fil, og se om du stadig har problemer.
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.
Til top
zpjj Se dropdown
Sølv bruger
Sølv bruger
Avatar

Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
Direkte link til dette indlæg Sendt: 18.Maj.2017 kl. 09:02
Jeg har ikke oplevet nogen fejl på filen.
Den virker fint hos mig Smile
Med venlig hilsen
Peter Juul

Jeg bruger EXCEL 2010
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5485
Direkte link til dette indlæg Sendt: 18.Maj.2017 kl. 19:22
den virker også her Thumbs Up
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
Til top
Gambino Se dropdown
Bronze bruger
Bronze bruger


Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
Direkte link til dette indlæg Sendt: 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 Pinch 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.Smile
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 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  Smile
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.
Til top
 Besvar Besvar Side  12>

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk