Auswahl aus ListBox

Private Sub UserForm_Initialize()
Application.Wait Now + TimeValue("0:00:01")
With usrEingabeReisezüge
.Height = Application.Height
.Width = Application.Width
End With
lstDebicode.RowSource = "Debicode!A2:D303"
lstDebicodee.ListIndex = -1
End Sub

Private Sub cmdAbbrechen_Click()
ActiveCell.Offset(columnOffset:=1).Activate
Unload Me
End Sub

Private Sub UserForm_Activate()
usrEingabe.lstDebicode.ColumnHeads = True
End Sub

Private Sub cmdWrite_Click()
Dim iRow As Integer, iCol As Integer, iCounter As Integer
Dim Debicode As Integer
'--- Auswahl treffen
For iRow = 0 To lstDebicodee.ListCount - 1
If lstDebicode.Selected(iRow) Then
Debicode = lstDebicode.List(iRow, 3)
Worksheets("BES-Kosten").Activate
Cells(ActiveCell.Row, ActiveCell.Column).Value = Debicode
ActiveCell.Offset(columnOffset:=1).Activate
GoTo Marke
End If
Next iRow
Marke:
Unload usrEingabe
End Sub