Hallo VBA-Profis,
Habe ein großes Problem womit ich mich schon länger beschäftige, undzwar habe ich 2 Listboxen. sobald ich das UserForm starte, wird in das linke Listbox1 die Einträge Auto, Motorrad, Flugzeug eingetragen.
Dann kann ich diese Einträge einzel nach ListBox2 rüber schicken, miitels Button.
Nun hier ist der Knackpunkt: wenn ich in der reihenfolge bleibe gibts es kein Problem sobald ich aber Flugzeug als erstes rüber schicke zur ListBox2 danach Auto und dann Motorrad, sind die Meldungen komplett Falsch zu geordnet. Das Problem ist das in der ListBox1 wenn Sie eingetragen werden die Adressen Auto(0), Motorrad(1) und Flugzeug(2) haben. Schicke ich Sie nach ListBox2 dann verlieren Sie den Bezug und Es wird die Adresse ausgegeben Also Flugzeug(0), Auto(1), Motorrad(2).
Ich bräuchte dringend eine Lösung wie ich den Namen anwählen und nicht die Adresse.
Sub cmdAlleRechts_Click()
lstRechts.List = lstLinks.List
lstLinks.Clear
End Sub
Sub cmdAlleLinks_Click()
lstLinks.List = lstRechts.List
lstRechts.Clear
End Sub
Sub cmdLoeschenRechts_Click()
lstRechts.Clear
End Sub
Sub cmdLoeschenLinks_Click()
lstLinks.Clear
End Sub
Sub cmdNachrechts_Click()
If lstLinks.ListIndex < 0 Then
MsgBox "Bitte wählen Sie einen Eintrag!"
Exit Sub
End If
lstRechts.AddItem lstLinks.Value
lstLinks.RemoveItem lstLinks.ListIndex
End Sub
Sub cmdNachLinks_Click()
If lstRechts.ListIndex < 0 Then
MsgBox "Bitte wählen Sie einen Eintrag!"
Exit Sub
End If
lstLinks.AddItem lstRechts.Value
lstRechts.RemoveItem lstRechts.ListIndex
End Sub
Private Sub Senden_Click()
Select Case lstRechts.ListIndex
Case 0
lstRechts.ListIndex = Test1
MsgBox "auto"
'Call Auto
Case 1
lstRechts.ListIndex = Test2
MsgBox "Motorrad"
'Call Motorrad
Case 2
lstRechts.ListIndex = Test3
MsgBox "Flugzeug"
'Call Flugzeug
End Select
End Sub
Sub UserForm_Initialize()
Me.lstLinks.AddItem "Auto"
lstLinks.AddItem "Motorrad"
lstLinks.AddItem "Flugzeug"
End Sub
Sub cmdBack_Click(): Unload Me: End Sub
|