Geburtstag über Msg Box anzeigen

[schauan]

Hallöchen,

ich hatte ja von a und b geschrieben …

MsgBox a & vbNewLine & b & vbNewLine & vbNewLine & c & " " & d & " " & Join(varDatArr, vbLf), , "Geburtstage"

vorausgesetzt, c und d enthalten die beiden Namen.

Ansonsten, wenn Du bei Deinem ursprünglichen Code bleibst

Code:

If Format(Cells(i, 5).Value, "dd.mm.yyyy") = Format(Now, "dd.mm.yyyy") Then
       bStr = bStr & Cells(i, 3) & " " & Cells(i, 4) & " aus Zimmer " & Cells(i, 13) & " Geburtstag" & Chr$(13)
       MsgBox bStr
   End If

eventuell in der Art, wie Uwe schon schrieb

Code:

...
   If Format(Cells(i, 5).Value, "dd.mm.yyyy") = Format(Now, "dd.mm.yyyy") Then
       bStr = bStr & Cells(i, 3) & " " & Cells(i, 4) & " aus Zimmer " & Cells(i, 13) & Chr$(13)
   End If
Next
MsgBox "Heute haben " & bStr  & " Geburtstag" & Chr$(13)

[Primo Centurio]

Hallo André

1000 Dank, mit deiner Hilfe habe ich es hingekriegt.


Habe es nun so gelöst und es funktioniert einwandfrei :)

Code:

Dim intZeile As Integer
Dim a As String
Dim b As String
Dim varDatArr() As Variant
Dim intAnz As Integer
For intZeile = 3 To 1000

  If CDate(Cells(intZeile, 5)) = Format(Now(), "dd.mm.yyyy") Then
         ReDim Preserve varDatArr(intAnz)
         varDatArr(intAnz) = Cells(intZeile, 13) & vbTab & Cells(intZeile, 3) & " " & Cells(intZeile, 4)
         intAnz = intAnz + 1
  End If

 Next intZeile

  a = "Heute haben Bewohner aus"
  b = "folgenden Zimmern Geburtstag: "

 MsgBox a & vbNewLine & b & vbNewLine & vbNewLine & Join(varDatArr, vbLf), , "Geburtstage"

Herzlichen Dank nochmals

Lg Primo

[RPP63]

Moin!
Abseits von VBA:
Mache Dir eine Hilfsspalte mit =TEXT(GebDat;"TT.MM")
Dann brauchst Du die Tabelle einfach nur in der Hilfsspalte nach 10.10 filtern und fettich!

Ich habe in meinem Fundus auch eine Datei (siehe Anhang), in der ich dies mit Formeln löse.

Gruß Ralf

[Primo Centurio]

Danke dir Ralf :)


Werde ich mir heute Abend anschauen.

Lg Primo