Forfatter |
Emne Søg Emne funktioner
|
Gambino
Bronze bruger
Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
|
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
|
|
|
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
|
Accepteret svar
Sendt: 13.Maj.2017 kl. 14:00 |
|
|
Gambino
Bronze bruger
Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
|
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.
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5485
|
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.ValueSheets("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
|
|
Gambino
Bronze bruger
Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
|
Sendt: 12.Maj.2017 kl. 18:45 |
uploads/1976/Test.xlsmDet er faktisk smart at man kan uploade "smertensbarnet"
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
|
Accepteret svar
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.
|
|
zpjj
Sølv bruger
Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
|
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
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
|
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
|
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.
|
|
zpjj
Sølv bruger
Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
|
Sendt: 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
|
|
zpjj
Sølv bruger
Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
|
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
|
Med venlig hilsen Peter Juul
Jeg bruger EXCEL 2010
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
|
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
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.
|
|
zpjj
Sølv bruger
Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
|
Sendt: 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
|
|
zpjj
Sølv bruger
Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
|
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
|
|
Gambino
Bronze bruger
Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
|
Sendt: 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.
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
|
Sendt: 17.Maj.2017 kl. 07:48 |
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.
|
|
Gambino
Bronze bruger
Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
|
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.
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
|
Sendt: 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: - Slå makroer fra,
- Luk Excel helt ned
- Åbn filen og kopier VBA koden og UserFormen over i et tomt regneark
- Gm denne nye regnearksfil
- Luk Excel helt ned
- Genstart Excel, slå makroer til
- Luk Excel helt ned
- 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.
|
|
zpjj
Sølv bruger
Medlem: 08.Maj.2013
Land: Danmark
Status: Offline
Point: 179
|
Sendt: 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
|
|
Bjarnehansen
Platin bruger
Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5485
|
Sendt: 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
|
|
Gambino
Bronze bruger
Medlem: 11.Maj.2017
Land: Danmark
Status: Offline
Point: 26
|
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 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.
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
|
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
|
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.
|
|