in meinem Excelsheet lade ich ein Listenfeld (zwei spaltig) "lstvalues" mit Daten, dies funktioniert soweit.
Das Listenfeld ist auf MultiSelect (Mehrfachauswahl) eingestellt. Nun möchte die ausgewählten Daten in Tabelle6
ab Zeile 10 bis Zeile 59 in die Felder A11 und C11 übertragen. Bei dem untenstehen Code werden die Werte nacheinander in A11 und B11 eingetragen, aber ich möchte statt B11 den Wert in C11 eintragen lassen. Hat jemand eine Idee?
Danke.
Gruß Franz
Private Sub cmdInsert_Click()
Dim iRow As Integer, iCol As Integer, iCounter As Integer
Dim Zelle As Integer
Dim i As Integer
iCounter = 10
For iRow = 0 To lstValues.ListCount - 1
If lstValues.Selected(iRow) Then
iCounter = iCounter + 1
For iCol = 1 To 4
Tabelle6.Cells(iCounter, iCol).Value = Me.lstValues.List(iRow, iCol - 1)
Next iCol
End If
Next iRow
End Sub