Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Datum in UF | Herbers Excel-Forum


Betrifft: Datum in UF von: Peter
Geschrieben am: 29.12.2009 14:31:48

Hi Leute
ich habe in meiner UF 3 TextBoxen mit Name, Vorname und Datum. Klappt auch eigentlich ganz gut. Nur da in die Zelle wo das Datum hin kommt habe ich die Zelle so Formatiert das ich nur das Jahr angezeigt bekomme. Wenn ich aber das kommplette Datum über die UF eingebe bekomme ich auch das komplette datum angezeigt. Ich weis nicht wie den Code umstellen soll das ich nur das Jahr angezeigt bekomme. Das Problem ist ich brauche das komplette Datum für die berechnung.

mfg Peter

Private Sub CommandButton1_Click()
Dim nz As Integer

With Worksheets("Geburtstage")
nz = .Cells(Rows.Count, 1).End(xlUp).Row + 1 ' neue Zeile
If nz < 186 Then nz = 186
    .Cells(nz, 25) = TextBox1.Value
    .Cells(nz, 26) = TextBox2.Value
    .Cells(nz, 27) = TextBox3.Value
    
      
    nz = .Cells(Rows.Count, 1).End(xlUp).Row + 1 ' neue Zeile
If nz < 186 Then nz = 186
    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
     
End With
TextBox1.SetFocus
End Sub

  

Betrifft: AW: Datum in UF von: JoWE
Geschrieben am: 29.12.2009 14:48:44

so?
.Cells(nz, 27) = CDate(TextBox3.Value)


  

Betrifft: AW: Datum in UF von: Peter
Geschrieben am: 29.12.2009 14:54:23

Danke für die hilfe. Klappt super

mfg Peter