Datum einer Tab mit Dat einer Combobox vergleichen
28.06.2004 16:32:30
Harald
ich habe mal wieder ein Problem. Ich habe 2 Comboboxen, die Datumsfelder darstellen. Diese Daten sollen mit den Daten der Tabelle verglichen werden. Soweit hab ich es ja hinbekommen, dass das Datum einer Combobox mit dem Inhalt der Tabelle verglichen wird.
Das Problem besteht jetzt nur noch das ich die 2 Daten vergleichen will und das dies aus irgendwelchen Gründen auch immer nicht funktionieren will. Zur Erläuterung der Code.
Das 2. Problem ist, das ich dann die Zellen, zwischen den beiden Datumsangaben farbig markieren will. D.h. dass die Farbe der Zelle sich verändern soll wenn das Datum gefunden worden ist. Geht das irgendwie. Ich habe leider nicht so viel Wissen davon. Vielleicht kann einer von euch mir weiter helfen
MfG Harald
Private Sub UserForm_Initialize()
For datum = CLng(CDate("01.01.2004")) To CLng(CDate("31.12.2004"))
'Datum in Combobox einfügen
test.ComboBox1.AddItem CDate(datum)
Next datum
'Listindex wird auf das heutige Datum gesetzt
test.ComboBox1.ListIndex = CLng(Now) - CLng(CDate("01.01.2004"))
For datum = CLng(CDate("01.01.2004")) To CLng(CDate("31.12.2004"))
'Datum in Combobox einfügen
test.ComboBox2.AddItem CDate(datum)
Next datum
'Listindex wird auf das heutige Datum gesetzt
test.ComboBox2.ListIndex = CLng(Now) - CLng(CDate("01.01.2004"))
End Sub
Private Sub OK_Click()
Dim Suchbegriff As Range
Dim Suchbegriff2 As Range '<- Variable für die zweite Combobox
Dim SDatum As Date
Dim sdatum2 As Date '<- Variable für die zweite Combobox
'Wenn in Combobox1 kein Datum steht, Prozedur verlassen
If IsDate(test.ComboBox1.Text) = False Then Exit Sub
SDatum = CDate(test.ComboBox1.Text)
sdatum2 = CDate(test.ComboBox2.Text)
'Datum aus Combobox1 in Spalte A (1) suchen
Set Suchbegriff = Worksheets("Tabelle1").Columns(1). _
Find(SDatum, lookat:=xlWhole) And Worksheets("Tabelle1").Columns(1). _
Find(sdatum2, lookat:=x1Whole)
If Suchbegriff Is Nothing Then
'Wenn Datum nicht gefunden wurde
MsgBox "Nicht gefunden!"
Else
MsgBox "Gefunden"
'In Spalte B den Wert aus Textbox2 einlesen
'* Cells(Suchbegriff.Row, 2).Value = UserForm1.TextBox2.Text
'In Spalte C den Wert aus Textbox3 einlesen
'*Cells(Suchbegriff.Row, 3).Value = UserForm1.TextBox3.Text
End If
End Sub
Private Sub Abbrechen_Click()
test.Hide
End Sub