ich benutze folgendes Makro, um bei Übereinstimmung des aktuellen Tag/ Monat mir den Zellwert
aus der Spalte A anzuzeigen. Sub suchen() Dim c, FirstAddress Dim W W = Format(Now, "DD.MM") With Worksheets("Geburtstage").Range("C:C") Set c = .Find(W) If Not c Is Nothing Then FirstAddress = c.Address Do If Left(c.Value, 5) = W Then MsgBox c.Offset(0, -2) & (" hat heute Geburtstag") End If Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address FirstAddress End If End With Set c = Nothing End Sub Geburtstage
A | B | C | |
1 | Name | geboren im Jahr am | Hilfsspalte |
2 | Max | 03.06.1966 | 03.06 |
3 | Peter | 13.06.1964 | 13.06 |
4 | Werner | 05.07.1957 | 05.07 |
5 | Reiner | 18.07.1948 | 18.07 |
6 | Bernd | 10.12.1955 | 10.12 |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
In dem Bsp. müsste Bernd angezeigt werden.
Gibt es eine Möglichkeit, das ohne die Hilfsspalte zu realisieren, sodass
gleich in der Spalte B gesucht wird.
Vielen Dank im Voraus
MFG Andre