beim öffen der UF und Klick auf die Überschriftzeile der Listbox kommt eine Fehlermeldung.
Wird zuerst einen Namen auswähle und danach ein Klick auf die "ÜZ" dann kommt keine Fehlermeldung.
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/130024.xlsm
For Lol = 0 To lstAdr.ListCount - 1
If lstAdr.Selected(Lol) Then
txtAdr7.Value = Lol + 2
End If
Next
If txtAdr7.Value = "" Then Exit Sub
With wksK
'...