Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA: Altersangabe in Jahren und Tagen

VBA: Altersangabe in Jahren und Tagen
28.04.2016 17:23:52
Dieter(Drummer)
Guten Tag, VBA Spezialisten,
wie muss das Makro lauten, damit in der MsgBox das Jahresalter (funktioniert schon) UND eine Zeile darunter das Alter in Tagen angegeben wird?
Wäre toll, wenn mir jemand das Makro erweitern könnte.
'Makro von Bernd Held
  • 
    Sub AlterAktuell() 'Alter zeigen
    Dim DatEingabe As String
    DatEingabe = InputBox("Geben Sie ein Geburtsdatum ein!", _
    "Altersüberprüfung")
    If DatEingabe  "" And IsDate(DatEingabe) Then
    MsgBox "Sie sind genau " & _
    Format(Date - CDate(DatEingabe), "YY") & " Jahre alt!"
    End If
    End Sub
    

  • Gruß, Dieter(Drummer)

    Anzeige

    3
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: VBA: Altersangabe in Jahren und Tagen
    28.04.2016 17:36:40
    Michael
    Hallo!
    Sub AlterAktuell() 'Alter zeigen
    Dim DatEingabe As String
    DatEingabe = InputBox("Geben Sie ein Geburtsdatum ein!", _
    "Altersüberprüfung")
    If DatEingabe  "" And IsDate(DatEingabe) Then
    MsgBox "Sie sind genau " & _
    Format(Date - CDate(DatEingabe), "YY") & " Jahre alt!" & vbLf & _
    "Sie sind genau " & _
    Date - CDate(DatEingabe) & "Tage alt!"
    End If
    End Sub
    
    LG
    Michael

    Anzeige
    AW: Danke Michael, perfekt ...
    28.04.2016 17:43:24
    Dieter(Drummer)
    ... und noch einen schönen Abend.
    Gruß, Dieter(Drummer)

    Ebenso! LG owt
    28.04.2016 17:44:15
    Michael
    ;

    Forumthreads zu verwandten Themen

    Anzeige
    Anzeige
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige