Hallo zusammen,
derzeit bastel ich an einem größeren Makro und scheiter jetzt gerade an einer Schleife. Es handelt sich bei dem Code um die zweite For Each Schleife. Dort möchte ich nämlich FQold 1 - 10 (siehe Pfeil) definieren, um die dahinter stehenden Werte aus den Positionen mit IF vergleichen. Aber er will meine Schreibweise nicht nehmen. Wahrscheinlich habe ich einen kleinen Denkfehler oder es funktioniert überhaupt nicht.
---
i = 0
For Each c In wksZ.Range(Cells(1, 1), Cells(1, lastColumn))
If c Like "D:*" Then
i = i + 1
End If
Next
k = i - i + 1
l = k - 0
j = 0
For Each c In wksZ.Range(Cells(1, k), Cells(1, i))
j = j + 1
'FQold 1 - 10 soll definiert werden, sodass ich diese danach wie unten bei If vergleichen kann.
---->"FQold" & j = wksZ.Cells(letzteZeile, l)
l = k + 1
Next
If FQold1 = FQold2 Then
Else
End If
---
Ich danke euch auf jeden Fall für jede Antwort, die mir einen Denkanreiz gibt. In der Suche habe ich leider nichts konkretes zu diesem Problem gefunden, vielleicht habe ich aber auch die falschen Suchbegriffe verwendet.
Viele Grüße
Robin
|