Dynamisk userform, ændre nemt på listboxe

For at fjerne valuta fra basevaluta efter valg af valuta:

Private Sub lstValuta_Click()
    Dim i As Integer
   
    For i = 0 To Me.lstBaseValuta.ListCount - 1
        If Me.lstBaseValuta.List(i) = Me.lstValuta.Text Then
            Me.lstBaseValuta.RemoveItem (i)
            Exit For
        End If
    Next i
End Sub

Men vær opmærksom på, at får man valgt forkert i valutalisten, så er det altså for sent; værdien er fjernet fra basevaluta.
************

Mht. at fjerne valutaer, når man har udvalgt dem til analyse (tilføjes proceduren cmdTilføj_Click):

Me.lstValg.RemoveItem (Me.lstValg.ListIndex - 1)

Hvis begge skal fjernes, så også tillige:
Me.lstBaseValuta.RemoveItem (Me.lstBaseValuta.ListIndex - 1)

Men der går ged i den, hvis vedkommende så sletter valutaen efterfølgende (så er den nemlig ikke i listerne). Så skal du huske at tilføje den/dem igen.

Det er en meget fin metode du har opstillet, og en jeg slet ikke havde tænkt på - men når jeg sidder her nu og tænker over en smart måde, så er det måske bedre at læse valutaerne ind i et array, og så for hvert "klik" i userformen opdatere dette array (og derpå lave nye lister til userformen) således at der hele tiden er de rigtige lister tilstede...

Spørgsmålet er om det giver for meget load - men umiddelbart går jeg ikke ud fra dette.

Hmm efter en del testning synes jeg at denne del kode i mange af mine subs gør det for mig (listerne genereres ved hvert click forfra).

Hvor LstRow (er antallet af valuta'er = 36) og ValArr er et array indeholdende valutaerne.. Den er ikke helt færdig, da jeg stadig ikke rydder op i listen med Base Valuta - men det kommer nu.

Takker for hjælpen dog :)

    For i = 1 To lstValuta.ListCount
        lstValuta.RemoveItem 0
    Next i

    k = 0
    For i = 1 To LstRow
        If ValArr(i) <> frmCorrelation.txtBaseValuta Then
            For j = 0 To lstValg.ListCount - 1
                If ValArr(i) = frmCorrelation.lstValg.Column(1, j) Then
                    k = 1
            End If
            Next j
            If k <> 1 Then
                frmCorrelation.lstValuta.AddItem ValArr(i)
            End If
            k = 0
        End If
    Next i

Velbekomme. Sig til, hvis du mangler yderligere "indspark".

Tillader mig lige at lægge et svar.