ich steh vor einem Problem und mir ist noch nicht so ganz klar, wie ich dies lösen soll. Ich bin dabei mir eine Termindatei für Wartungsarbeiten zu erstellen. Nun möchte ich über eine UserForm nach bestimmten Dingen in diesem Terminblatt suchen. Die Auswahl erfolgt in einer ComboBox. Soweit ist das auch noch nicht das Problem. Allerdings möchte ich auch nach einem Datum suchen und da fängt mein Problem an. Im Tabellenblatt steht das Datum in Spalte C. Dort steht z.B. 21.01.2009 oder auch 21.01.2010. Nun möchte ich alle Datumswert aus Spalte C in eine ComboBox einlesen. Allerdings nur 6 Stellen von dem Datum. Also für das Datum 21.01.2009 nur 21.01. . Da ich aber mehrere Datumswerte habe, die am 21. Januar sind, sich aber zum Teil nur vom Jahr unterscheiden, möchte ich natürlich nur 1x das Datum 21.01. in der ComboBox haben, Sprich es sollen keine Duplikate vom 21.01. eingelesen werden. Bisher habe ich immer Werte ohne Duplikate mit der Zeile
If WorksheetFunction.CountIf(Sheets("Termine ").Range("C2:C" & iRow), _
Sheets("Termine").Cells(iRow, 3)) = 1 Then _
ComboBox3.AddItem Mid(Sheets("Termine ").Cells(iRow, 3), 1, 6)
eingelesen. Allerdings wird hier die gesamte Zelle abgefragt und da funktioniert das. Ich muss aber nur 6 Stellen der Zelle prüfen und es darf dann das Datum 21.01.nur einmal in der ComboBox erscheinen.
Ich hoffe, jemand hat verstanden, was ich realisieren möchte und hat einen Tipp für mich.
Danke Euch schon mal im Voraus,
Kasimir