auslesen aus textboxen in zellen
09.06.2006 10:12:47
selo
habe folgendes problem:
ich habe eine userform mit mehreren textboxen und einer combobox.
mittels der combobox wähle ich werte aus der spalte A und in den Textboxen werden die zugehörigen werte aus den Spalten b,c,d angezeigt.
nach bearbeitung dieser werte möchte ich nun mittels dem code
Private Sub CommandButton1_Click()
Dim lngFoundRow As Long
Dim l As Long
ActiveWorkbook.Sheets("mitarbeiter_gesamt").Select
l = Range("a2").End(xlDown).Row
lngFoundRow = Range("a2:b" & l).Find(what:=ComboBox1.Value).Row
Cells(lngFoundRow, 2).Value = CLng(CDate(TextBox66.Value))
Cells(lngFoundRow1, 3).Value = CLng(CDate(TextBox65.Value))
Cells(lngFoundRow2, 4).Value = CLng(CDate(TextBox64.Value))
Cells(lngFoundRow3, 5).Value = CLng(CDate(TextBox63.Value))
End Sub
die werte wieder an die zellen übergeben die zu dem wert der combobox gehören.
jedoch bekomme ich an der stelle
lngFoundRow = Range("a2:d" & l).Find(what:=ComboBox1.Value).Row
eine fehlermeldung "objektvariable oder with-blockvariable nicht festgelegt"
Hat jemand vielleicht eine idee was ich falsch mache?
gruß
selo