OK, du willst also wenn ein y drin steht die Werte in einen zweiten Berich schreiben. Was ich aber immer noch nicht weiß ist, ob es in Tabelle2 auch lücken geben darf oder nicht. Probier mal das folgende Script, das die Werte lückenlos übernimmt. hierzu wurden zwei weitere Variablen z3 und s3 notwendig. Stellst du dir das so in etwa vor?
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
Gruß Mr. K.
|