Fehler im VBA Code
05.12.2006 06:48:51
Josef
In der ComboBox24 sind Datensatznummern von 1 bis 25000 eingetragen.
Jetzt möchte ich das folgendes passiert:
Ist das Arbeitsblatt "Schalter" aktiv und ist in der dataktBox1 der heutige Tag eingetragen dann suche in der Spalte E dieses Datum und aktiviere den Datensatzwert zu diesem Datum in der Combobox24
Private Sub CommandButton7_Click()
On Error Resume Next
Dim t%
Dim wks1 As Worksheet
Dim Suche As Range
Set wks1 = Workbooks("Gesundheitswesen Wien.xls").Worksheets("Schalter")
If ActiveSheet.name = "Schalter" And dataktBox1.Text = Date Then
Set Suche = wks1.Range("E2:E252").Find(CDate(dataktBox1.Text), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
If (Not Suche Is Nothing) Then ' <-- hier der Test
t = Suche.Row
ComboBox24.Value = Cells(t, 1).Text
TextBox5.Text = Cells(t, 5)
End If
End If
End Sub
Leider funktioniert dieser Code so nicht. Wo habe ich hier bitte den Fehler gemacht?
Danke
Josef