Ich habe folgende kleine Geschichte:
mit diesen Code:
Private Sub Datenuebernahme_Click()
Range("A8").Select
If ActiveCell.Offset(1, 0).Value "" Then
Selection.End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
If NameZahlungsempfänger "" Then
ActiveCell.Value = NameZahlungsempfänger.Value
ActiveCell.Offset(0, 1).Value = Eingangsdatum
ActiveCell.Offset(0, 2).Value = Projektnummer
ActiveCell.Offset(0, 3).Value = Art
ActiveCell.Offset(0, 4).Value = Brutto
ActiveCell.Offset(0, 5).Value = Netto
ActiveCell.Offset(0, 6).Value = Faelligam
ActiveCell.Offset(0, 7).Value = Bezahltam
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
werden aus einer Userform Daten in ein Tabellenblatt übergeben.
Funktioniert prima. Aaaber: Alle übertragenen Daten haben dann als Format "text".
Ich hätte aber gerne, dass "brutto" z.B. als Währung übertragen wird und "bezahlt am " als richtiges Datum.
Is bestimmt nur eine Kleinigkeit, aber ich komme nicht dahinter...:-(
danke schonmal ,
Lucia