indsæt tekst i brugerformular

På knappen dansk, kan du have dene kode

Private Sub Dansk_Click()
    Me!tb = Sheets("database").Range("a1").Value
End Sub

På knappen Skriv har du denne kode

Private Sub Skriv_Click()
    Sheets("opret").Range("d34").Value = Me!tb
End Sub

Forudsætter at du har en tekstboks på din brugerformular, med navnet tb.

Hvis tekstboksen skal tømmes efter indsætning kan du udvide koden på Skriv til

Private Sub Skriv_Click()
    Sheets("opret").Range("d34").Value = Me!tb
    Me!tb = ""
End Sub

Hvordan får jeg en tekstboks til min brugerformular?
Jeg har kun den subrutine som jeg skrev ovenfor???

Du må vel også have formularen? Her lav er du en tekstboks med tekstboksværktøjet. Ligesom du laver dine knapper med knap værktøjet.

Det forstår jeg ikke :-)
Den skriver invalid use of Me keyword når jeg prøver og køre sub'en

Hvilken sub?  Du skal have tre forskellige subs. Den første viser formularen. De to andre skal så ligge på hver sin knap, der begge befinder sig på formularen.

Jeg kan forresten godt skrive i formularen... jeg ved ikke om det er det du mener er tekstboksen???

Det ved jeg heller ikke :-) Hvordan ser din formular ud?  Er der mulighed for at du kunne sende arket til mig, så jeg kan se på det?

Jeg prøver lige noget nyt...
Nu har jeg fået tildelt knappen dansk så når jeg trykker på den så kommer beskrivelsesboksen frem ( den der har den sub som jeg skrev i mit spårgsmål). Den skal indeholde de oplysninger der står i arket "database" celle A1...
Håber du kan hjælpe :-)

Hvor er det, du har dine knappen? I userformen eller?

Knappen dansk har jeg selv lavet og tildet den en makro så beskrivelsesboksen kommer frem.
Sub'en på beskrivelses boksen har min underviser lavet...

Som sagt vil det nok være nemmest, hvis du kan sende det til mig - eller hvis du har en mailadresse, så jeg kan sende et eksempel til dig.

Men hvis du gerne vil have at teksten fra database A1 allerede er skrevet i formularen, når den åbnes, skal din sub se sådan ud:

Sub dansk()
    dansk_beskr!TextBox1 = Sheets("database").Range("a1").Value
    dansk_beskr.Show
End Sub
Under forudsætning af at der på formen findes en textbox med navnet textbox1.

Det virkede... tusind tak
Min opgave ligger på http://www.sam.sdu.dk/undervis/85435.F04/obli1_2004/obli_2004.html

Jeg skriver nok nogle flere spørgsmål så det kan være at opgaven kan hjælpe

Fint nok, men når det er en opgave, skal du vel også lave lidt selv :-)

ha ha jeg kan jo ikke finde ud af det :-)