Frage zu UserForm - ListBoxen kombinieren
27.11.2012 09:24:45
Tim
ich habe eine UserForm mit zwei ListBoxen und dazwischen zwei Buttons.
Nun möchte ich gerne folgendes:
- Bei Auswahl eines Wertes in ListBox1 und Klick auf Button1 soll dieser Wert in ListBox 2 übernommen werden.
- Bei Auswahl eines Wertes in ListBox2 und Klick auf Button 2 soll dieser Wert zurück in ListBox1 geschrieben werden.
Ich habe bisher folgenden Code - Problem dabei, hier werden die Werte nur kopiert und bleiben in der ursprünglichen ListBox stehen, sie sollen aber übernommen werden, d.h. nur in der Ziel-ListBox erscheinen:
Private Sub CommandButton1_Click()
If ListBox1.ListIndex > -1 Then ListBox2.AddItem ListBox1.Text
End Sub
Private Sub CommandButton2_Click()
If ListBox2.ListIndex > -1 Then ListBox1.AddItem ListBox2.Text
End Sub
VG und vielen Dank Euch im Voraus für jeden Tipp,
Tim