AW: Mehrere spalten aus Listbox füllen
12.02.2018 08:15:50
hary
Moin
Text.-Listbox Name ggf. anpassen. Ungetestet.
Private Sub CommandButton1_Click()
'--fuer Zeilen
If IsNumeric(TextBox1) And ListBox1.ListIndex >= 0 Then
ActiveCell.Resize(TextBox1 * 1 + 1, 1) = ListBox1.List(ListBox1.ListIndex)
End If
End Sub
oder
Private Sub CommandButton1_Click()
'--fuer Spalten
If IsNumeric(TextBox1) And ListBox1.ListIndex >= 0 Then
ActiveCell.Resize(1, TextBox1 * 1 + 1) = ListBox1.List(ListBox1.ListIndex)
End If
End Sub
gruss hary