Listboxeinträge in Spalten schreiben
30.04.2020 15:10:28
Sven
ich habe hier folgenden Code mit dem ich Listbox Einträge in die Vorgegeben Spalten in ein _ Tabellenblatt übertrage.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells(ActiveCell.Row, 2) = ListBox1.List(ListBox1.ListIndex, 0)
Cells(ActiveCell.Row, 3) = ListBox1.List(ListBox1.ListIndex, 1)
Cells(ActiveCell.Row, 9) = ListBox1.List(ListBox1.ListIndex, 3)
Cells(ActiveCell.Row, 10) = ListBox1.List(ListBox1.ListIndex, 4)
UserForm1.Hide
End Sub
Ich würde gern diesen "Cells(ActiveCell.Row, 2)" Teil ändern das ich die Spalte mit Hilfe eines Names, den ich im Namensmanager definiert habt, ansprechen kann.
In etwa so oder so ähnlich.
Cells(ActiveCell.Range("auswahl")) = ListBox1.List(ListBox1.ListIndex, 0)
Was müsste ich denn wie anpassen das das so klappt wie ich mir das Vorstelle.
Danke und Gruß
Sven
Anzeige