3 Spalten aus Listbox in Tabelle schreib
21.03.2020 13:26:56
Matthias
ich habe mal wieder ein Problem...
Die Listbox die ich mir zusammen kopiert habe hat drei Spalten.
Die Werte aus den drei Spalten die in der Markierten Zeile stehen sollen in eine Tabelle geschrieben werden.
Zurzeit weiß ich nur wie ich den Wert der ersten Spalte der jeweiligen Zeile übertrage.
Private Sub ListBox1_Click()
If ListBox1.Value "" Then
With ActiveSheet.Name
ActiveCell.Value = Suchfunktion.ListBox1.Value
'ActiveCell.Offset(0, 1).Value = Suchfunktion.ListBox1(ListBox1.ListCount , 1) _
Value
'ActiveCell.Offset(0, 2) = Suchfunktion.ListBox1(.ListIndex + 2).Value
End With
End If
End Sub
Hat jemand eine Idee?