ich möchte gerne eine Mehrfachauswahl einer Listview auslesen.
Dabei soll zu jedem Namen das Datum, Text1 und Text2 geschrieben werden.
Bei meinem Code stürzt Excel ab!
Private Sub CommandButton1_Click()
Dim lol&, lox&
Dim wksData As Worksheet
Set wksData = Worksheets("Data")
With wksData
For lol = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(2, 1).Value = "" Then
lol = 2
Else
lol = lol + 1
End If
Next lol
For lox = 1 To .ListItems.Count
If UserForm1.ListView1(lol).Checked Then
.Cells(lol, 1) = UserForm1.DTPicker1.Value
.Cells(lol, 2) = UserForm1.ListView1.SelectedItem(lox)
.Cells(lol, 3) = UserForm1.TextBox1.Value
.Cells(lol, 4) = UserForm1.TextBox2.Value
End If
lol = lol + 1
Next lox
End With
Set wksData = Nothing
End Sub
https://www.herber.de/bbs/user/114617.xlsm
Danke!
LG, Olga