Private Sub CommandButton2_Click()
Dim cParzelle As String
Dim oWshParzelle As Worksheet
Dim iZeileDuenger As Long
Dim oRng As Range
For Each oWshParzelle In Application.ThisWorkbook.Worksheets
If (oWshParzelle.Name = "Feldarbeiten") Then
Exit For
End If
Next
Set oWshParzelle = Sheets("Feldarbeiten")
iZeileDuenger = oWshParzelle.UsedRange.Rows.Count + 1
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
Set oRng = oWshParzelle.Cells(iZeileDuenger, 2)
oRng.NumberFormat = "@"
oRng.Value = UserForm4.ListBox1.List(pvargIndex:=UserForm4.ListBox1.ListIndex, _
pvargColumn:=0)
Set oRng = Nothing
Set oRng = oWshParzelle.Cells(iZeileDuenger, 3)
oRng.NumberFormat = "@"
oRng.Value = UserForm4.ComboBox1.Value
Set oRng = Nothing
Set oRng = Nothing
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