Leider habe ich ein Problem mit der Datenausgabe bei Excel. Statt bei Zeile 2 wird der erste Eintrag

bei Zeile 37 geschrieben. Offenbar gibt es ein Problem mit dem Zeileninkrement! Kann mir jemand helfen?

Private Sub CommandButton2_Click()
    Dim cParzelle As String
    Dim oWshParzelle As Worksheet
    Dim iZeileDuenger As Long
    Dim oRng As Range
'    If (UserForm4.ListBox1.ListIndex >= 0) Then
'        cParzelle = UserForm4.ListBox1.List(pvargIndex:=UserForm4.ListBox1.ListIndex, pvargColumn:=1)
'        MsgBox (cParzelle)
        For Each oWshParzelle In Application.ThisWorkbook.Worksheets
            If (oWshParzelle.Name = "Feldarbeiten") Then
                Exit For
            End If
        Next
'    End If
    'Daten einfügen
  
          Set oWshParzelle = Sheets("Feldarbeiten")
          iZeileDuenger = oWshParzelle.UsedRange.Rows.Count + 1
     
            'Datum
            Set oRng = oWshParzelle.Cells(iZeileDuenger, 1)
            oRng.NumberFormat = "dd.MM.yyyy"
            oRng.Value = VBA.Format(Expression:=UserForm4.TextBox4.Value, _
                                    Format:="dd.MM.yyyy")
            Set oRng = Nothing
            'Parzelle
            Set oRng = oWshParzelle.Cells(iZeileDuenger, 2)
            oRng.NumberFormat = "@"
            oRng.Value = UserForm4.ListBox1.List(pvargIndex:=UserForm4.ListBox1.ListIndex, _
                                                         pvargColumn:=0)
            Set oRng = Nothing
            
            'Düngerform
            Set oRng = oWshParzelle.Cells(iZeileDuenger, 3)
            oRng.NumberFormat = "@"
            oRng.Value = UserForm4.ComboBox1.Value
            Set oRng = Nothing
            'kg / A
   
            Set oRng = Nothing
                 
            'Menge pro Parzelle
            Set oRng = oWshParzelle.Cells(iZeileDuenger, 5)
            oRng.NumberFormat = "#,##0.00"
            If UserForm4.TextBox3.Value <> 0 Then
                If Me.ComboBox2.ListIndex = 0 Then
    
                oWshParzelle.Cells(iZeileDuenger, 4) = Me.TextBox3.Value
               
                Else
                If Me.ComboBox2.ListIndex = 1 Then
     
                oWshParzelle.Cells(iZeileDuenger, 5) = Me.TextBox3.Value
               
                End If
                End If
            End If
          
 
End Sub

Gruss Peachplayer