CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

fagpoler Novice

03. april 2009 - 14:19 Der er 3 kommentarer og
1 løsning

Tekst Dialogboks

Jeg har en dialogboks med en liste med en Redegeringsboks på med følgende kode!

Sub Makro1()
DialogSheets("Dialogboks1").Show
End Sub

Sub Makro2()
Selection.Characters.Text = [A1]
End Sub

Makro2 er knyttet til Ok knappen.

Det jeg gerne vil have er den tekst der står i [A1] skal sættes ind i Redegeringsboksen når man køre Dialogboksen, og når når man Trykker på Ok skal teksten der står i Redegeringsboksen indsættes i [B1]

Synes godt om

supertekst Ekspert

03. april 2009 - 14:49 #1

Du skal være velkommen til at sende filen.

¨Måsle lidt nemmere at se sammenhængen!

Synes godt om

eagleeye Praktikant

03. april 2009 - 15:02 #2

Du kan indsætte teksten ved det før .show linjen i macro1:

UserForm1.TextBox1.Text = Worksheets("Sheet1").Range("A1")

UserForm1: er navnet på din form
TextBox1: er navnet på dit text felt på formen
"Sheet1": er navnet på det worksheet den skal tage fra celle A1

På samme måde bør du kunne indsætte data fra dit textfejl når man trykke på ok knappen:

Worksheets("Sheet1").Range("B1") = Selection.Characters.Text

Synes godt om

fagpoler Novice

07. april 2009 - 12:29 #3

Jeg har fundet en løsning på problemet.

Sheets("Dialogboks2").Select
ActiveSheet.DrawingObjects("Edit Box 4").Select
Selection.Characters.Text = [Oplysninger!BE1]
Sheets("Klade").Select
DialogSheets("Dialogboks2").Show
'===============================================

Sheets("Dialogboks2").Select 'Første trin Oplysninger
ActiveSheet.DrawingObjects("Edit Box 4").Select
x = Selection.Characters.Text
Sheets("Klade").Select
[Oplysninger!BF1] = x

Men mange tak for dit svar, hvis du ligger et svar får du dine point, eagleeye.

Synes godt om

eagleeye Praktikant

09. april 2009 - 17:54 #4

Ok her et svar :-)

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Nul efter forreste tal Af Marting i Excel	1	02/05/202421:50	02/05/202422:46
Fjerne tomme celler i kolonne Af torben lind i Excel	4	02/05/202419:15	02/05/202420:28
Markere dubletter ud fra reference felt. Af jthyge i Excel	9	02/05/202408:46	I går 11:58
Flytte indhold fra en celle til en anden Af torben lind i Excel	8	01/05/202414:34	02/05/202410:46
Splitte tal og tekst Af HHA i Excel	11	30/04/202411:52	30/04/202415:14

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS