Range("R1").Value = 1
Do
If Range("R1").Value <= Range("U2").Value Then
' enthält Range("U1") den Wert "j" ?
If InStr(Range("U1").Value, "j") > 0 Then
' <... Drucken ...>
End If
Range("R1").Value = Range("R1") + 1
End If
Loop Until Range("R1").Value = Range("U2").Value
... entsprechend deiner Formulierung.
Mich beschleicht allerdings das Gefühl, dass deine Beschreibung inhaltlich falsch formuliert ist.
Du solltest dir noch mal Gedanken darüber machen, ...
- ob du eine kopfgesteuerte Schleife, oder eine fußgesteuerte Schleife benötigst
- welche Variablen du benötigst (warum zählst du in einer Zelle hoch, anstatt einfach eine Variable zu verwenden?)
- wie das Abbruchkriterium lauten soll (Achtung Endlosschleife)
- und ob du, abhängig von Punkt 1. und Punkt 3., die innere If-Anweisung (die in Zeile 3) noch benötigst.
Grüße
|