Hallo!
Danke für deine Antwort. Der erste Punkt war wirklich hilfreich.
Beim zweiten haben wir uns vermutlich nicht richtig verstanden, denn ich möchte nicht abhängig vom Index k, sondern von der gefunden Zelle ausgehend die Werte übernehmen. Wenn zB eine 1 in Zelle A4 gefunden wird, soll die nächste Schleife ausgehend von C4 die Nummern 1-8 suchen. Aktuell, wenn zB eine 3 (j-Schleife) gefunden wird in Zeile 22, dann sucht er in der k-Schleife ab C1, nicht ab C22.
Einen Versuch habe ich gewagt, indem ich den [After] Parameter beschreibe:
For i = 1 To 16
Set Menu = Range("A:A").Find("Menu " & i & ":")
If i > 4 Then Exit For
For j = 1 To 8
Set Cat = Range("A:A").Find(j, Menu.Cells())
For k = 1 To 8
Set Dot = Range("C:C").Find(k, Cat.Cells())
If Cells(k, "E") = Null Then Exit For
Print #1, " "
Next k
Next j
Next i
Allerdings bekomme ich einen Laufzeitfehler 13 : Typen unverträglich.
Der Gedanke war das mein Cat Objekt die gefundene Zelle gespeichert hat und nun ab dort sucht (für After müsste man noch 1 abziehen so wie ich das verstanden habe).
Ich hoffe das war veständlich.
Grüße, Stefan
|