msgbox ausdrucken?
Hans
hab mir hier aus dem Forum eine Abfrage zusammengebastelt in der ich Geburtstage berechnen und mir eine msgbox anzeigen lase. Meine Frage kann ich die Msgbox irgendwie ausdrucken?
Hier der Code:
Sub Geburtstag()
Dim SPGeb%, SpNam%, SPVornam%, SPSchi%, Wer$, AltTag%, AltWo%, AltMo%, Alter%, RR&, TB4, i&, _
Geb As Date
On Error GoTo Fehler
'* Start anpassen********
Set TB4 = Sheets("Daten Mitarbeiter") 'aus bestimmtem Blatt
SPTit = 1 'Spalte A mit Titel
SpNam = 2 'Spalte B mit Name
SPVornam = 3 'Spalte C mit Vorname
SPSchi = 4 'Spalte D mit Schicht
SPGeb = 5 'Spalte E mit Geburtstag
'* Ende anpassen **********
RR = TB4.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
For i = 2 To RR
Geb = TB4.Cells(i, SPGeb)
Tit = TB4.Cells(i, SPTit)
Vorna = TB4.Cells(i, SPVornam)
Nam = TB4.Cells(i, SpNam)
If DateSerial(Year(Date), Month(Geb), Day(Geb)) = Date Then
Wer = Tit & " " & Vorna & " " & Nam
AltTag = DateDiff("d", Geb, Date)
AltWo = DateDiff("w", Geb, Date)
AltMo = DateDiff("m", Geb, Date)
Alter = DateDiff("yyyy", Geb, Date, vbMonday, vbFirstFourDays)
MsgBox "Heute hat " & Wer & " " & " Geburtstag, " & _
"" + vbNewLine & _
"" + vbNewLine & _
"er wird " & DateDiff("s", Geb, Now) & " Sekunden alt, " & "das sind " & _
DateDiff("n", Geb, Now) & " Minuten," & _
"" + vbNewLine & _
"" + vbNewLine & _
"also " & DateDiff("h", Geb, Now) & " Stunden, " & "das entspricht " & _
AltTag & " Tage," & _
"" + vbNewLine & _
"" + vbNewLine & _
"ergo " & AltWo & " Wochen, " & "entsprechend " & AltMo & " Monate." & _
"" + vbNewLine & _
"" + vbNewLine & _
"Kurzum er wird heute " & Alter & " Jahre" & _
"" + vbNewLine & _
"" + vbNewLine & _
"Alles Gute, viel Glück, Gesundheit und ein noch langes , sorgenfreies _
Leben !!!", vbOKOnly + vbInformation, "Herzlichen Glückwunsch zum Geburtstag"
End If
Next
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Kann man das irgendwie erweitern zum Ausdrucken, oder geht das gar net?
Grüße und Danke schon mal fürs lesen.
Hans