Aktiv Userform i Excel. Hvordan kan det gøres?

Ja - evt. send en kopi af filen til: pb@supertekst-it.dk

Her er lidt kode i Userformen, som du måske kan anvende - ellers giv signal.

Dim fAfd, tAfd, kRæk
Private Sub CommandButton1_Click()              'Udfør kopiering
Dim fArk, tArk, antalRækker
    Set fArk = ActiveWorkbook.Sheets(fAfd)
    fArk.Select
    fArk.Rows(kRæk).Select
    Selection.Copy
   
    Set tArk = ActiveWorkbook.Sheets(tAfd)
    tArk.Select
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    tArk.Rows(antalRækker + 1).Select
    tArk.Paste
End Sub
Private Sub ListBox1_Click()                    'Fra Afd valgt
    fAfd = Me.ListBox1
    visRækker
End Sub
Private Sub ListBox2_Click()                    'Række valgt
    kRæk = Me.ListBox2.ListIndex + 1
End Sub
Private Sub ListBox3_Click()                    'Til afd. valgt
    tAfd = Me.ListBox3
End Sub
Private Sub UserForm_activate()
    opbygAfd
End Sub
Private Sub opbygAfd()
    For Each sh In ActiveWorkbook.Sheets
        Me.ListBox1.AddItem sh.Name
        Me.ListBox3.AddItem sh.Name
    Next sh
End Sub
Private Sub visRækker()
Dim afd
    afd = Me.ListBox1
    Set fArk = ActiveWorkbook.Sheets(afd)
   
    fArk.Select
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    For r = 1 To antalRækker
        Me.ListBox2.AddItem fArk.Cells(r, 1)
    Next r
End Sub

Du får et svar...

Det kommer så her

1000 tak for hjælpen

skal lige finde ud af hvordan jeg giver point. Er ny på siden

Selv tak - og for points...