habe folgenden code
und bekomme eine fehlermeldung fehler beim kompilieren "syntayfehler" beim ausführen.
bei zeile
lngFoundRow = Range("c2:c" & L").Find(what:=ComboBox1.Value).Row
der code:
Private Sub CommandButton1_Click()
Dim lngFoundRow As Long
Dim L As Long
ActiveWorkbook.Sheets("test").Select
L = Range("c2").End(xlDown).Row
lngFoundRow = Range("c2:c" & L").Find(what:=ComboBox1.Value).Row
Cells(lngFoundRow, 4).Value = CLng(CDate(TextBox1.Value))
Cells(lngFoundRow, 5).Value = CLng(CDate(TextBox2.Value))
Unload Me
End Sub
hat vielleicht jemand einen rat für mich?
danke
aga