Das wäre dann wohl ein Fall für VBA.
Ist schon länger her das ich etwas damit gemacht habe, aber die Vorgehensweise wäre ungefähr so:
Alle Zellen durchgehen, und wenn die Month's identisch sind in eine ListBox dazuschreiben.
Es ist nicht die sauberste Variante aber eine brauchbare (schöner wäre "for each a in b ... Next a"
Private Sub CommandButton1_Click()
Dim datum, name, i As Integer
i = 1
Do
datum = Worksheets("Tabelle1").Cells(i, 2).Value
name = Worksheets("Tabelle1").Cells(i, 1).Value
If (Month(datum) = Month(Now())) Then ListBox1.AddItem (name)
i = i + 1
Loop While (datum <> "")
End Sub
Siehe Attachment
Jak
____________________________________
Join the DNRC | Godwin\'s Law (thx@stona)
Documentation is like sex: If it\'s good, it\'s very, very good. If it\'s bad, it\'s better than nothing.
\"In theory, theory and practice are the same. In practice, they are not\" (Lawrence Berra)
|