Sub
Kopieren()
Dim
z1
As
Long
, z2
As
Long
, s2
As
Long
z2 = 9: s2 = 3: z3 = 9: s3 = 12
For
z1 = 1
To
Sheets(
"Tabelle1"
).Cells(Rows.Count, 1).
End
(xlUp).Row
If
s2 > 10
Then
s2 = 3
z2 = z2 + 2
End
If
If
s3 > 15
Then
s3 = 12
z3 = z3 + 2
End
If
If
Sheets(
"Tabelle1"
).Cells(z1, 1) <>
""
Then
If
Sheets(
"Tabelle1"
).Cells(z1, 2) =
"y"
Then
Sheets(
"Tabelle2"
).Cells(z3, s3) = Sheets(
"Tabelle1"
).Cells(z1, 1)
s3 = s3 + 1
Else
Sheets(
"Tabelle2"
).Cells(z2, s2) = Sheets(
"Tabelle1"
).Cells(z1, 1)
s2 = s2 + 1
End
If
End
If
Next
z1
End
Sub