Office: Probleme mit dem Format Datum

Hallo Excel Profis, eure Hilfe ist gefragt.
In meiner Datei - Tabelle "Mitglieder" werden alle Daten mittels einer UserForm eingegeben.
Nun scheint es, dass die Geburtsdaten als Text geschrieben werden. Man kann diese Zellen auch nicht formartieren(z.B. eine Ganzzahl). In der Column L wird aber das Alter richtig berechnet.
Jetzt wollte ich in der Tabelle Statistik das älteste und jüngste Mitglied finden. Das Ergebnis ist "#ZAHL!" - Ein Test ergab das das Geburtsdatum ein Textformat ist (siehe Gelbe Felder)
Die Datei ist bei RS hochgeladen, da es hier wohl leider Probleme gibt.
Für eure Hilfe und Tipps über den Fehler vielen Dank.
Gruß Posaune

Link:
http://rapidshare.com/files/266638967/BM_Test_Version1.8_.xls.html

 

Ach ja im Code für eingaben speichern habe ich das Format dd,mm,yyyy gechrieben.

 

Hallo Nick,

hast Du beachtet das eine Textbox Text enthält
Range("A1")=Cdate(Textbox1)

Gruß Hajo

 

Hallo Hajo
ich war der Meinung, wenn ich im Code folgendes stehen habe langt das.
.Range("H6:K200").Select
Selection.NumberFormat = "dd/mm/yyyy"
Denn wie gesagt das Alter (Aktuelles Jahr - JAHR(Geburtsdatum)) hat ja auch funktioniert.
Habe meinen ode geändert und es ist gut so.
Vielen Dank Hajo
Gruß Norbert

 

Hallo Hajo
neues Problem!
Es stehen nicht immer Daten zur Verfügung, z.b. wenn jemand nicht verheiratet ist.
Meinen Code habe ichwie folgt geändert und die Daten sind jetzt auch echte Daten, nur ohne Daten hängt sich das Makro auf. Ich habe es mit If versucht wird aber irre kompliziert da es 4 Daten gibt.
Vielleicht gibt es ja eine einfache Lösung.
Mein Code:

Code:

'Schreiben...
     .Cells(i, 2).Value = ComboBox1.Value
     .Cells(i, 3).Value = ComboBox2.Value
     .Cells(i, 4).Value = TextBox2.Value
     .Cells(i, 5).Value = TextBox3.Value
     .Cells(i, 6).Value = TextBox4.Value
     .Cells(i, 7).Value = TextBox5.Value
     .Cells(i, 8).Value = CDate(TextBox6)
     .Cells(i, 9).Value = CDate(TextBox7)
     .Cells(i, 10).Value = CDate(TextBox8)
     .Cells(i, 11).Value = CDate(TextBox9)
    
Gruß Norbert

[/url]

 

Hallo Norbert,

leider Nein. Es geht nur mit if.

Gruß Hajo

 

Du könntest Dir vielleicht auch die IIF-Funktion angucken:

Code:

IIf(expr, truepart, falsepart)

Damit wird es vielleicht etwas kompakter, als mit IF .. THEN .. ELSE. Ich persönlich finde IIF aber eher nicht so schön, um nicht zu sagen: unübersichtlich.

Gruß, Michael

 

Hallo Miriki
ich kenne die IIF Funktion nicht, habe aber mittlerweile mit If eine einfache Lösung gemacht. Ich hatte vorher zu kompliziert gedacht und alle If hintereinander gesetzt.
Nun jedes If einzeln.


Nun Danke an allen ich denke mein Problem ist zur ZEit gelöst.
Vielen Dank Gruß Norbert

Code:

'Schreiben...
     .Cells(i, 2).Value = ComboBox1.Value
     .Cells(i, 3).Value = ComboBox2.Value
     .Cells(i, 4).Value = TextBox2.Value
     .Cells(i, 5).Value = TextBox3.Value
     .Cells(i, 6).Value = TextBox4.Value
     .Cells(i, 7).Value = TextBox5.Value
     If IsDate(TextBox6.Value) Then
     .Cells(i, 8).Value = CDate(TextBox6.Value)
     Else
     .Cells(i, 8).Value = TextBox6.Value
     End If
        If IsDate(TextBox7.Value) Then
        .Cells(i, 9).Value = CDate(TextBox7)
        Else
        .Cells(i, 9).Value = TextBox7.Value
        End If
            If IsDate(TextBox8.Value) Then
            .Cells(i, 10).Value = CDate(TextBox8)
            Else
            .Cells(i, 10).Value = TextBox8.Value
            End If
                 If IsDate(TextBox9.Value) Then
                 .Cells(i, 11).Value = CDate(TextBox9)
                 Else
                 .Cells(i, 11).Value = TextBox9.Value
                 End If

    ' Datum_Umwandeln
    Range("H6:K200").Select
    Selection.NumberFormat = "dd/mm/yyyy"