ich lese gemäß dem hier im Forum gelisteten Code eine ListBox mit MultiSelect (eine Spalte) aus
Private Sub CommandButton1_Click()
Dim iList As Integer, iRow As Integer
With ListBox1
For iList = 0 To .ListCount - 1
If .Selected(iList) Then
iRow = iRow + 1
Cells(iRow, 3).Value = .List(iList)
End If
Next iList
End With
End Sub
Wie kann ich die ausgelesenen Werte der ListBox (befindet sich in Sheet "Tabelle1") in einen Bereich im Sheet "Tabelle 2" schreiben? Im obigen Code werden die Werte ja im gleichen Worksheet in die Spalte C geschrieben...
Bekomme das irgendwie nicht hin.
Danke im Voraus für Eure Hilfe,
Markus