For opdracht

Status
Niet open voor verdere reacties.

loshapkidos

Nieuwe gebruiker
Lid geworden
28 mrt 2008
Berichten
2
Hallo, ik zit met een probleempje, dit is de code (afkomstig van een knop op een formulier):

Code:
  For i = 10 To 19
    j = i - 9
    Cells(i, 3) = TxtMj.Value
  Next i

  'Cells(10, 3) = TxtM1.Value
  'Cells(11, 3) = TxtM2.Value
  'Cells(12, 3) = TxtM3.Value
  'Cells(13, 3) = TxtM4.Value
  'Cells(14, 3) = TxtM5.Value
  'Cells(15, 3) = TxtM6.Value
  'Cells(16, 3) = TxtM7.Value
  'Cells(17, 3) = TxtM8.Value
  'Cells(18, 3) = TxtM9.Value
  'Cells(19, 3) = TxtM10.Value

Wat na de aanhalingstekens staat is het oorspronkelijke (dat werkt). Nu wil ik dat graag wat mooier omzetten met een for opdracht. Op een of andere manier werkt het niet en krijg ik een error. Ik denk dat het ergens fout loopt bij TxtMj.Value maar ik weet niet waar.

Iemand een idee?

LosHapKidoS
 
Laatst bewerkt:
Code:
  For i = 10 To 19
    j = i - 9
    Cells(i, 3) = Controls("TxtM" & j).Value
  Next i

Wigi
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan