Stehe vor folgendem Problem:
Ich habe eine ListBox die mit ListFillRange befüllt wurde, eine Mehrfachauswahl ist möglich.
Jetzt werden die markierten Einträge der ListBox mit folgendem Button ausgeben:
Private Sub CommandButton1_Click()
Const zeile = 10
Const spalte = 2
Dim zähler As Integer
Dim i As Integer
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
Cells(zeile + zähler, spalte) = .List(i)
zähler = zähler + 1
End If
Next i
End With
End Sub
Diese Daten werden dann in einer anderen Tabelle weiterverwendet, jetzt ist es oft so das nachträglich weitere Werte in der Listbox ausgewählt werden.
Wenn aber die Excel Datei geschlossen und wieder geöffnet wird,dann ist die Markierung der Listeneinträge verschwunden. So müssten mühsam die Listeneinträge erneut markiert werden, da bei einzeln ausgewählten Einträgen die Ausgabeliste überschrieben wird.
1) Kann der Code so geändert werden, dass bei nachträglicher Markierung die ausgegebene Zelle hinten an die nächste freie Zelle angehängt wird und nicht Zelle B10 überschreibt?
2) Kann die Markierung der Listbox nach Schließen und erneutem Öffnen der Excel-Datei irgendwie beibehalten werden?
Vielen Dank
Martin