Eintrag aus Mehrspaltiger ListBox übernehmen
26.01.2004 17:04:57
Alexander
Ich habe auf Tabellenblatt 1 in einer UserForm eine ListBox mit mehrspaltigen Einträgen erstellt nun möchte ich die markierte Auswahl aus der ListBox per CommandButton auf ein anderes Tabellenblatt in eine Festgelegte Zelle einfügen/kopieren.
Folgendermassen habe ich es bereits probiert - allerdings zeigt es mir dann nur den Eintrag aus Spalte A an und ich hätte gerne alle Spalten der ListBox kopiert:
Private Sub CommandButton1_Click()
With Worksheets("Tabelle2")
.Range("B2").Value = ListBox1.Value
End With
With Worksheets("Tabelle3")
.Range("B2").Value = ListBox1.Value
End With
Worksheets("Tabelle2").Activate
UserForm2.Hide
End Sub
So hab ich die ListBox gefüllt:
Public Sub Listbox_fuellen()
With ListBox1
.ColumnCount = 4
.RowSource = "Tabelle1!$A$14:$D$" & CStr(lngRows - 14)
.ColumnHeads = True
.ColumnWidths = "3cm; 2cm; 2cm; 2cm"
End With
End Sub