multiselect
02.04.2005 12:57:32
Basti
Bei dem Code unten hat die Listbox3 die multiselectextendet eigenschaft aber es wird nicht wie gewünscht (Value) eingetragen nicht mal wenn ich nur ein was auswähle in der Listbox drei
Private Sub CommandButton1_Click()
Sheets("tabelle1").Activate
Range("a2000").End(xlUp).Offset(1, 0).Activate
With UserForm2
ActiveCell.Offset.Value = ListBox1.Value
ActiveCell.Offset(0, 1).Value = ListBox2.Value
ActiveCell.Offset(0, 2).Value = ListBox3.Value
End With
End Sub
Wenn ich also jetzt drei Sachen markiere in der Listbox drei möchte ich gern das das erste nach Offset(0, 2) eingetragen wird das zweite darunter und so weiter.
Gruß Basti