Hallo Community,
ich habe eine Multiselectlistbox und möchte mehrere ausgewählte Zeilen samt Spalten in eine Tabelle auslesen lassen.
Die Werte sollen ab E18 untereinander über einen Button eingefügt werden.
Ich habe bereits folgenden Code und dieser muss wahrscheinlich nur noch angepasst werden. Er funktioniert bestens, bloß schaffe ich es nicht ihm zu sagen, dass er ab E18 schreiben soll.
'=======Daten aus der Listbox werden in den PO Master geschrieben
Private Sub insert_product_Click()
Dim i As Integer
Dim rngAusgabe As Range
'=======Liest alle Zeilen und Spalten aus der ListBox heraus
On Error Resume Next
Set rngAusgabe = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
rngAusgabe = .Column(0, i)
rngAusgabe.Offset(0, 1).Value = .Column(0, i)
rngAusgabe.Offset(0, 2).Value = .Column(1, i)
rngAusgabe.Offset(0, 3).Value = .Column(2, i)
rngAusgabe.Offset(0, 4).Value = .Column(3, i)
Set rngAusgabe = rngAusgabe.Offset(1, 0)
End If
Next i
End With
Set rngAusgabe = Nothing
End Sub
Momentan schreibt er alle ausgewählten Zeilen und Spalten in der Listbox ab der Zeile A2 untereinander. Ich möchte aber das Alles ab E18 eingefügt wird.
Wie kann ich das bewerkstelligen?
MfG
bballerjuka
|