Avatar billede goglov Seniormester
09. maj 2017 - 23:11 Der er 13 kommentarer og
1 løsning

VBA Jeg vil gemme det indskrevene i en tekstbox der er i en UserForm

På mit (name) Ark 2 laver jeg en textbox der hedder (Name) TekstBoks
Skriver jeg i denne box gemmes den skrevene tekst når arket gemmes

I min Userform (Narme) test laver jeg en textbox der hedder (Name) Supertest
Når jeg skriver i den gemmes teksten ikke når der gemmes.

Hvordan opnår jeg at gemme det?
Har i et forslag.
Avatar billede Jan Hansen Ekspert
09. maj 2017 - 23:31 #1
I userform(code) laver du følgende kode

Private Sub Supertest_Change()
    Sheets("test").Range("A1").Value = Supertest.Value
End Sub

Altså gemmes teksten i A1

Private Sub UserForm_Initialize()
      Supertest.Value=Sheets("test").Range("A1").Value
End Sub

sender teksten retur til tekstboksen

ej testet

Jan
Avatar billede goglov Seniormester
10. maj 2017 - 17:16 #2
Fejlmeddelelse "Runtime error 9: Subscript out of range" udløses af:
Sheets("test").Range("A1").Value = supertest.Value

?
Avatar billede Gramstrup Mester
10. maj 2017 - 19:29 #3
I den linje skal du rettet sheets("test") til sheet("Ark 2")

Og hvis du vil hive informationer tilbage til userformen skal du også ændre arket til "Ark 2" for det var jo Userformen du kaldte test og ikke arket.
Avatar billede goglov Seniormester
10. maj 2017 - 23:00 #4
" I den linje skal du rettet sheets("test") til sheet("Ark 2") "

Ændre jeg sheets til sheet så får jeg fejl: Compile error: Sub or Function not defined

suk. jeg er stadig på herrens mark
Avatar billede Jan Hansen Ekspert
10. maj 2017 - 23:13 #5
prøv
sheets("Ark 2")
Avatar billede goglov Seniormester
11. maj 2017 - 21:07 #6
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

Herr kan jeg indskrive i tekstboksen: supertest_Change()  men når jeg lukker userformen/gemmer så mister jeg det indskrevene.
Avatar billede Jan Hansen Ekspert
11. maj 2017 - 21:19 #7
Det burde ligge i "A1" i "Ark2"

jan
Avatar billede goglov Seniormester
12. maj 2017 - 17:38 #8
Jeg kan godt se at "A1" bruges som lager men der sker ikke nogen kopiering fra lageret til tekstboxen.
Det virker som om :

Private Sub test_Initialize()
supertest.Value = Sheets("Ark2").Range("A1").Value
End Sub

aldrig kommer i fokus. Hvordan klare jeg det?
Avatar billede Jan Hansen Ekspert
12. maj 2017 - 18:58 #9
prøv at fjerne "Punktum"value efter supertest og tryk "Punktum" og se om den kommer med forslag ellers er der en stavefejl i navnet for det meste.

Jan
Avatar billede Jan Hansen Ekspert
12. maj 2017 - 18:59 #10
eller send mig filen
Avatar billede excelent Ekspert
12. maj 2017 - 19:26 #11
Private Sub UserForm_Initialize()
supertest.Value = Sheets("Ark2").Range("A1").Value
End Sub
Avatar billede Jan Hansen Ekspert
12. maj 2017 - 19:55 #12
selvfølgelig så det ikke #11
Avatar billede goglov Seniormester
12. maj 2017 - 20:49 #13
det med at at manipulere punktum hjalp desverre ikke.
så Jan hvordan sender jeg filen?
Avatar billede goglov Seniormester
29. maj 2017 - 23:06 #14
Tak til alle og særligt Jan.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester