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.
Annonceindlæg fra Tabellae
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
Fejlmeddelelse "Runtime error 9: Subscript out of range" udløses af: Sheets("test").Range("A1").Value = supertest.Value ?
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.
Synes godt om
1 synes godt om dette
" 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
prøv sheets("Ark 2")
Synes godt om
1 synes godt om dette
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.
Det burde ligge i "A1" i "Ark2" jan
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?
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
Private Sub UserForm_Initialize() supertest.Value = Sheets("Ark2").Range("A1").Value End Sub
selvfølgelig så det ikke #11
det med at at manipulere punktum hjalp desverre ikke. så Jan hvordan sender jeg filen?
Tak til alle og særligt Jan.