Der SchleifenIndex kommt von der Zählvariablen 1, 4, 7, usw.
Die i-Schleife in Test() gehört da nicht hin.
Dim i As Long
Dim j As Long
j = 1
'Ausgabe: 1, 4, 7, 10, 13
For i = 1 To 332135 Step 3
Cells(j, 1).Value = i
j = j + 1
Next
Wie ich geschrieben hatte, muss in der Schleife das Makro aufgerufen werden, welches du jetzt Test() genannt hast und dieser musst du als Parameter den Bereich mitgeben, der wiederum sich aus Spalte A und dem zuvor genannten Zeilenindex ergibt.
Das hier
Call Test(Worksheets("Tabelle1").Range("A" & SchleifenIndex))
Expr = .Offset(0, 0).Value & .Offset(1, 0).Value & .Offset(2, 0).Value
End With
stimmt nicht.
Beschäftige dich bitte mit dem Range-Objekt, dessen Offset() Methode und der Bedeutung von With an.
Und danach schau dir bitte nochmal meinen Post an.
|