VBA UserForm - Hvordan flyttes fra ListBox1 til ListBox2

det sidste først:
ListBox1.RowSource = AvailableCertificates

der kommer mere

Private Sub AddButton_Click()
Dim X As Integer
ListBox2.Clear ' tømmer boksen
' Jeg går ud far at du har multiselect på listbox1
For X = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(X) Then ListBox2.AddItem ListBox1
Next
End Sub

kabbak

Yes - mine valgmuligheder fremkommer nu i ListBox1 når SelectionForm vises.
Jeg kan samtidigt vælge en (og kun en) mulighed fra ListBox1 og når knappen Add trykkes kopiers den over i ListBox2. Perfekt.
Dog er problemet nu at jeg skal kunne vælge og kopiere flere liner end blot en.
Hvis jeg ønsker at kopiere endnu en linie fra ListBox1 til ListBox2 sker der  det at den først kopierede i ListBox2 bare skifter navn istedet for at der i ListBox2 bliver tilføjet endnu en linie.  Endnu en overvejelse er at det skal være muligt at kopiere den samme linie flere gange så den hver gang fremkommer i ListBox2.

Prøv at kikke på Multiselect i properties for Listbox1, den står normalt til single, sæt den til multi, så kan du vælge flere ad gangen

Æv  - hvis Mulitselect vælges kommer fejlmelding: Run time Error - type mismatch. Ved ikke hvad det betyder og hvad der trigger denne fejl, men den fremkommer kun hvis jeg vælger Multiselect i properties for ListBox1. Har derfor slået tilbage til SingleSelect. Hmm - der må være noget galt med min kode..
Jeg har mistanke om at det er relateret til hvorledes jeg angiver min
RowSource. Se lige på neteksemplet her, hvor der i en ListBox1 angives valgbare måneder MEN med koden AddItem:

Sub ShowDialog()
    UserForm1.ListBox1.RowSource = ""
'  Add some items to the ListBox
    With UserForm1.ListBox1
        .RowSource = ""
        .AddItem "January"
        .AddItem "February"
        .AddItem "March"
        .AddItem "April"
        .AddItem "May"
        .AddItem "June"
        .AddItem "July"
        .AddItem "August"
        .AddItem "September"
        .AddItem "October"
        .AddItem "November"
        .AddItem "December"
    End With
    UserForm1.Show
End Sub

Også i dette eksempel kan der flyttes fra ListBox1 til ListBox2 ved tryk på knappen Add. Her er koden for dette:
Private Sub AddButton_Click()
    Dim i As Integer
   
    If ListBox1.ListIndex = -1 Then Exit Sub
    If Not cbDuplicates Then
'      See if item already exists
        For i = 0 To ListBox2.ListCount - 1
            If ListBox1.Value = ListBox2.List(i) Then
                Beep
                Exit Sub
            End If
        Next i
    End If
    ListBox2.AddItem ListBox1.Value
End Sub

Ovenstående kode virker som den skal, og det er også muligt at kopiere flere items, også af samme type, fra ListBox1 såfremt der er tikket af for accept af for dette med et flueben. (ListBox1 properties er desuden sat til Single)

Min kode med kildedata afviger fra neteksemplet idet jeg ikke angiver RowSource med .AddItem linier,  men med flg enkelte linie:
Sub ShowDialog()
'  Tilføjer items til ListBox1
        SelectionForm.ListBox1.RowSource = "AvailableCertificates"
               
End Sub

Årsagen er at jeg ønsker en navngiven Range som jeg skal have på et ark.

Samtidig har jeg flg kode for knappen Add:
Private Sub AddButton_Click()
Dim X As Integer
ListBox2.Clear ' tømmer boksen
' Jeg går ud far at du har multiselect på listbox1
For X = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(X) Then ListBox2.AddItem ListBox1
Next

End Sub

Desværre er mit problem stadigvæk at der kun kan kopieres en linie til ListBox2. Hvis der vælges en ny linie i ListBox1 og der trykkes Add knap sker der kun det at linien i ListBox2 bare skifter navn.

Har forsøgt alt muligt men kan ikke komme videre. Forslag til løsning modtages meget gerne.

Prøv at sende et eksempel ark, så kikker jeg på det.
Skriv gerne i arket hvad du ønsker.

kabbak snabela tiscali dot dk

løsningen er retuneret

Perfekt - det var lige sådan. Øøhh hvordan er det nu mht pointgivning.

jeg skal svare først ;-))