Messagebox wennn Geburtstag

Michael · 2017-11-30T22:21:32+00:00

Hallo, ich habe eine Arbeitsmappe mit Userform, in der ich meine Kontakte einpflege. Im Blatt "Datenblatt" werden die Daten daziu gespeichert. In Spalte C stehen die Vornamen in Spalte D die Nachnamen..in Spalet L die Geburtsdaten. Ich möchte gerne, wenn ich meine Mappe öffne, das eine Messagebox aufgeht, wenn heute, in 3 Tagen und in 7 Tagen Geburtstag hat. Wie kann ich das als Makrocode umsetzen? Gruß MdJ

Modul Modul1

Option Explicit 
Dim Birthday As String 
 
Sub RPP() 
Birthday = "Aktuelle Geburtstage:" & vbLf & String(80, "-") & vbLf 
Ausgabe Format(Date, "dd. mmmm") 
Ausgabe Format(Date + 3, "dd. mmmm") 
Ausgabe Format(Date + 7, "dd. mmmm") 
Birthday = Birthday & vbLf & "Nächste Geburtstage:" & vbLf & String(80, "-") & vbLf 
MsgBox Birthday 
Birthday = vbNullString 
End Sub 
 
Sub Ausgabe(Heute As String) 
Dim Fund As Range, firstAddress As String 
Set Fund = Tabelle1.Columns(2).Find(Heute, , xlValues, xlWhole) 
If Not Fund Is Nothing Then 
   firstAddress = Fund.Address 
   Do 
      Birthday = Birthday & _
         Fund.Offset(0, -1) & vbTab & vbTab & Fund.Offset(0, 1) & ", " & vbTab & Fund.Offset(0, 2) & vbLf 
      Set Fund = Tabelle1.Columns(2).FindNext(Fund) 
   Loop While Not Fund Is Nothing And Fund.Address <> firstAddress 
End If 
Set Fund = Nothing 
End Sub

Gruß Ralf

Hallo Robert,
mit deiner Hilfe hat es geklappt.
Doch leider hab ich nicht berücksichtigt, das du ja in Spalte P immer eine Formel stehen hast.
Ich speichere über eine Userform neue Kontakte mit diesem Code:
txtInfoPerson)
'hier wir Vor und Nachname als Dateiname benutzt
With ActiveSheet
intersteleerezeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intersteleerezeile, 1).Value = Me.txtNummer.Value
.Cells(intersteleerezeile, 2).Value = Me.cboAnrede.Value
.Cells(intersteleerezeile, 3).Value = Me.txtVorname.Value
.Cells(intersteleerezeile, 4).Value = Me.txtName.Value
.Cells(intersteleerezeile, 5).Value = Me.txtStraße.Value
.Cells(intersteleerezeile, 6).Value = Me.txtHausnummer.Value
.Cells(intersteleerezeile, 7).Value = Me.txtPostleitzahl.Value
.Cells(intersteleerezeile, 8).Value = Me.txtWohnort.Value
.Cells(intersteleerezeile, 9).Value = Me.txtFestnetz.Value
.Cells(intersteleerezeile, 10).Value = Me.txtFax.Value
.Cells(intersteleerezeile, 11).Value = Me.txthandy.Value
.Cells(intersteleerezeile, 12).Value = Me.txtGeburtsdatum.Value
.Cells(intersteleerezeile, 13).Value = Me.txtMailadress.Value
.Cells(intersteleerezeile, 14).Value = Me.txtWebsite.Value
For Each objControl In Controls 'leert die Textboxen
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
End Select
Next
cboAnrede.ListIndex = -1
txtNummer.Value = .Cells(intersteleerezeile, 1).Value + 1
End With
MsgBox "Datensatz wurde erstellt und Textdatei gespeichert"
End Sub
Wie ändere ich den Code so, das er beim speichern auch gleich die Formel in Spalte P einträgt?
Gruß
Michael

Forumthread: Messagebox wennn Geburtstag

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Messagebox wennn Geburtstag

Forumthread: Messagebox wennn Geburtstag

29 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

29
Beiträge zum Forumthread

Beiträge zu diesem Forumthread