Waarde toewijzen

[frenske1964]

Hallo, heb een probleem met een waarde toewijzen.
In sheet "Invoer" worden in cell A1 tot Cell A4 een waarde in gegeven en via Macro overgezet naar sheet "Teile_MD11" in kolom A net zo vaak als in cell H1 sheet "Invoer" is in gegeven dit werkt dus geen probleem.
Maar nu moet aan ieder blok een waarde worden toegevoegd (blok is in dit geval c7150120-1 en c7150120-2) In sheet "Teile_MD11" is kolom O dus gerelateerd aan kolom A.
In kolom P staat hoe het uit zou moeten zien, ik krijg van alles behalve de gewenste uitkomst, iemand een idee?

 

[HSV]

Ik denk dat je vraag erg onduidelijk is.

Waarom zijn de waarden zoals ze staan in kolom P ?
Ik kan nergens een verband leggen waarom dit getal 11 of 15 moet zijn.

HIER is je bestand ook al een paar keer bekeken, waar niemand een reactie geeft.

 

[Warme bakkertje]

Heb je de macro test al eens doorlopen met F8 ? Je komt gewoon in een oneindige loop terecht.
Wat is hier eigenlijk de bedoeling van ?

 

[frenske1964]

Probleem opgelost door er een counter aan toe te voegen

H = Worksheets(1).Range("f3")
a = Worksheets(1).Range("H1")
b = Worksheets(1).Range("F1")
c = a - b
G = WorksheetFunction.CountA(Worksheets(1).Range("A1:A4"))
E = 0

For d = 1 To H * G
If Mid(Worksheets(3).Cells(1 + d, 1).Value, 10, 1) = "1" Then
Worksheets(3).Cells(1 + d, 15) = b
ElseIf Mid(Worksheets(3).Cells(1 + d, 1).Value, 10, 1) = "2" Then
Worksheets(3).Cells(1 + d, 15) = b
ElseIf Mid(Worksheets(3).Cells(1 + d, 1).Value, 10, 1) = "3" Then
Worksheets(3).Cells(1 + d, 15) = b
ElseIf Mid(Worksheets(3).Cells(1 + d, 1).Value, 10, 1) = "4" Then
Worksheets(3).Cells(1 + d, 15) = b

End If
E = E + 1
If E >= G Then
E = 0
b = b + 1
End If
Next d
Call wagen