Mehrzeilige Listbox eine ausgewählte Zeile löschen
12.05.2004 15:32:39
Andreas
ich habe eine kleine Frage. Ich habe eine Mehrspaltige Listbox. Bisher war sie nur einspaltig. Bisher habe ich einen Wert ausgewählt und mit einem Commandbutton in eine andere listbox kopiert. danach wird das ausgewählte in der ersten listbox gelöscht. nun ist die listbox aber mehrspaltig. wie kann ich dennoch nur den wert aus der ersten zeile in die listbox2 kopieren, aber die ganze zeile löschen. ich bekomme mit folgendem code immer fehlermeldungen
Private Sub CommandButton3_Click()
Dim Auswahl As Variant
Dim Platz As Integer
Application.ScreenUpdating = False
ListBox1.SetFocus
If ListBox1 <> "" Then
Auswahl = "ISIN- " & ListBox1.Text
Platz = ListBox1.ListIndex
UserForm1.ListBox4.AddItem (Auswahl)
UserForm1.ListBox1.RemoveItem (Platz)
Else
MsgBox "Bitte wählen Sie aus"
End If
End Sub
vielen dank fuer eure hilfe
andy
Anzeige