Frage : VBA Gegenstand erforderliches Excel des Laufzeitfehler-424

Hallo haben Kerle,

I etwas AUSGEZEICHNETE Hilfe bei einem Experten von hier mein userform an erhalten gehabt, das geht und gerade eine kleine kleine Sache geschieht, ich erhalten einen Gegenstand des Laufzeitfehlers 424 erfordert und es ist Höhepunkt diese Linie

If c.Value u. „„u. c.Offset (0, 1).Value = cmbnames. Text und c.Offset (0, 5).Value = txtTrainSessionNo.Text Then


Here ist der Code unten:
Private verdunkeln VorbtnSubmitStats_Click ()
Dim WB als Workbook
WS als Worksheet
schwaches rng1 als Range
schwaches rng2 als Range
schwaches c als Range
schwaches s wie Integer
das
, das WB = ActiveWorkbook
gesetzt ist WS = gesetztes ActiveSheet
rng1 = WS gesetzt ist. Strecke („G2: G“ u. (Strecke („G65536“). Ende (xlUp) .Row))

für jedes c in rng1
wenn c.Value u.“ „u. c.Offset (0, 1).Value = cmbnames. Text und c.Offset (0, 5).Value = txtTrainSessionNo.Text Then
c.Offset (0, 6).Value = txtWrittenAssess.Text
c.Offset (0, 7).Value = cboGrade.Text
Ende If
Next
cmbnames.SetFocus
wenn cmbnames.ListCount <> 0 Then
für i = 0 zu cmbnames.LineCount - 1
wenn cmbnames. Liste (i) = cmbnames. Text Then
cmbnames.RemoveItem (i)
Ende If
Next
Ende If
cmbnames. Wert = ""
End Sub

I kann nichts nicht mit ihm wirklich falsch sehen, weil dieses nur anfing, nachher zu geschehen Ändern eines txt Feldes zu einem kombinierten Kasten auf dem userform.

File wird unten angebracht:

Any Hilfe ist appreciated
cheers

Attachments:

Copy-of-Samplex-4.xls (56 KBS)  (Akten-Art Details)  

Beispielakte mit blindem data

Antwort : VBA Gegenstand erforderliches Excel des Laufzeitfehler-424

„txtTrainSessionNo“ in dieser Schnur durch „cmbTrainSessionNo“, d.h. zum Namen von Combobox ersetzen.

Alex