Ich habe den Code wie unten eingetragen, der Code trägt mir aber nichts in
Row 11 und 13 und 15
alles andere geht
Private Sub CommandButton1_Click()
lngRow = Name1.List(Name1.ListIndex, 1)
Sheets("Zahlungen").Cells(lngRow, 2) = CDate(CheckIn.Value)
Sheets("Zahlungen").Cells(lngRow, 3) = CDate(CheckOut.Value)
Sheets("Zahlungen").Cells(lngRow, 4) = CDbl(AnzahlungSoll.Value)
Sheets("Zahlungen").Cells(lngRow, 5) = CDate(AnzamDatum.Value)
Sheets("Zahlungen").Cells(lngRow, 6) = CDbl(RestbetragSoll.Value)
Sheets("Zahlungen").Cells(lngRow, 7) = CDate(RestamDat.Value)
Sheets("Zahlungen").Cells(lngRow, 8) = CDbl(KautionSoll.Value)
Sheets("Zahlungen").Cells(lngRow, 9) = CDate(KautionAmDat.Value)
If AnzahlungErhalten <> "" And IsNumeric(AnzahlungErhalten) Then
Sheets("Zahlungen").Cells(lngRow, 10) = CDbl(AnzahlungErhalten.Value)
Else
Sheets("Zahlungen").Cells(lngRow, 10) = ""
End If
If AnzErhAm <> "" And IsDate(AnzErhAm) Then
Sheets("Zahlungen").Cells(lngRow, 11) = CDate(AnzErhAm.Value)
Else
Sheets("Zahlungen").Cells(lngRow, 11) = ""
End If
If RestErh <> "" And IsNumeric(RestErh) Then
Sheets("Zahlungen").Cells(lngRow, 12) = CDbl(RestErh.Value)
Else
Sheets("Zahlungen").Cells(lngRow, 12) = ""
End If
If RestErhAm <> "" And IsDate(RestErhAm) Then
Sheets("Zahlungen").Cells(lngRow, 13) = CDate(RestErhAm.Value)
Else
Sheets("Zahlungen").Cells(lngRow, 13) = ""
End If
If KautionErh <> "" And IsNumeric(KautionErh) Then
Sheets("Zahlungen").Cells(lngRow, 14) = CDbl(KautionErh.Value)
Else
Sheets("Zahlungen").Cells(lngRow, 14) = ""
End If
If KautionErhAm <> "" And IsDate(KautionErhAm) Then
Sheets("Zahlungen").Cells(lngRow, 15) = CDate(KautionErhAm.Value)
Else
Sheets("Zahlungen").Cells(lngRow, 15) = ""
End If
Sheets("Zahlungen").Cells(lngRow, 16) = CDate(KautionRAm.Value)
End Sub
Gruß
wimaxe