Søg
Avatar billede denero Juniormester
05. april 2013 - 15:33 Der er 2 kommentarer og
1 løsning

Tekst fra tekstbokse til en tekstboks

Excel 2010
På en userform (1) er der 5 tekstbokse med tekst. Ved at kalde en ny userform (2) skal teksten fra de 5 tekstbokse på userform 1 stå i en tekstboks på userform 2.
Altså tekstboks 1 userform 1 er linje 1 i telstboksen på userform 2 og tekstboks 2 userform 1 er linje 2 i telstboksen på userform 2, osv.
Hvis nogle tekstbokse på userform 1 er tomme, må der ikke opstå tom linje i tekstboksen på userform 2.
Avatar billede supertekst Ekspert
06. april 2013 - 10:55 #1
Du er velkommen til at sende filen - du kender @-adressen
Avatar billede supertekst Ekspert
08. april 2013 - 08:25 #2
Userform1:
Private Sub CommandButton1_Click()
Rem Overfør tekstbokse
    With UserForm2
        .TextBox1 = Me.TextBox1
        .TextBox2 = Me.TextBox2
        .TextBox3 = Me.TextBox3
        .TextBox4 = Me.TextBox4
        .TextBox5 = Me.TextBox5
    End With

    Load UserForm2
    UserForm2.Show
End Sub

Userform2:

Dim adrLabel As String
Private Sub UserForm_activate()
    adrLabel = ""
    adrLabel = adrLabel & opByg(Me.TextBox1)
    adrLabel = adrLabel & opByg(Me.TextBox2)
    adrLabel = adrLabel & opByg(Me.TextBox3)
    adrLabel = adrLabel & opByg(Me.TextBox4)
    adrLabel = adrLabel & opByg(Me.TextBox5)
   
    Me.TextBox6 = adrLabel
End Sub
Private Function opByg(tekst)
    If tekst <> "" Then
        opByg = tekst & vbCr
    End If
End Function
Avatar billede denero Juniormester
08. april 2013 - 08:32 #3
Takker - virker perfekt.
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
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Kho Sim Số Đẹp Giá Rẻ, Uy Tín Lớn Nhất Việt Nam! Af khosimcom i Excel 0 I dag 04:46 -
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Tips til at mestre Excel hurtigt Af MonikaG32 i Excel 4 04/03/202617:11 06/03/202609:37
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 04:46 Kho Sim Số Đẹp Giá Rẻ, Uy Tín Lớn Nhất Việt Nam! Af khosimcom i Excel
31/0310:22 Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel
30/0313:45 Kablet forbindelse mellem android telefon og windows 11 pc Af 1Dorte i Android
30/0312:04 Elementtype vises - og ikke billedet? Af hkprofil i Billedbehandling
29/0312:08 Problemer med replay af købte kursusvideoer Af annam i Browsere
White papers
Flere white papers »