Endxldown - 2010
Lucia
ich habe in meinem excel 2007 folgenden code zur Datenübernahme von einem Formular in das Excel:
Private Sub Datenuebernahme_Click()
Range("A8").Select
If ActiveCell.Offset(0, 0).Value "" Then
Selection.End(xlDown).Select
End If
ActiveCell.Offset(0, 0).Select
If NameZahlungsempfänger "" Then
ActiveCell.Value = NameZahlungsempfänger.Value
ActiveCell.Offset(0, 1).Value = CDate(Eingangsdatum)
ActiveCell.Offset(0, 1).NumberFormat = "dd/mm/yyyy"
ActiveCell.Offset(0, 2).Value = Projektnummer
ActiveCell.Offset(0, 3).Value = Art
ActiveCell.Offset(0, 4).Value = CCur(Brutto)
ActiveCell.Offset(0, 5).Value = CCur(Netto)
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 2)).NumberFormat = "#,##0.00 "
ActiveCell.Offset(0, 6).Value = CDate(Faelligam)
ActiveCell.Offset(0, 7).Value = Bezahltam
Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 2)).NumberFormat = "dd/mm/yyyy"
ActiveCell.Offset(0, 8).Value = Prio
ActiveCell.Offset(0, 9).Value = AnmerkungZahlmittel
NameZahlungsempfänger.Text = vbNullString
Projektnummer.Text = vbNullString
Art.Text = vbNullString
Brutto.Text = vbNullString
Netto.Text = vbNullString
Faelligam.Text = vbNullString
Bezahltam.Text = vbNullString
Prio.Text = vbNullString
AnmerkungZahlmittel.Text = vbNullString
Application.StatusBar = False
Else
Application.StatusBar = "kein Wert, dann auch kein Eintrag"
End If
NameZahlungsempfänger.SetFocus
End Sub
Danke,
Lucia