Hey Stephan,
klar geht das. Einfach zwei weitere Variablen hinzufügen (z.B. y und p) die du zusammen mit S3 und S4 hochzählst, während du den eigentlichen Kopiervorgang in eine weitere Bedingung legst. Ungetestet könnte dieser Codeteil z.B. so aussehen. Probiers einfach mal aus.
If Sheets("FCLM_Data").Cells(z1, 13) = "y" and y <= 6 Then
Sheets("oard").Cells(z3, s3) = Sheets("FCLM_Data").Cells(z1, 1)
s3 = s3 + 1
y = y + 1
ElseIf Sheets("FCLM_Data").Cells(z1, 13) = "p" and p <= 2 Then
Sheets("Board").Cells(z4, s4) = Sheets("FCLM_Data").Cells(z1, 1)
s4 = s4 + 1
p = p + 1
Gruß Mr. K.
|