Clever-Excel-Forum

Seiten: 1 2

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)

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

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

Danke dir Ralf :)

Werde ich mir heute Abend anschauen.

Lg Primo

Seiten: 1 2

schauan

Primo Centurio

RPP63

Primo Centurio