Tekst Dialogboks

Du skal være velkommen til at sende filen.

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

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

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.

Ok her et svar :-)