Daten einer Listbox in bestimmte Zellen
11.08.2020 09:58:59
Martin
Ich möchte Daten von einer Listbox in bestimmte Zellen übertragen. Leider schaffe ich es nur, das die Daten in die erste leere Zelle der Spalte A geschrieben wird. Ich müßte die Daten aber in die Zelle A14 und darunter schreiben. Die Listbox ist multiselect ausgeführt.
Die Funktion sollte genau so wie unten angeführt funktionieren, nur die erste Zeille sollte die a14 sein. Kann mir hier wer helfen Bitte?
Lg Martin
Private Sub Eintragen_Click()
Dim data, start As Integer
With Worksheets("Daten")
' erste leere Zeile ermitteln (Hier sollte die Zelle A14 als erste Zelle definiert werden) _
start = .Cells(.Rows.Count, "A").End(xlUp).Row
For data = 0 To ListBoxMitglieder.ListCount - 1
If ListBoxMitglieder.Selected(data) = True Then
'zeile ist die Zeile in der die markierten Werte
'aus der Listbox untereinander eingetragen werden
start = start + 1
.Cells(start, "A") = ListBoxMitglieder.List(data)
Unload Me
End If
Next
End With
End Sub
Anzeige
